diff --git a/docs/index.html b/docs/index.html
index 6e5a9d6..32573af 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -222,7 +222,7 @@ <h3>Derived Types</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/lists/files.html b/docs/lists/files.html
index dc9a3d6..87adb24 100644
--- a/docs/lists/files.html
+++ b/docs/lists/files.html
@@ -411,7 +411,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/lists/modules.html b/docs/lists/modules.html
index 80e107e..adc504d 100644
--- a/docs/lists/modules.html
+++ b/docs/lists/modules.html
@@ -518,7 +518,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/lists/procedures.html b/docs/lists/procedures.html
index 7156200..0a30e29 100644
--- a/docs/lists/procedures.html
+++ b/docs/lists/procedures.html
@@ -466,7 +466,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/lists/types.html b/docs/lists/types.html
index fffd7e2..b206473 100644
--- a/docs/lists/types.html
+++ b/docs/lists/types.html
@@ -231,7 +231,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/ciaaw.html b/docs/module/ciaaw.html
index 29b8361..17a4c89 100644
--- a/docs/module/ciaaw.html
+++ b/docs/module/ciaaw.html
@@ -555,7 +555,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/ciaaw__api.html b/docs/module/ciaaw__api.html
index 7ba246d..1260714 100644
--- a/docs/module/ciaaw__api.html
+++ b/docs/module/ciaaw__api.html
@@ -158,11 +158,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
+                  <li class="list-inline-item"><a href='ciaaw__common.html'>ciaaw__common</a></li>
+                  <li class="list-inline-item"><a href='ciaaw__version.html'>ciaaw__version</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/ieee_arithmetic'>ieee_arithmetic</a></li>
                   <li class="list-inline-item"><a href='ciaaw__pte.html'>ciaaw__pte</a></li>
                   <li class="list-inline-item"><a href='ciaaw__types.html'>ciaaw__types</a></li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/ieee_arithmetic'>ieee_arithmetic</a></li>
-                  <li class="list-inline-item"><a href='ciaaw__version.html'>ciaaw__version</a></li>
-                  <li class="list-inline-item"><a href='ciaaw__common.html'>ciaaw__common</a></li>
               </ul>
             </li>
             <li class="list-group-item">
@@ -1041,7 +1041,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/ciaaw__capi.html b/docs/module/ciaaw__capi.html
index 5fc78a6..8bcce9c 100644
--- a/docs/module/ciaaw__capi.html
+++ b/docs/module/ciaaw__capi.html
@@ -159,8 +159,8 @@ <h3 class="card-header card-title bg-light">Uses</h3>
             <li class="list-group-item">
               <ul class="list-inline">
                   <li class="list-inline-item"><a href='ciaaw__common.html'>ciaaw__common</a></li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_c_binding'>iso_c_binding</a></li>
                   <li class="list-inline-item"><a href='ciaaw__api.html'>ciaaw__api</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_c_binding'>iso_c_binding</a></li>
               </ul>
             </li>
             <li class="list-group-item">
@@ -1133,7 +1133,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/ciaaw__common.html b/docs/module/ciaaw__common.html
index 0aefd03..47a3bff 100644
--- a/docs/module/ciaaw__common.html
+++ b/docs/module/ciaaw__common.html
@@ -141,8 +141,8 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item">stdlib_kinds</li>
                   <li class="list-inline-item">stdlib_optval</li>
+                  <li class="list-inline-item">stdlib_kinds</li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/ieee_arithmetic'>ieee_arithmetic</a></li>
               </ul>
             </li>
@@ -609,7 +609,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/ciaaw__ice.html b/docs/module/ciaaw__ice.html
index 754aaa1..990300e 100644
--- a/docs/module/ciaaw__ice.html
+++ b/docs/module/ciaaw__ice.html
@@ -243,8 +243,8 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='ciaaw__types.html'>ciaaw__types</a></li>
                   <li class="list-inline-item"><a href='ciaaw__common.html'>ciaaw__common</a></li>
+                  <li class="list-inline-item"><a href='ciaaw__types.html'>ciaaw__types</a></li>
               </ul>
             </li>
             <li class="list-group-item">
@@ -2216,7 +2216,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/ciaaw__naw.html b/docs/module/ciaaw__naw.html
index 522a311..d6b1cee 100644
--- a/docs/module/ciaaw__naw.html
+++ b/docs/module/ciaaw__naw.html
@@ -269,8 +269,8 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='ciaaw__types.html'>ciaaw__types</a></li>
                   <li class="list-inline-item"><a href='ciaaw__common.html'>ciaaw__common</a></li>
+                  <li class="list-inline-item"><a href='ciaaw__types.html'>ciaaw__types</a></li>
               </ul>
             </li>
             <li class="list-group-item">
@@ -2684,7 +2684,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/ciaaw__pte.html b/docs/module/ciaaw__pte.html
index 356ff40..a5175a5 100644
--- a/docs/module/ciaaw__pte.html
+++ b/docs/module/ciaaw__pte.html
@@ -152,11 +152,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='ciaaw__types.html'>ciaaw__types</a></li>
-                  <li class="list-inline-item"><a href='ciaaw__naw.html'>ciaaw__naw</a></li>
-                  <li class="list-inline-item"><a href='ciaaw__ice.html'>ciaaw__ice</a></li>
                   <li class="list-inline-item"><a href='ciaaw__saw.html'>ciaaw__saw</a></li>
                   <li class="list-inline-item"><a href='ciaaw__common.html'>ciaaw__common</a></li>
+                  <li class="list-inline-item"><a href='ciaaw__naw.html'>ciaaw__naw</a></li>
+                  <li class="list-inline-item"><a href='ciaaw__ice.html'>ciaaw__ice</a></li>
+                  <li class="list-inline-item"><a href='ciaaw__types.html'>ciaaw__types</a></li>
               </ul>
             </li>
             <li class="list-group-item">
@@ -646,7 +646,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/ciaaw__saw.html b/docs/module/ciaaw__saw.html
index 1f407c7..16da222 100644
--- a/docs/module/ciaaw__saw.html
+++ b/docs/module/ciaaw__saw.html
@@ -269,8 +269,8 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='ciaaw__types.html'>ciaaw__types</a></li>
                   <li class="list-inline-item"><a href='ciaaw__common.html'>ciaaw__common</a></li>
+                  <li class="list-inline-item"><a href='ciaaw__types.html'>ciaaw__types</a></li>
               </ul>
             </li>
             <li class="list-group-item">
@@ -2684,7 +2684,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/ciaaw__types.html b/docs/module/ciaaw__types.html
index 401ab30..a631c2f 100644
--- a/docs/module/ciaaw__types.html
+++ b/docs/module/ciaaw__types.html
@@ -1042,7 +1042,7 @@ <h4>Components</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/ciaaw__version.html b/docs/module/ciaaw__version.html
index c8c9a10..6a6040e 100644
--- a/docs/module/ciaaw__version.html
+++ b/docs/module/ciaaw__version.html
@@ -325,7 +325,7 @@ <h2>Variables</h2>
             <td>::</td>
             <td><strong>version</strong></td>
 <td> =</td>
-                <td>&#34;0.5.0dev0&#34;</td>
+                <td>&#34;0.5.1&#34;</td>
             <td>
                 
             </td>
@@ -362,7 +362,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/changelog.html b/docs/page/changelog.html
index d9328cc..3adf754 100644
--- a/docs/page/changelog.html
+++ b/docs/page/changelog.html
@@ -112,7 +112,7 @@ <h1 id="051">0.5.1</h1>
 <li>Code refactoring.</li>
 <li>Documentation update.</li>
 </ul>
-<p><strong>Not released</strong></p>
+<p><a href="https://github.com/MilanSkocic/ciaaw/releases">Full changelog</a></p>
 <h1 id="050">0.5.0</h1>
 <ul>
 <li>API break: <ul>
@@ -186,7 +186,7 @@ <h1 id="010">0.1.0</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/examples.html b/docs/page/examples.html
index 2b9f830..15aa58f 100644
--- a/docs/page/examples.html
+++ b/docs/page/examples.html
@@ -253,7 +253,7 @@ <h1 id="python">Python</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/index.html b/docs/page/index.html
index 669f935..f6fac7c 100644
--- a/docs/page/index.html
+++ b/docs/page/index.html
@@ -125,7 +125,7 @@ <h1>Contributing and specs</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/license.html b/docs/page/license.html
index b62261d..b4a130f 100644
--- a/docs/page/license.html
+++ b/docs/page/license.html
@@ -142,7 +142,7 @@ <h1>License</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/references.html b/docs/page/references.html
index 2109ca2..5b4cf5d 100644
--- a/docs/page/references.html
+++ b/docs/page/references.html
@@ -141,7 +141,7 @@ <h1>References</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/specs/api.html b/docs/page/specs/api.html
index 1172481..2fba434 100644
--- a/docs/page/specs/api.html
+++ b/docs/page/specs/api.html
@@ -168,7 +168,7 @@ <h1 id="naw-nuclide-atomic-weights">NAW: Nuclide Atomic Weights</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/specs/capi.html b/docs/page/specs/capi.html
index bc44d82..a3d5f5f 100644
--- a/docs/page/specs/capi.html
+++ b/docs/page/specs/capi.html
@@ -144,7 +144,7 @@ <h1>C API</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/specs/index.html b/docs/page/specs/index.html
index e81908f..fab795b 100644
--- a/docs/page/specs/index.html
+++ b/docs/page/specs/index.html
@@ -129,7 +129,7 @@ <h1>Specifications (specs)</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_get_ice.html b/docs/proc/capi_get_ice.html
index 2198c89..8a97104 100644
--- a/docs/proc/capi_get_ice.html
+++ b/docs/proc/capi_get_ice.html
@@ -386,7 +386,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_get_ice_values.html b/docs/proc/capi_get_ice_values.html
index 662b25e..022fb05 100644
--- a/docs/proc/capi_get_ice_values.html
+++ b/docs/proc/capi_get_ice_values.html
@@ -344,7 +344,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_get_naw.html b/docs/proc/capi_get_naw.html
index 4858ac4..3dcba82 100644
--- a/docs/proc/capi_get_naw.html
+++ b/docs/proc/capi_get_naw.html
@@ -386,7 +386,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_get_nice.html b/docs/proc/capi_get_nice.html
index b787a20..09acfcb 100644
--- a/docs/proc/capi_get_nice.html
+++ b/docs/proc/capi_get_nice.html
@@ -344,7 +344,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_get_nnaw.html b/docs/proc/capi_get_nnaw.html
index eeea17d..b7b2403 100644
--- a/docs/proc/capi_get_nnaw.html
+++ b/docs/proc/capi_get_nnaw.html
@@ -344,7 +344,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_get_saw.html b/docs/proc/capi_get_saw.html
index 2762178..0e22601 100644
--- a/docs/proc/capi_get_saw.html
+++ b/docs/proc/capi_get_saw.html
@@ -386,7 +386,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_get_version.html b/docs/proc/capi_get_version.html
index 9815da9..b7f4978 100644
--- a/docs/proc/capi_get_version.html
+++ b/docs/proc/capi_get_version.html
@@ -304,7 +304,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/get_ice.html b/docs/proc/get_ice.html
index 03e3cf6..439feb9 100644
--- a/docs/proc/get_ice.html
+++ b/docs/proc/get_ice.html
@@ -478,7 +478,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/get_ice_values.html b/docs/proc/get_ice_values.html
index b356821..3d289be 100644
--- a/docs/proc/get_ice_values.html
+++ b/docs/proc/get_ice_values.html
@@ -330,7 +330,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/get_naw.html b/docs/proc/get_naw.html
index 38f8256..386bc03 100644
--- a/docs/proc/get_naw.html
+++ b/docs/proc/get_naw.html
@@ -479,7 +479,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/get_nice.html b/docs/proc/get_nice.html
index cd45e73..7bd9d67 100644
--- a/docs/proc/get_nice.html
+++ b/docs/proc/get_nice.html
@@ -330,7 +330,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/get_nnaw.html b/docs/proc/get_nnaw.html
index 2385b25..da19b90 100644
--- a/docs/proc/get_nnaw.html
+++ b/docs/proc/get_nnaw.html
@@ -330,7 +330,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/get_saw.html b/docs/proc/get_saw.html
index 601525b..2a1d25b 100644
--- a/docs/proc/get_saw.html
+++ b/docs/proc/get_saw.html
@@ -479,7 +479,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/get_version.html b/docs/proc/get_version.html
index c2852c7..6d02bc2 100644
--- a/docs/proc/get_version.html
+++ b/docs/proc/get_version.html
@@ -304,7 +304,7 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/search.html b/docs/search.html
index 410e504..b742110 100644
--- a/docs/search.html
+++ b/docs/search.html
@@ -99,7 +99,7 @@ <h1>Search Results</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/ciaaw.f90.html b/docs/sourcefile/ciaaw.f90.html
index 4ebf28d..c94183f 100644
--- a/docs/sourcefile/ciaaw.f90.html
+++ b/docs/sourcefile/ciaaw.f90.html
@@ -464,7 +464,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/ciaaw_api.f90.html b/docs/sourcefile/ciaaw_api.f90.html
index b9071e6..7afecc9 100644
--- a/docs/sourcefile/ciaaw_api.f90.html
+++ b/docs/sourcefile/ciaaw_api.f90.html
@@ -897,7 +897,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/ciaaw_capi.f90.html b/docs/sourcefile/ciaaw_capi.f90.html
index c342e4b..0acda61 100644
--- a/docs/sourcefile/ciaaw_capi.f90.html
+++ b/docs/sourcefile/ciaaw_capi.f90.html
@@ -739,7 +739,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/ciaaw_common.f90.html b/docs/sourcefile/ciaaw_common.f90.html
index fc9cb7f..b43f2df 100644
--- a/docs/sourcefile/ciaaw_common.f90.html
+++ b/docs/sourcefile/ciaaw_common.f90.html
@@ -454,7 +454,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/ciaaw_ice.f90.html b/docs/sourcefile/ciaaw_ice.f90.html
index f3c437f..804a911 100644
--- a/docs/sourcefile/ciaaw_ice.f90.html
+++ b/docs/sourcefile/ciaaw_ice.f90.html
@@ -1726,7 +1726,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/ciaaw_naw.f90.html b/docs/sourcefile/ciaaw_naw.f90.html
index 4f8e6d9..7d525bc 100644
--- a/docs/sourcefile/ciaaw_naw.f90.html
+++ b/docs/sourcefile/ciaaw_naw.f90.html
@@ -6810,7 +6810,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/ciaaw_pte.f90.html b/docs/sourcefile/ciaaw_pte.f90.html
index 53c3069..d14522e 100644
--- a/docs/sourcefile/ciaaw_pte.f90.html
+++ b/docs/sourcefile/ciaaw_pte.f90.html
@@ -626,7 +626,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/ciaaw_saw.f90.html b/docs/sourcefile/ciaaw_saw.f90.html
index f69d479..bbbb83b 100644
--- a/docs/sourcefile/ciaaw_saw.f90.html
+++ b/docs/sourcefile/ciaaw_saw.f90.html
@@ -910,7 +910,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/ciaaw_types.f90.html b/docs/sourcefile/ciaaw_types.f90.html
index 9e9a720..fca5fee 100644
--- a/docs/sourcefile/ciaaw_types.f90.html
+++ b/docs/sourcefile/ciaaw_types.f90.html
@@ -540,7 +540,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/ciaaw_version.f90.html b/docs/sourcefile/ciaaw_version.f90.html
index 5fcc27d..0e76149 100644
--- a/docs/sourcefile/ciaaw_version.f90.html
+++ b/docs/sourcefile/ciaaw_version.f90.html
@@ -281,7 +281,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a id="ln-2" name="ln-2" href="#ln-2"></a><span class="w">    </span><span class="c">!! Version</span>
 <a id="ln-3" name="ln-3" href="#ln-3"></a><span class="w">    </span><span class="k">implicit none</span>
 <a id="ln-4" name="ln-4" href="#ln-4"></a><span class="k">    private</span>
-<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="k">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="w"> </span><span class="k">parameter</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">version</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;0.5.0dev0&quot;</span>
+<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="k">    </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="w"> </span><span class="k">parameter</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">version</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;0.5.1&quot;</span>
 <a id="ln-6" name="ln-6" href="#ln-6"></a><span class="k">end module </span><span class="n">ciaaw__version</span>
 </pre></div>
 
@@ -304,7 +304,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/src/ciaaw_version.f90 b/docs/src/ciaaw_version.f90
index 6729d1a..d5a12b0 100644
--- a/docs/src/ciaaw_version.f90
+++ b/docs/src/ciaaw_version.f90
@@ -2,5 +2,5 @@ module ciaaw__version
     !! Version
     implicit none
     private
-    character(len=*), parameter, public :: version = "0.5.0dev0"
+    character(len=*), parameter, public :: version = "0.5.1"
 end module ciaaw__version
diff --git a/docs/tipuesearch/tipuesearch_content.js b/docs/tipuesearch/tipuesearch_content.js
index 37e3eca..f6c17fd 100644
--- a/docs/tipuesearch/tipuesearch_content.js
+++ b/docs/tipuesearch/tipuesearch_content.js
@@ -1 +1 @@
-var tipuesearch = {"pages":[{"title":" ciaaw ","text":"ciaaw Introduction Dependencies Installation License Introduction ciaaw is a  Fortran library providing the standard and abridged atomic weights, \nthe isotopic abundance and the isotopes’ standard atomic weights.\nThe data are taken from http://ciaaw.org. \nC API allows usage from C, or can be used as a basis for other wrappers.\nPython wrapper allows easy usage from Python. What have been implemented: [x] SAW: Standard Atomic Weights. [x] ICE: Isotopic Composition of the Element [x] NAW: Nuclides Atomic Weight. To use ciaaw within your fpm project,\nadd the following to your fpm.toml file: [ dependencies ] iapws = { git = \"https://github.com/MilanSkocic/ciaaw.git\" } Dependencies gcc>=10.0\ngfortran>=10.0\nfpm>=0.7\nstdlib>=0.5 Installation A Makefile is provided, which uses fpm , for building the library. On windows, msys2 needs to be installed. \n  Add the msys2 binary (usually C:\\msys64\\usr\\bin) to the path in order to be able to use make. On Darwin, the gcc toolchain needs to be installed. Build: the configuration file will set all the environment variables necessary for the compilation chmod +x configure.sh\n    . ./configure.sh\n    make Run tests make test Install make install Uninstall make uninstall License MIT Developer Info Milan Skocic","tags":"home","loc":"index.html"},{"title":"element_type – ciaaw ","text":"type, public :: element_type Derived type representing an element. Inherits type~~element_type~~InheritsGraph type~element_type element_type type~ice_type ice_type type~element_type->type~ice_type ice type~naw_type naw_type type~element_type->type~naw_type naw type~saw_type saw_type type~element_type->type~saw_type saw Help Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\nextends. Dashed arrows point from a derived type to the other\ntypes it contains as a components, with a label listing the name(s) of\nsaid component(s). Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Components Type Visibility Attributes Name Initial character(len=24), public :: element Element name. type( ice_type ), public :: ice Isotopic composition of the element type( naw_type ), public :: naw Atomic weight of the nuclide type( saw_type ), public :: saw Standard atomic weights character(len=8), public :: symbol Element symbol. integer(kind=int32), public :: z Element atomic number.","tags":"","loc":"type/element_type.html"},{"title":"ice_type – ciaaw ","text":"type, public :: ice_type Derived type reprensenting the isotopic abundance. Inherited by type~~ice_type~~InheritedByGraph type~ice_type ice_type type~element_type element_type type~element_type->type~ice_type ice Help Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\nextends. Dashed arrows point from a derived type to the other\ntypes it contains as a components, with a label listing the name(s) of\nsaid component(s). Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: n Number of isotopic compositions real(kind=dp), public :: values (NROWS_ICE,3) Mass numbers, Abundance, Uncertainty","tags":"","loc":"type/ice_type.html"},{"title":"naw_type – ciaaw ","text":"type, public :: naw_type Derived type reprensenting the nuclide’s atomic weights. Inherited by type~~naw_type~~InheritedByGraph type~naw_type naw_type type~element_type element_type type~element_type->type~naw_type naw Help Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\nextends. Dashed arrows point from a derived type to the other\ntypes it contains as a components, with a label listing the name(s) of\nsaid component(s). Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: n Number of atomic weights real(kind=dp), public :: values (NROWS_NAW,3) Mass numbers, Atomic weight, Uncertainty","tags":"","loc":"type/naw_type.html"},{"title":"saw_type – ciaaw ","text":"type, public :: saw_type Derived type representing the standard atomic weight of an element. Inherited by type~~saw_type~~InheritedByGraph type~saw_type saw_type type~element_type element_type type~element_type->type~saw_type saw Help Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\nextends. Dashed arrows point from a derived type to the other\ntypes it contains as a components, with a label listing the name(s) of\nsaid component(s). Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Components Type Visibility Attributes Name Initial real(kind=dp), public :: asaw Abridged value standard atomic weight. real(kind=dp), public :: asaw_u Abridged uncertainty standard atomic weight. real(kind=dp), public :: saw Value standard atomic weight. real(kind=dp), public :: saw_max Max standard atomic weight. real(kind=dp), public :: saw_min Min standard atomic weight. real(kind=dp), public :: saw_u Uncertainty standard atomic weight.","tags":"","loc":"type/saw_type.html"},{"title":"capi_get_ice – ciaaw","text":"public  function capi_get_ice(s, n, A, uncertainty) result(res) bind(C, name=\"ciaaw_get_ice\")) C API for get_ice Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. integer(kind=c_int), intent(in), value :: A Mass number. logical(kind=c_bool), intent(in), value :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=c_double) Calls proc~~capi_get_ice~~CallsGraph proc~capi_get_ice capi_get_ice proc~get_ice get_ice proc~capi_get_ice->proc~get_ice optval optval proc~get_ice->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_ice.html"},{"title":"capi_get_ice_values – ciaaw","text":"public  function capi_get_ice_values(s, n) result(res) bind(C, name=\"ciaaw_get_ice_values\")) C API for get_ice_values Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value type(c_ptr) Calls proc~~capi_get_ice_values~~CallsGraph proc~capi_get_ice_values capi_get_ice_values proc~get_ice_values get_ice_values proc~capi_get_ice_values->proc~get_ice_values Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_ice_values.html"},{"title":"capi_get_naw – ciaaw","text":"public  function capi_get_naw(s, n, A, uncertainty) result(res) bind(C, name=\"ciaaw_get_naw\")) C API for get_naw Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. integer(kind=c_int), intent(in), value :: A Mass number. logical(kind=c_bool), intent(in), value :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=c_double) Calls proc~~capi_get_naw~~CallsGraph proc~capi_get_naw capi_get_naw proc~get_naw get_naw proc~capi_get_naw->proc~get_naw optval optval proc~get_naw->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_naw.html"},{"title":"capi_get_nice – ciaaw","text":"public  function capi_get_nice(s, n) result(res) bind(C, name=\"ciaaw_get_nice\")) C API for get_nice Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value integer(kind=c_int) Calls proc~~capi_get_nice~~CallsGraph proc~capi_get_nice capi_get_nice proc~get_nice get_nice proc~capi_get_nice->proc~get_nice Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_nice.html"},{"title":"capi_get_nnaw – ciaaw","text":"public  function capi_get_nnaw(s, n) result(res) bind(C, name=\"ciaaw_get_nnaw\")) C API for get_nnaw Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value integer(kind=c_int) Calls proc~~capi_get_nnaw~~CallsGraph proc~capi_get_nnaw capi_get_nnaw proc~get_nnaw get_nnaw proc~capi_get_nnaw->proc~get_nnaw Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_nnaw.html"},{"title":"capi_get_saw – ciaaw","text":"public  function capi_get_saw(s, n, abridged, uncertainty) result(res) bind(C, name=\"ciaaw_get_saw\")) C API for get_saw . Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. logical(kind=c_bool), intent(in), value :: abridged Flag for setting if abridged value is desired. logical(kind=c_bool), intent(in), value :: uncertainty Flag for setting if the uncertainty is desired instead of the value. Return Value real(kind=c_double) Calls proc~~capi_get_saw~~CallsGraph proc~capi_get_saw capi_get_saw proc~get_saw get_saw proc~capi_get_saw->proc~get_saw optval optval proc~get_saw->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_saw.html"},{"title":"capi_get_version – ciaaw","text":"public  function capi_get_version() result(cptr) bind(c, name='ciaaw_get_version')) C API for get_version . Arguments None Return Value type(c_ptr) C pointer to a string indicating the version. Calls proc~~capi_get_version~~CallsGraph proc~capi_get_version capi_get_version proc~get_version get_version proc~capi_get_version->proc~get_version Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_version.html"},{"title":"get_ice – ciaaw","text":"public  function get_ice(s, A, uncertainty) result(res) Get the isotopic composition of the element s for the mass number A. \nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if the provided symbol or A are incorrect or -1 if the element does not have an ICE. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. integer(kind=int32), intent(in) :: A Mass number. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) Calls proc~~get_ice~~CallsGraph proc~get_ice get_ice optval optval proc~get_ice->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Called by proc~~get_ice~~CalledByGraph proc~get_ice get_ice proc~capi_get_ice capi_get_ice proc~capi_get_ice->proc~get_ice Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_ice.html"},{"title":"get_ice_values – ciaaw","text":"public  function get_ice_values(s) result(res) Get the (n, 3) values array. See ice_type .\nReturns a null pointer if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value real(kind=dp), pointer, (:,:) Called by proc~~get_ice_values~~CalledByGraph proc~get_ice_values get_ice_values proc~capi_get_ice_values capi_get_ice_values proc~capi_get_ice_values->proc~get_ice_values Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_ice_values.html"},{"title":"get_naw – ciaaw","text":"public  function get_naw(s, A, uncertainty) result(res) Get the atomic weight of the nuclide s for the mass number A. \nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if provided symbol or A are incorrect \nor -1 if the element does not have an NAW. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. integer(kind=int32), intent(in) :: A Mass number. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) Calls proc~~get_naw~~CallsGraph proc~get_naw get_naw optval optval proc~get_naw->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Called by proc~~get_naw~~CalledByGraph proc~get_naw get_naw proc~capi_get_naw capi_get_naw proc~capi_get_naw->proc~get_naw Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_naw.html"},{"title":"get_nice – ciaaw","text":"public  function get_nice(s) result(res) Get the number of isotopes in ICE.\nReturns -1 if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value integer(kind=int32) Called by proc~~get_nice~~CalledByGraph proc~get_nice get_nice proc~capi_get_nice capi_get_nice proc~capi_get_nice->proc~get_nice Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_nice.html"},{"title":"get_nnaw – ciaaw","text":"public  function get_nnaw(s) result(res) Get the number of nuclides in NAW.\nReturns -1 if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value integer(kind=int32) Called by proc~~get_nnaw~~CalledByGraph proc~get_nnaw get_nnaw proc~capi_get_nnaw capi_get_nnaw proc~capi_get_nnaw->proc~get_nnaw Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_nnaw.html"},{"title":"get_saw – ciaaw","text":"public  function get_saw(s, abridged, uncertainty) result(res) Get the standard atomic weight. By default the abridged value is provided.\nIf the non abridged value is desired, set abridged to false.\nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if provided symbol is incorrect or -1 if the element does not have a SAW. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. logical, intent(in), optional :: abridged Flag for returning the abridged standard atomic weight. Default to TRUE. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) Calls proc~~get_saw~~CallsGraph proc~get_saw get_saw optval optval proc~get_saw->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Called by proc~~get_saw~~CalledByGraph proc~get_saw get_saw proc~capi_get_saw capi_get_saw proc~capi_get_saw->proc~get_saw Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_saw.html"},{"title":"get_version – ciaaw","text":"public  function get_version() result(fptr) Get the version Arguments None Return Value character(len=:), pointer Fortran pointer to a string indicating the version.. Called by proc~~get_version~~CalledByGraph proc~get_version get_version proc~capi_get_version capi_get_version proc~capi_get_version->proc~get_version Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_version.html"},{"title":"ciaaw__pte – ciaaw","text":"Ciaaw pte - Autogenerated\nSee specs Uses ciaaw__types ciaaw__naw ciaaw__ice ciaaw__saw ciaaw__common module~~ciaaw__pte~~UsesGraph module~ciaaw__pte ciaaw__pte module~ciaaw__common ciaaw__common module~ciaaw__pte->module~ciaaw__common module~ciaaw__ice ciaaw__ice module~ciaaw__pte->module~ciaaw__ice module~ciaaw__naw ciaaw__naw module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__types ciaaw__types module~ciaaw__pte->module~ciaaw__types ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__ice->module~ciaaw__common module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw->module~ciaaw__common module~ciaaw__naw->module~ciaaw__types module~ciaaw__saw->module~ciaaw__common module~ciaaw__saw->module~ciaaw__types module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__pte~~UsedByGraph module~ciaaw__pte ciaaw__pte module~ciaaw ciaaw module~ciaaw->module~ciaaw__pte module~ciaaw__api ciaaw__api module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__api->module~ciaaw__pte module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial type( element_type ), public, parameter :: pt (118) = [element_type(\"hydrogen\", \"H\", 1, H_saw, H_ice, H_naw), element_type(\"helium\", \"He\", 2, He_saw, He_ice, He_naw), element_type(\"lithium\", \"Li\", 3, Li_saw, Li_ice, Li_naw), element_type(\"beryllium\", \"Be\", 4, Be_saw, Be_ice, Be_naw), element_type(\"boron\", \"B\", 5, B_saw, B_ice, B_naw), element_type(\"carbon\", \"C\", 6, C_saw, C_ice, C_naw), element_type(\"nitrogen\", \"N\", 7, N_saw, N_ice, N_naw), element_type(\"oxygen\", \"O\", 8, O_saw, O_ice, O_naw), element_type(\"fluorine\", \"F\", 9, F_saw, F_ice, F_naw), element_type(\"neon\", \"Ne\", 10, Ne_saw, Ne_ice, Ne_naw), element_type(\"sodium\", \"Na\", 11, Na_saw, Na_ice, Na_naw), element_type(\"magnesium\", \"Mg\", 12, Mg_saw, Mg_ice, Mg_naw), element_type(\"aluminium\", \"Al\", 13, Al_saw, Al_ice, Al_naw), element_type(\"silicon\", \"Si\", 14, Si_saw, Si_ice, Si_naw), element_type(\"phosphorus\", \"P\", 15, P_saw, P_ice, P_naw), element_type(\"sulfur\", \"S\", 16, S_saw, S_ice, S_naw), element_type(\"chlorine\", \"Cl\", 17, Cl_saw, Cl_ice, Cl_naw), element_type(\"argon\", \"Ar\", 18, Ar_saw, Ar_ice, Ar_naw), element_type(\"potassium\", \"K\", 19, K_saw, K_ice, K_naw), element_type(\"calcium\", \"Ca\", 20, Ca_saw, Ca_ice, Ca_naw), element_type(\"scandium\", \"Sc\", 21, Sc_saw, Sc_ice, Sc_naw), element_type(\"titanium\", \"Ti\", 22, Ti_saw, Ti_ice, Ti_naw), element_type(\"vanadium\", \"V\", 23, V_saw, V_ice, V_naw), element_type(\"chromium\", \"Cr\", 24, Cr_saw, Cr_ice, Cr_naw), element_type(\"manganese\", \"Mn\", 25, Mn_saw, Mn_ice, Mn_naw), element_type(\"iron\", \"Fe\", 26, Fe_saw, Fe_ice, Fe_naw), element_type(\"cobalt\", \"Co\", 27, Co_saw, Co_ice, Co_naw), element_type(\"nickel\", \"Ni\", 28, Ni_saw, Ni_ice, Ni_naw), element_type(\"copper\", \"Cu\", 29, Cu_saw, Cu_ice, Cu_naw), element_type(\"zinc\", \"Zn\", 30, Zn_saw, Zn_ice, Zn_naw), element_type(\"gallium\", \"Ga\", 31, Ga_saw, Ga_ice, Ga_naw), element_type(\"germanium\", \"Ge\", 32, Ge_saw, Ge_ice, Ge_naw), element_type(\"arsenic\", \"As\", 33, As_saw, As_ice, As_naw), element_type(\"selenium\", \"Se\", 34, Se_saw, Se_ice, Se_naw), element_type(\"bromine\", \"Br\", 35, Br_saw, Br_ice, Br_naw), element_type(\"krypton\", \"Kr\", 36, Kr_saw, Kr_ice, Kr_naw), element_type(\"rubidium\", \"Rb\", 37, Rb_saw, Rb_ice, Rb_naw), element_type(\"strontium\", \"Sr\", 38, Sr_saw, Sr_ice, Sr_naw), element_type(\"yttrium\", \"Y\", 39, Y_saw, Y_ice, Y_naw), element_type(\"zirconium\", \"Zr\", 40, Zr_saw, Zr_ice, Zr_naw), element_type(\"nobium\", \"Nb\", 41, Nb_saw, Nb_ice, Nb_naw), element_type(\"molybdenum\", \"Mo\", 42, Mo_saw, Mo_ice, Mo_naw), element_type(\"technetium\", \"Tc\", 43, Tc_saw, Tc_ice, Tc_naw), element_type(\"ruthenium\", \"Ru\", 44, Ru_saw, Ru_ice, Ru_naw), element_type(\"rhodium\", \"Rh\", 45, Rh_saw, Rh_ice, Rh_naw), element_type(\"palladium\", \"Pd\", 46, Pd_saw, Pd_ice, Pd_naw), element_type(\"silver\", \"Ag\", 47, Ag_saw, Ag_ice, Ag_naw), element_type(\"cadmium\", \"Cd\", 48, Cd_saw, Cd_ice, Cd_naw), element_type(\"indium\", \"In\", 49, In_saw, In_ice, In_naw), element_type(\"tin\", \"Sn\", 50, Sn_saw, Sn_ice, Sn_naw), element_type(\"antimony\", \"Sb\", 51, Sb_saw, Sb_ice, Sb_naw), element_type(\"tellurium\", \"Te\", 52, Te_saw, Te_ice, Te_naw), element_type(\"iodine\", \"I\", 53, I_saw, I_ice, I_naw), element_type(\"xenon\", \"Xe\", 54, Xe_saw, Xe_ice, Xe_naw), element_type(\"caesium\", \"Cs\", 55, Cs_saw, Cs_ice, Cs_naw), element_type(\"barium\", \"Ba\", 56, Ba_saw, Ba_ice, Ba_naw), element_type(\"lanthanum\", \"La\", 57, La_saw, La_ice, La_naw), element_type(\"cerium\", \"Ce\", 58, Ce_saw, Ce_ice, Ce_naw), element_type(\"praseodymium\", \"Pr\", 59, Pr_saw, Pr_ice, Pr_naw), element_type(\"neodymium\", \"Nd\", 60, Nd_saw, Nd_ice, Nd_naw), element_type(\"promethium\", \"Pm\", 61, Pm_saw, Pm_ice, Pm_naw), element_type(\"samarium\", \"Sm\", 62, Sm_saw, Sm_ice, Sm_naw), element_type(\"europium\", \"Eu\", 63, Eu_saw, Eu_ice, Eu_naw), element_type(\"gadolinium\", \"Gd\", 64, Gd_saw, Gd_ice, Gd_naw), element_type(\"terbium\", \"Tb\", 65, Tb_saw, Tb_ice, Tb_naw), element_type(\"dysprosium\", \"Dy\", 66, Dy_saw, Dy_ice, Dy_naw), element_type(\"holmium\", \"Ho\", 67, Ho_saw, Ho_ice, Ho_naw), element_type(\"erbium\", \"Er\", 68, Er_saw, Er_ice, Er_naw), element_type(\"thulium\", \"Tm\", 69, Tm_saw, Tm_ice, Tm_naw), element_type(\"ytterbium\", \"Yb\", 70, Yb_saw, Yb_ice, Yb_naw), element_type(\"lutetium\", \"Lu\", 71, Lu_saw, Lu_ice, Lu_naw), element_type(\"hafnium\", \"Hf\", 72, Hf_saw, Hf_ice, Hf_naw), element_type(\"tantalum\", \"Ta\", 73, Ta_saw, Ta_ice, Ta_naw), element_type(\"tungsten\", \"W\", 74, W_saw, W_ice, W_naw), element_type(\"rhenium\", \"Re\", 75, Re_saw, Re_ice, Re_naw), element_type(\"osmium\", \"Os\", 76, Os_saw, Os_ice, Os_naw), element_type(\"iridium\", \"Ir\", 77, Ir_saw, Ir_ice, Ir_naw), element_type(\"platinum\", \"Pt\", 78, Pt_saw, Pt_ice, Pt_naw), element_type(\"gold\", \"Au\", 79, Au_saw, Au_ice, Au_naw), element_type(\"mercury\", \"Hg\", 80, Hg_saw, Hg_ice, Hg_naw), element_type(\"thallium\", \"Tl\", 81, Tl_saw, Tl_ice, Tl_naw), element_type(\"lead\", \"Pb\", 82, Pb_saw, Pb_ice, Pb_naw), element_type(\"bismuth\", \"Bi\", 83, Bi_saw, Bi_ice, Bi_naw), element_type(\"polonium\", \"Po\", 84, Po_saw, Po_ice, Po_naw), element_type(\"astatine\", \"At\", 85, At_saw, At_ice, At_naw), element_type(\"radon\", \"Rn\", 86, Rn_saw, Rn_ice, Rn_naw), element_type(\"francium\", \"Fr\", 87, Fr_saw, Fr_ice, Fr_naw), element_type(\"radium\", \"Ra\", 88, Ra_saw, Ra_ice, Ra_naw), element_type(\"actinium\", \"Ac\", 89, Ac_saw, Ac_ice, Ac_naw), element_type(\"thorium\", \"Th\", 90, Th_saw, Th_ice, Th_naw), element_type(\"protactinium\", \"Pa\", 91, Pa_saw, Pa_ice, Pa_naw), element_type(\"uranium\", \"U\", 92, U_saw, U_ice, U_naw), element_type(\"neptunium\", \"Np\", 93, Np_saw, ice_nan, Np_naw), element_type(\"plutonium\", \"Pu\", 94, Pu_saw, ice_nan, Pu_naw), element_type(\"americium\", \"Am\", 95, Am_saw, ice_nan, Am_naw), element_type(\"curium\", \"Cm\", 96, Cm_saw, ice_nan, Cm_naw), element_type(\"berkelium\", \"Bk\", 97, Bk_saw, ice_nan, Bk_naw), element_type(\"californium\", \"Cf\", 98, Cf_saw, ice_nan, Cf_naw), element_type(\"einsteinium\", \"Es\", 99, Es_saw, ice_nan, Es_naw), element_type(\"fermium\", \"Fm\", 100, Fm_saw, ice_nan, Fm_naw), element_type(\"mendelevium\", \"Md\", 101, Md_saw, ice_nan, Md_naw), element_type(\"nobelium\", \"No\", 102, No_saw, ice_nan, No_naw), element_type(\"lawrencium\", \"Lr\", 103, Lr_saw, ice_nan, Lr_naw), element_type(\"rutherfordium\", \"Rf\", 104, Rf_saw, ice_nan, Rf_naw), element_type(\"dubnium\", \"Db\", 105, Db_saw, ice_nan, Db_naw), element_type(\"seaborgium\", \"Sg\", 106, Sg_saw, ice_nan, Sg_naw), element_type(\"bohrium\", \"Bh\", 107, Bh_saw, ice_nan, Bh_naw), element_type(\"hassium\", \"Hs\", 108, Hs_saw, ice_nan, Hs_naw), element_type(\"meitnerium\", \"Mt\", 109, Mt_saw, ice_nan, Mt_naw), element_type(\"darmstadtium\", \"Ds\", 110, Ds_saw, ice_nan, Ds_naw), element_type(\"roentgenium\", \"Rg\", 111, Rg_saw, ice_nan, Rg_naw), element_type(\"copernicium\", \"Cn\", 112, Cn_saw, ice_nan, Cn_naw), element_type(\"nihonium\", \"Nh\", 113, Nh_saw, ice_nan, Nh_naw), element_type(\"flerovium\", \"Fl\", 114, Fl_saw, ice_nan, Fl_naw), element_type(\"moscovium\", \"Mc\", 115, Mc_saw, ice_nan, Mc_naw), element_type(\"livermorium\", \"Lv\", 116, Lv_saw, ice_nan, Lv_naw), element_type(\"tennesine\", \"Ts\", 117, Ts_saw, ice_nan, Ts_naw), element_type(\"organesson\", \"Og\", 118, Og_saw, ice_nan, Og_naw)]","tags":"","loc":"module/ciaaw__pte.html"},{"title":"ciaaw__ice – ciaaw","text":"Ciaaw ice - Autogenerated\nSee specs Uses ciaaw__types ciaaw__common module~~ciaaw__ice~~UsesGraph module~ciaaw__ice ciaaw__ice module~ciaaw__common ciaaw__common module~ciaaw__ice->module~ciaaw__common module~ciaaw__types ciaaw__types module~ciaaw__ice->module~ciaaw__types ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__ice~~UsedByGraph module~ciaaw__ice ciaaw__ice module~ciaaw__pte ciaaw__pte module~ciaaw__pte->module~ciaaw__ice module~ciaaw ciaaw module~ciaaw->module~ciaaw__pte module~ciaaw__api ciaaw__api module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__api->module~ciaaw__pte module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial type( ice_type ), public, parameter :: Ac_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ag_ice = ice_type(2, transpose(reshape([107.0_dp, 0.518392_dp, 51e-6_dp, 109.0_dp, 0.481608_dp, 61e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Al_ice = ice_type(1, transpose(reshape([27.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ar_ice = ice_type(3, transpose(reshape([36.0_dp, 0.0033361_dp, 35e-7_dp, 38.0_dp, 0.0006289_dp, 12e-7_dp, 40.0_dp, 0.9960350_dp, 42e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: As_ice = ice_type(1, transpose(reshape([75.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: At_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Au_ice = ice_type(1, transpose(reshape([197.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: B_ice = ice_type(2, transpose(reshape([10.0_dp, 0.1982_dp, 2e-4_dp, 11.0_dp, 0.8018_dp, 2e-4_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ba_ice = ice_type(7, transpose(reshape([130.0_dp, 0.001058_dp, 2e-6_dp, 132.0_dp, 0.001012_dp, 2e-6_dp, 134.0_dp, 0.024170_dp, 30e-6_dp, 135.0_dp, 0.065920_dp, 20e-6_dp, 136.0_dp, 0.078532_dp, 40e-6_dp, 137.0_dp, 0.112317_dp, 40e-6_dp, 138.0_dp, 0.716991_dp, 70e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Be_ice = ice_type(1, transpose(reshape([9.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Bi_ice = ice_type(1, transpose(reshape([209.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Br_ice = ice_type(2, transpose(reshape([79.0_dp, 0.50686_dp, 25e-5_dp, 81.0_dp, 0.49314_dp, 36e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: C_ice = ice_type(2, transpose(reshape([12.0_dp, 0.988922_dp, 28e-6_dp, 13.0_dp, 0.011078_dp, 28e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ca_ice = ice_type(6, transpose(reshape([40.0_dp, 0.96941_dp, 6e-5_dp, 42.0_dp, 0.00647_dp, 3e-5_dp, 43.0_dp, 0.00135_dp, 2e-5_dp, 44.0_dp, 0.02086_dp, 4e-5_dp, 46.0_dp, 0.00004_dp, 1e-5_dp, 48.0_dp, 0.00187_dp, 1e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Cd_ice = ice_type(8, transpose(reshape([106.0_dp, 0.01249_dp, 5e-5_dp, 108.0_dp, 0.00890_dp, 2e-5_dp, 110.0_dp, 0.12485_dp, 14e-5_dp, 111.0_dp, 0.12804_dp, 8e-5_dp, 112.0_dp, 0.24117_dp, 3e-5_dp, 113.0_dp, 0.12225_dp, 1e-5_dp, 114.0_dp, 0.28729_dp, 18e-5_dp, 116.0_dp, 0.07501_dp, 18e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ce_ice = ice_type(4, transpose(reshape([136.0_dp, 0.00186_dp, 1e-5_dp, 138.0_dp, 0.00251_dp, 1e-5_dp, 140.0_dp, 0.88449_dp, 34e-5_dp, 142.0_dp, 0.11114_dp, 34e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Cl_ice = ice_type(2, transpose(reshape([35.0_dp, 0.757647_dp, 38e-7_dp, 37.0_dp, 0.242353_dp, 38e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Co_ice = ice_type(1, transpose(reshape([59.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Cr_ice = ice_type(4, transpose(reshape([50.0_dp, 0.043452_dp, 85e-6_dp, 52.0_dp, 0.837895_dp, 117e-6_dp, 53.0_dp, 0.095006_dp, 110e-6_dp, 54.0_dp, 0.023647_dp, 48e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Cs_ice = ice_type(1, transpose(reshape([133.0_dp, 1.000000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Cu_ice = ice_type(2, transpose(reshape([63.0_dp, 0.69174_dp, 20e-5_dp, 65.0_dp, 0.30826_dp, 20e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Dy_ice = ice_type(7, transpose(reshape([156.0_dp, 0.00056_dp, 2e-5_dp, 158.0_dp, 0.00095_dp, 2e-5_dp, 160.0_dp, 0.02329_dp, 12e-5_dp, 161.0_dp, 0.18889_dp, 28e-5_dp, 162.0_dp, 0.25475_dp, 24e-5_dp, 163.0_dp, 0.24896_dp, 28e-5_dp, 164.0_dp, 0.28260_dp, 36e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Er_ice = ice_type(6, transpose(reshape([162.0_dp, 0.001391_dp, 30e-6_dp, 164.0_dp, 0.016006_dp, 20e-6_dp, 166.0_dp, 0.335014_dp, 240e-6_dp, 167.0_dp, 0.228724_dp, 60e-6_dp, 168.0_dp, 0.269852_dp, 120e-6_dp, 170.0_dp, 0.149013_dp, 240e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Eu_ice = ice_type(2, transpose(reshape([151.0_dp, 0.47810_dp, 42e-5_dp, 153.0_dp, 0.52190_dp, 42e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: F_ice = ice_type(1, transpose(reshape([19.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Fe_ice = ice_type(4, transpose(reshape([54.0_dp, 0.058450_dp, 230e-6_dp, 56.0_dp, 0.917540_dp, 240e-6_dp, 57.0_dp, 0.021191_dp, 65e-6_dp, 58.0_dp, 0.002819_dp, 27e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Fr_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ga_ice = ice_type(2, transpose(reshape([69.0_dp, 0.601079_dp, 62e-6_dp, 71.0_dp, 0.398921_dp, 62e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Gd_ice = ice_type(7, transpose(reshape([152.0_dp, 0.002029_dp, 4e-6_dp, 154.0_dp, 0.021809_dp, 4e-6_dp, 155.0_dp, 0.147998_dp, 17e-6_dp, 156.0_dp, 0.204664_dp, 6e-6_dp, 157.0_dp, 0.156518_dp, 9e-6_dp, 158.0_dp, 0.248347_dp, 16e-6_dp, 160.0_dp, 0.218635_dp, 7e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ge_ice = ice_type(5, transpose(reshape([70.0_dp, 0.20526_dp, 46e-5_dp, 72.0_dp, 0.27446_dp, 15e-5_dp, 73.0_dp, 0.07760_dp, 25e-5_dp, 74.0_dp, 0.36523_dp, 63e-5_dp, 76.0_dp, 0.07745_dp, 35e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: H_ice = ice_type(2, transpose(reshape([1.0_dp, 0.99984426_dp, 5e-8_dp, 2.0_dp, 0.00015574_dp, 5e-8_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: He_ice = ice_type(2, transpose(reshape([3.0_dp, 0.000001343_dp, 13e-9_dp, 4.0_dp, 0.999998657_dp, 13e-9_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Hf_ice = ice_type(6, transpose(reshape([174.0_dp, 0.001620_dp, 9e-5_dp, 176.0_dp, 0.052604_dp, 56e-6_dp, 177.0_dp, 0.185953_dp, 12e-6_dp, 178.0_dp, 0.272811_dp, 22e-6_dp, 179.0_dp, 0.136210_dp, 9e-6_dp, 180.0_dp, 0.350802_dp, 26e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Hg_ice = ice_type(7, transpose(reshape([196.0_dp, 0.00155_dp, 4e-5_dp, 198.0_dp, 0.10038_dp, 10e-5_dp, 199.0_dp, 0.16938_dp, 9e-5_dp, 200.0_dp, 0.23138_dp, 6e-5_dp, 201.0_dp, 0.13170_dp, 70e-5_dp, 202.0_dp, 0.29743_dp, 9e-5_dp, 204.0_dp, 0.06818_dp, 6e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ho_ice = ice_type(1, transpose(reshape([165.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: I_ice = ice_type(1, transpose(reshape([127.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: In_ice = ice_type(2, transpose(reshape([113.0_dp, 0.04271_dp, 17e-5_dp, 115.0_dp, 0.95719_dp, 17e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ir_ice = ice_type(2, transpose(reshape([191.0_dp, 0.37272_dp, 15e-5_dp, 193.0_dp, 0.62728_dp, 15e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: K_ice = ice_type(3, transpose(reshape([39.0_dp, 0.932581_dp, 29e-6_dp, 40.0_dp, 0.0001167_dp, 4e-7_dp, 41.0_dp, 0.067302_dp, 29e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Kr_ice = ice_type(6, transpose(reshape([78.0_dp, 0.0035518_dp, 32e-7_dp, 80.0_dp, 0.0228560_dp, 96e-7_dp, 82.0_dp, 0.115930_dp, 62e-6_dp, 83.0_dp, 0.114996_dp, 58e-6_dp, 84.0_dp, 0.569877_dp, 58e-6_dp, 86.0_dp, 0.172790_dp, 32e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: La_ice = ice_type(2, transpose(reshape([138.0_dp, 0.0008881_dp, 24e-7_dp, 139.0_dp, 0.9991119_dp, 24e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Li_ice = ice_type(2, transpose(reshape([6.0_dp, 0.07589_dp, 24e-5_dp, 7.0_dp, 0.92411_dp, 24e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Lu_ice = ice_type(2, transpose(reshape([175.0_dp, 0.974013_dp, 12e-5_dp, 176.0_dp, 0.025987_dp, 12e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Mg_ice = ice_type(3, transpose(reshape([24.0_dp, 0.78951_dp, 12e-5_dp, 25.0_dp, 0.10020_dp, 8e-5_dp, 26.0_dp, 0.11029_dp, 10e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Mn_ice = ice_type(1, transpose(reshape([55.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Mo_ice = ice_type(7, transpose(reshape([92.0_dp, 0.14649_dp, 17e-5_dp, 94.0_dp, 0.09187_dp, 5e-5_dp, 95.0_dp, 0.15873_dp, 5e-5_dp, 96.0_dp, 0.16673_dp, 2e-5_dp, 97.0_dp, 0.09582_dp, 3e-5_dp, 98.0_dp, 0.24292_dp, 14e-5_dp, 100.0_dp, 0.09744_dp, 10e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: N_ice = ice_type(2, transpose(reshape([14.0_dp, 0.996337_dp, 4e-6_dp, 15.0_dp, 0.003663_dp, 4e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Na_ice = ice_type(1, transpose(reshape([23.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Nb_ice = ice_type(1, transpose(reshape([93.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Nd_ice = ice_type(7, transpose(reshape([142.0_dp, 0.27153_dp, 19e-5_dp, 143.0_dp, 0.12173_dp, 18e-5_dp, 144.0_dp, 0.23798_dp, 12e-5_dp, 145.0_dp, 0.08293_dp, 7e-5_dp, 146.0_dp, 0.17189_dp, 17e-5_dp, 148.0_dp, 0.05756_dp, 8e-5_dp, 150.0_dp, 0.05638_dp, 9e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ne_ice = ice_type(3, transpose(reshape([20.0_dp, 0.904838_dp, 90e-6_dp, 21.0_dp, 0.002696_dp, 5e-6_dp, 22.0_dp, 0.092465_dp, 90e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ni_ice = ice_type(5, transpose(reshape([58.0_dp, 0.680769_dp, 59e-6_dp, 60.0_dp, 0.262231_dp, 51e-6_dp, 61.0_dp, 0.011399_dp, 4e-6_dp, 62.0_dp, 0.036345_dp, 11e-6_dp, 64.0_dp, 0.009256_dp, 6e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: O_ice = ice_type(3, transpose(reshape([16.0_dp, 0.9976206_dp, 9e-7_dp, 17.0_dp, 0.0003790_dp, 9e-7_dp, 18.0_dp, 0.0020004_dp, 5e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Os_ice = ice_type(7, transpose(reshape([184.0_dp, 0.000197_dp, 5e-6_dp, 186.0_dp, 0.015859_dp, 44e-6_dp, 187.0_dp, 0.019644_dp, 12e-6_dp, 188.0_dp, 0.132434_dp, 19e-6_dp, 189.0_dp, 0.161466_dp, 16e-6_dp, 190.0_dp, 0.262584_dp, 14e-6_dp, 192.0_dp, 0.407815_dp, 22e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: P_ice = ice_type(1, transpose(reshape([31.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pa_ice = ice_type(1, transpose(reshape([231.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pb_ice = ice_type(4, transpose(reshape([204.0_dp, 0.014245_dp, 12e-6_dp, 206.0_dp, 0.241447_dp, 57e-6_dp, 207.0_dp, 0.220827_dp, 27e-6_dp, 208.0_dp, 0.523481_dp, 86e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pd_ice = ice_type(6, transpose(reshape([102.0_dp, 0.0102_dp, 1e-4_dp, 104.0_dp, 0.1114_dp, 5e-4_dp, 105.0_dp, 0.2233_dp, 5e-4_dp, 106.0_dp, 0.2733_dp, 2e-6_dp, 108.0_dp, 0.2646_dp, 6e-6_dp, 110.0_dp, 0.1172_dp, 6e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pm_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Po_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pr_ice = ice_type(1, transpose(reshape([141.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pt_ice = ice_type(6, transpose(reshape([190.0_dp, 0.00012_dp, 1e-5_dp, 192.0_dp, 0.00782_dp, 8e-5_dp, 194.0_dp, 0.32864_dp, 140e-5_dp, 195.0_dp, 0.33775_dp, 79e-5_dp, 196.0_dp, 0.25211_dp, 110e-5_dp, 198.0_dp, 0.07357_dp, 43e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ra_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Rb_ice = ice_type(2, transpose(reshape([85.0_dp, 0.721654_dp, 132e-6_dp, 87.0_dp, 0.278346_dp, 132e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Re_ice = ice_type(2, transpose(reshape([185.0_dp, 0.37398_dp, 16e-5_dp, 187.0_dp, 0.62602_dp, 16e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Rh_ice = ice_type(1, transpose(reshape([103.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Rn_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ru_ice = ice_type(7, transpose(reshape([96.0_dp, 0.055420_dp, 1e-6_dp, 98.0_dp, 0.018688_dp, 2e-6_dp, 99.0_dp, 0.127579_dp, 6e-6_dp, 100.0_dp, 0.125985_dp, 4e-6_dp, 101.0_dp, 0.170600_dp, 10e-6_dp, 102.0_dp, 0.315519_dp, 11e-6_dp, 104.0_dp, 0.186210_dp, 11e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: S_ice = ice_type(4, transpose(reshape([32.0_dp, 0.9504074_dp, 88e-7_dp, 33.0_dp, 0.0074869_dp, 60e-7_dp, 34.0_dp, 0.0419599_dp, 66e-7_dp, 36.0_dp, 0.0001458_dp, 9e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Sb_ice = ice_type(2, transpose(reshape([121.0_dp, 0.57213_dp, 32e-5_dp, 123.0_dp, 0.42787_dp, 32e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Sc_ice = ice_type(1, transpose(reshape([45.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Se_ice = ice_type(6, transpose(reshape([74.0_dp, 0.00863_dp, 3e-5_dp, 76.0_dp, 0.09220_dp, 6e-5_dp, 77.0_dp, 0.07594_dp, 4e-5_dp, 78.0_dp, 0.23685_dp, 14e-5_dp, 80.0_dp, 0.49813_dp, 16e-5_dp, 82.0_dp, 0.08825_dp, 8e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Si_ice = ice_type(3, transpose(reshape([28.0_dp, 0.9222968_dp, 44e-7_dp, 29.0_dp, 0.0468316_dp, 32e-7_dp, 30.0_dp, 0.0308716_dp, 32e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Sm_ice = ice_type(7, transpose(reshape([144.0_dp, 0.03078_dp, 14e-5_dp, 147.0_dp, 0.15004_dp, 54e-5_dp, 148.0_dp, 0.11248_dp, 36e-5_dp, 149.0_dp, 0.13824_dp, 40e-5_dp, 150.0_dp, 0.07365_dp, 34e-5_dp, 152.0_dp, 0.26740_dp, 36e-5_dp, 154.0_dp, 0.22741_dp, 56e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Sn_ice = ice_type(10, transpose(reshape([112.0_dp, 0.00973_dp, 3e-5_dp, 114.0_dp, 0.00659_dp, 3e-5_dp, 115.0_dp, 0.00339_dp, 3e-5_dp, 116.0_dp, 0.14536_dp, 31e-5_dp, 117.0_dp, 0.07676_dp, 22e-5_dp, 118.0_dp, 0.24223_dp, 30e-5_dp, 119.0_dp, 0.08585_dp, 13e-5_dp, 120.0_dp, 0.32593_dp, 20e-5_dp, 122.0_dp, 0.04629_dp, 9e-5_dp, 124.0_dp, 0.05789_dp, 17e-5_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Sr_ice = ice_type(4, transpose(reshape([84.0_dp, 0.005574_dp, 16e-6_dp, 86.0_dp, 0.098566_dp, 34e-6_dp, 87.0_dp, 0.070015_dp, 26e-6_dp, 88.0_dp, 0.825845_dp, 66e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ta_ice = ice_type(2, transpose(reshape([180.0_dp, 0.0001201_dp, 8e-7_dp, 181.0_dp, 0.9998799_dp, 8e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Tb_ice = ice_type(1, transpose(reshape([159.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Tc_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Te_ice = ice_type(8, transpose(reshape([120.0_dp, 0.00096_dp, 1e-5_dp, 122.0_dp, 0.02603_dp, 1e-5_dp, 123.0_dp, 0.00908_dp, 1e-5_dp, 124.0_dp, 0.04816_dp, 2e-5_dp, 125.0_dp, 0.07139_dp, 2e-5_dp, 126.0_dp, 0.18952_dp, 4e-5_dp, 128.0_dp, 0.31687_dp, 4e-5_dp, 130.0_dp, 0.33799_dp, 3e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Th_ice = ice_type(2, transpose(reshape([230.0_dp, 0.00001138_dp, 2e-8_dp, 232.0_dp, 0.99998862_dp, 2e-8_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ti_ice = ice_type(5, transpose(reshape([46.0_dp, 0.08249_dp, 21e-5_dp, 47.0_dp, 0.07437_dp, 14e-5_dp, 48.0_dp, 0.73720_dp, 20e-5_dp, 49.0_dp, 0.05409_dp, 10e-5_dp, 50.0_dp, 0.05185_dp, 13e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Tl_ice = ice_type(2, transpose(reshape([203.0_dp, 0.29524_dp, 9e-5_dp, 205.0_dp, 0.70476_dp, 9e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Tm_ice = ice_type(1, transpose(reshape([169.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: U_ice = ice_type(3, transpose(reshape([234.0_dp, 0.0000542_dp, 4e-7_dp, 235.0_dp, 0.0072041_dp, 36e-7_dp, 238.0_dp, 0.9927417_dp, 36e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: V_ice = ice_type(2, transpose(reshape([50.0_dp, 0.002497_dp, 6e-6_dp, 51.0_dp, 0.997503_dp, 6e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: W_ice = ice_type(5, transpose(reshape([180.0_dp, 0.001198_dp, 2e-6_dp, 182.0_dp, 0.264985_dp, 49e-6_dp, 183.0_dp, 0.143136_dp, 6e-6_dp, 184.0_dp, 0.306422_dp, 13e-6_dp, 186.0_dp, 0.284259_dp, 62e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Xe_ice = ice_type(9, transpose(reshape([124.0_dp, 0.000952_dp, 3e-6_dp, 126.0_dp, 0.000890_dp, 2e-6_dp, 128.0_dp, 0.019102_dp, 8e-6_dp, 129.0_dp, 0.264006_dp, 82e-6_dp, 130.0_dp, 0.040710_dp, 13e-6_dp, 131.0_dp, 0.212324_dp, 30e-6_dp, 132.0_dp, 0.269086_dp, 33e-6_dp, 134.0_dp, 0.104357_dp, 21e-6_dp, 136.0_dp, 0.088573_dp, 44e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Y_ice = ice_type(1, transpose(reshape([89.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Yb_ice = ice_type(7, transpose(reshape([168.0_dp, 0.00123_dp, 1e-5_dp, 170.0_dp, 0.02982_dp, 6e-5_dp, 171.0_dp, 0.14086_dp, 20e-5_dp, 172.0_dp, 0.21686_dp, 19e-5_dp, 173.0_dp, 0.16103_dp, 9e-5_dp, 174.0_dp, 0.32025_dp, 12e-5_dp, 176.0_dp, 0.12995_dp, 13e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Zn_ice = ice_type(5, transpose(reshape([64.0_dp, 0.491704_dp, 83e-6_dp, 66.0_dp, 0.277306_dp, 110e-6_dp, 67.0_dp, 0.040401_dp, 18e-6_dp, 68.0_dp, 0.184483_dp, 69e-6_dp, 70.0_dp, 0.006106_dp, 11e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Zr_ice = ice_type(5, transpose(reshape([90.0_dp, 0.51452_dp, 9e-5_dp, 91.0_dp, 0.11223_dp, 12e-5_dp, 92.0_dp, 0.17146_dp, 7e-5_dp, 94.0_dp, 0.17380_dp, 12e-5_dp, 96.0_dp, 0.02799_dp, 5e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10])))","tags":"","loc":"module/ciaaw__ice.html"},{"title":"ciaaw__capi – ciaaw","text":"C API.\nSee specs Uses ciaaw__common iso_c_binding ciaaw__api module~~ciaaw__capi~~UsesGraph module~ciaaw__capi ciaaw__capi iso_c_binding iso_c_binding module~ciaaw__capi->iso_c_binding module~ciaaw__api ciaaw__api module~ciaaw__capi->module~ciaaw__api module~ciaaw__common ciaaw__common module~ciaaw__capi->module~ciaaw__common module~ciaaw__api->module~ciaaw__common ieee_arithmetic ieee_arithmetic module~ciaaw__api->ieee_arithmetic module~ciaaw__pte ciaaw__pte module~ciaaw__api->module~ciaaw__pte module~ciaaw__types ciaaw__types module~ciaaw__api->module~ciaaw__types module~ciaaw__version ciaaw__version module~ciaaw__api->module~ciaaw__version module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__pte->module~ciaaw__common module~ciaaw__pte->module~ciaaw__types module~ciaaw__ice ciaaw__ice module~ciaaw__pte->module~ciaaw__ice module~ciaaw__naw ciaaw__naw module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type module~ciaaw__ice->module~ciaaw__common module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw->module~ciaaw__common module~ciaaw__naw->module~ciaaw__types module~ciaaw__saw->module~ciaaw__common module~ciaaw__saw->module~ciaaw__types Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__capi~~UsedByGraph module~ciaaw__capi ciaaw__capi module~ciaaw ciaaw module~ciaaw->module~ciaaw__capi Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Functions public  function capi_get_ice (s, n, A, uncertainty) result(res) bind(C, name=\"ciaaw_get_ice\")) C API for get_ice Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. integer(kind=c_int), intent(in), value :: A Mass number. logical(kind=c_bool), intent(in), value :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=c_double) public  function capi_get_ice_values (s, n) result(res) bind(C, name=\"ciaaw_get_ice_values\")) C API for get_ice_values Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value type(c_ptr) public  function capi_get_naw (s, n, A, uncertainty) result(res) bind(C, name=\"ciaaw_get_naw\")) C API for get_naw Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. integer(kind=c_int), intent(in), value :: A Mass number. logical(kind=c_bool), intent(in), value :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=c_double) public  function capi_get_nice (s, n) result(res) bind(C, name=\"ciaaw_get_nice\")) C API for get_nice Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value integer(kind=c_int) public  function capi_get_nnaw (s, n) result(res) bind(C, name=\"ciaaw_get_nnaw\")) C API for get_nnaw Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value integer(kind=c_int) public  function capi_get_saw (s, n, abridged, uncertainty) result(res) bind(C, name=\"ciaaw_get_saw\")) C API for get_saw . Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. logical(kind=c_bool), intent(in), value :: abridged Flag for setting if abridged value is desired. logical(kind=c_bool), intent(in), value :: uncertainty Flag for setting if the uncertainty is desired instead of the value. Return Value real(kind=c_double) public  function capi_get_version () result(cptr) bind(c, name='ciaaw_get_version')) C API for get_version . Arguments None Return Value type(c_ptr) C pointer to a string indicating the version.","tags":"","loc":"module/ciaaw__capi.html"},{"title":"ciaaw__naw – ciaaw","text":"Ciaaw naw - Autogenerated\nSee specs Uses ciaaw__types ciaaw__common module~~ciaaw__naw~~UsesGraph module~ciaaw__naw ciaaw__naw module~ciaaw__common ciaaw__common module~ciaaw__naw->module~ciaaw__common module~ciaaw__types ciaaw__types module~ciaaw__naw->module~ciaaw__types ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__naw~~UsedByGraph module~ciaaw__naw ciaaw__naw module~ciaaw__pte ciaaw__pte module~ciaaw__pte->module~ciaaw__naw module~ciaaw ciaaw module~ciaaw->module~ciaaw__pte module~ciaaw__api ciaaw__api module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__api->module~ciaaw__pte module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial type( naw_type ), public, parameter :: Ac_naw = naw_type(33, transpose(reshape([205.0_dp, 205.015144152_dp, 0.000063682_dp, 206.0_dp, 206.014476477_dp, 0.000069874_dp, 207.0_dp, 207.011965967_dp, 0.000060384_dp, 208.0_dp, 208.011552251_dp, 0.000069225_dp, 209.0_dp, 209.009495375_dp, 0.000059953_dp, 210.0_dp, 210.009408625_dp, 0.000066782_dp, 211.0_dp, 211.007668846_dp, 0.000057706_dp, 212.0_dp, 212.007836442_dp, 0.000023492_dp, 213.0_dp, 213.006592665_dp, 0.000012522_dp, 214.0_dp, 214.006906400_dp, 0.000014547_dp, 215.0_dp, 215.006474061_dp, 0.000013318_dp, 216.0_dp, 216.008749101_dp, 0.000009908_dp, 217.0_dp, 217.009342325_dp, 0.000012048_dp, 218.0_dp, 218.011648860_dp, 0.000061853_dp, 219.0_dp, 219.012420425_dp, 0.000055263_dp, 220.0_dp, 220.014754527_dp, 0.000006579_dp, 221.0_dp, 221.015599721_dp, 0.000061086_dp, 222.0_dp, 222.017844232_dp, 0.000005044_dp, 223.0_dp, 223.019135982_dp, 0.000007457_dp, 224.0_dp, 224.021722249_dp, 0.000004389_dp, 225.0_dp, 225.023228601_dp, 0.000005107_dp, 226.0_dp, 226.026096999_dp, 0.000003327_dp, 227.0_dp, 227.027750594_dp, 0.000002068_dp, 228.0_dp, 228.031019685_dp, 0.000002247_dp, 229.0_dp, 229.032947000_dp, 0.000013000_dp, 230.0_dp, 230.036327000_dp, 0.000017000_dp, 231.0_dp, 231.038393000_dp, 0.000014000_dp, 232.0_dp, 232.042034000_dp, 0.000014000_dp, 233.0_dp, 233.044346000_dp, 0.000014000_dp, 234.0_dp, 234.048139000_dp, 0.000015000_dp, 235.0_dp, 235.050840000_dp, 0.000015000_dp, 236.0_dp, 236.054988000_dp, 0.000041000_dp, 237.0_dp, 237.057993_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ag_naw = naw_type(42, transpose(reshape([92.0_dp, 91.959710_dp, 0.000429_dp, 93.0_dp, 92.950188_dp, 0.000430_dp, 94.0_dp, 93.943744_dp, 0.000429_dp, 95.0_dp, 94.935688_dp, 0.000429_dp, 96.0_dp, 95.930743903_dp, 0.000096708_dp, 97.0_dp, 96.923881400_dp, 0.000012900_dp, 98.0_dp, 97.921559970_dp, 0.000035327_dp, 99.0_dp, 98.917645766_dp, 0.000006725_dp, 100.0_dp, 99.916115443_dp, 0.000005367_dp, 101.0_dp, 100.912683951_dp, 0.000005193_dp, 102.0_dp, 101.911704538_dp, 0.000008771_dp, 103.0_dp, 102.908960558_dp, 0.000004400_dp, 104.0_dp, 103.908623715_dp, 0.000004527_dp, 105.0_dp, 104.906525604_dp, 0.000004877_dp, 106.0_dp, 105.906663499_dp, 0.000003237_dp, 107.0_dp, 106.905091509_dp, 0.000002556_dp, 108.0_dp, 107.905950245_dp, 0.000002563_dp, 109.0_dp, 108.904755778_dp, 0.000001381_dp, 110.0_dp, 109.906110724_dp, 0.000001380_dp, 111.0_dp, 110.905296827_dp, 0.000001565_dp, 112.0_dp, 111.907048548_dp, 0.000002600_dp, 113.0_dp, 112.906572865_dp, 0.000017866_dp, 114.0_dp, 113.908823029_dp, 0.000004900_dp, 115.0_dp, 114.908767445_dp, 0.000019611_dp, 116.0_dp, 115.911386809_dp, 0.000003500_dp, 117.0_dp, 116.911774086_dp, 0.000014570_dp, 118.0_dp, 117.914595484_dp, 0.000002700_dp, 119.0_dp, 118.915570309_dp, 0.000015783_dp, 120.0_dp, 119.918784765_dp, 0.000004800_dp, 121.0_dp, 120.920125279_dp, 0.000013000_dp, 122.0_dp, 121.923664446_dp, 0.000041000_dp, 123.0_dp, 122.925315060_dp, 0.000035000_dp, 124.0_dp, 123.928899227_dp, 0.000270000_dp, 125.0_dp, 124.930735000_dp, 0.000465000_dp, 126.0_dp, 125.934814_dp, 0.000215_dp, 127.0_dp, 126.937037_dp, 0.000215_dp, 128.0_dp, 127.941266_dp, 0.000322_dp, 129.0_dp, 128.944315_dp, 0.000429_dp, 130.0_dp, 129.950727_dp, 0.000455_dp, 131.0_dp, 130.956253_dp, 0.000537_dp, 132.0_dp, 131.963070_dp, 0.000537_dp, 133.0_dp, 132.968781_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Al_naw = naw_type(23, transpose(reshape([21.0_dp, 21.029082_dp, 0.000644_dp, 22.0_dp, 22.019540_dp, 0.000430_dp, 23.0_dp, 23.007244351_dp, 0.000000370_dp, 24.0_dp, 23.999947598_dp, 0.000000244_dp, 25.0_dp, 24.990428308_dp, 0.000000069_dp, 26.0_dp, 25.986891876_dp, 0.000000071_dp, 27.0_dp, 26.981538408_dp, 0.000000050_dp, 28.0_dp, 27.981910009_dp, 0.000000052_dp, 29.0_dp, 28.980453164_dp, 0.000000370_dp, 30.0_dp, 29.982969171_dp, 0.000002077_dp, 31.0_dp, 30.983949754_dp, 0.000002400_dp, 32.0_dp, 31.988084338_dp, 0.000007700_dp, 33.0_dp, 32.990877685_dp, 0.000007500_dp, 34.0_dp, 33.996781924_dp, 0.000002259_dp, 35.0_dp, 34.999759816_dp, 0.000007900_dp, 36.0_dp, 36.006388000_dp, 0.000160500_dp, 37.0_dp, 37.010531000_dp, 0.000193500_dp, 38.0_dp, 38.017681_dp, 0.000161_dp, 39.0_dp, 39.023070_dp, 0.000322_dp, 40.0_dp, 40.030940_dp, 0.000322_dp, 41.0_dp, 41.037134_dp, 0.000429_dp, 42.0_dp, 42.045078_dp, 0.000537_dp, 43.0_dp, 43.051820_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Am_naw = naw_type(27, transpose(reshape([223.0_dp, 223.045840_dp, 0.000322_dp, 224.0_dp, 224.046442_dp, 0.000429_dp, 225.0_dp, 225.045508_dp, 0.000429_dp, 226.0_dp, 226.046130_dp, 0.000322_dp, 227.0_dp, 227.045282_dp, 0.000215_dp, 228.0_dp, 228.046001_dp, 0.000215_dp, 229.0_dp, 229.045282534_dp, 0.000114169_dp, 230.0_dp, 230.046025_dp, 0.000153_dp, 231.0_dp, 231.045529_dp, 0.000322_dp, 232.0_dp, 232.046613_dp, 0.000322_dp, 233.0_dp, 233.046468_dp, 0.000123_dp, 234.0_dp, 234.047731_dp, 0.000172_dp, 235.0_dp, 235.047906478_dp, 0.000056661_dp, 236.0_dp, 236.049427_dp, 0.000127_dp, 237.0_dp, 237.049995_dp, 0.000064_dp, 238.0_dp, 238.051982531_dp, 0.000063243_dp, 239.0_dp, 239.053022729_dp, 0.000002127_dp, 240.0_dp, 240.055298374_dp, 0.000014849_dp, 241.0_dp, 241.056827343_dp, 0.000001195_dp, 242.0_dp, 242.059547358_dp, 0.000001199_dp, 243.0_dp, 243.061379889_dp, 0.000001490_dp, 244.0_dp, 244.064282892_dp, 0.000001600_dp, 245.0_dp, 245.066452827_dp, 0.000002024_dp, 246.0_dp, 246.069774_dp, 0.000019_dp, 247.0_dp, 247.072092_dp, 0.000107_dp, 248.0_dp, 248.075752_dp, 0.000215_dp, 249.0_dp, 249.078480_dp, 0.000320_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ar_naw = naw_type(26, transpose(reshape([29.0_dp, 29.040761_dp, 0.000471_dp, 30.0_dp, 30.023694_dp, 0.000192_dp, 31.0_dp, 31.012158_dp, 0.000215_dp, 32.0_dp, 31.997637824_dp, 0.000001900_dp, 33.0_dp, 32.989925545_dp, 0.000000430_dp, 34.0_dp, 33.980270092_dp, 0.000000083_dp, 35.0_dp, 34.975257719_dp, 0.000000730_dp, 36.0_dp, 35.967545106_dp, 0.000000028_dp, 37.0_dp, 36.966776301_dp, 0.000000221_dp, 38.0_dp, 37.962732102_dp, 0.000000209_dp, 39.0_dp, 38.964313037_dp, 0.000005367_dp, 40.0_dp, 39.96238312204_dp, 0.00000000234_dp, 41.0_dp, 40.964500570_dp, 0.000000372_dp, 42.0_dp, 41.963045737_dp, 0.000006200_dp, 43.0_dp, 42.965636056_dp, 0.000005700_dp, 44.0_dp, 43.964923814_dp, 0.000001700_dp, 45.0_dp, 44.968039731_dp, 0.000000550_dp, 46.0_dp, 45.968039244_dp, 0.000002500_dp, 47.0_dp, 46.972767112_dp, 0.000001300_dp, 48.0_dp, 47.976001000_dp, 0.000018000_dp, 49.0_dp, 48.981685_dp, 0.000429_dp, 50.0_dp, 49.985797_dp, 0.000537_dp, 51.0_dp, 50.993033_dp, 0.000429_dp, 52.0_dp, 51.998519_dp, 0.000644_dp, 53.0_dp, 53.007290_dp, 0.000750_dp, 54.0_dp, 54.013484_dp, 0.000859_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: As_naw = naw_type(33, transpose(reshape([60.0_dp, 59.993945_dp, 0.000429_dp, 61.0_dp, 60.981535_dp, 0.000322_dp, 62.0_dp, 61.973784_dp, 0.000322_dp, 63.0_dp, 62.964036_dp, 0.000215_dp, 64.0_dp, 63.957560_dp, 0.000218_dp, 65.0_dp, 64.949611000_dp, 0.000091000_dp, 66.0_dp, 65.944148778_dp, 0.000006100_dp, 67.0_dp, 66.939251110_dp, 0.000000475_dp, 68.0_dp, 67.936774127_dp, 0.000001981_dp, 69.0_dp, 68.932246289_dp, 0.000034352_dp, 70.0_dp, 69.930934642_dp, 0.000001500_dp, 71.0_dp, 70.927113594_dp, 0.000004469_dp, 72.0_dp, 71.926752291_dp, 0.000004383_dp, 73.0_dp, 72.923829086_dp, 0.000004136_dp, 74.0_dp, 73.923928596_dp, 0.000001817_dp, 75.0_dp, 74.921594562_dp, 0.000000948_dp, 76.0_dp, 75.922392011_dp, 0.000000951_dp, 77.0_dp, 76.920647555_dp, 0.000001816_dp, 78.0_dp, 77.921827771_dp, 0.000010498_dp, 79.0_dp, 78.920948419_dp, 0.000005716_dp, 80.0_dp, 79.922474440_dp, 0.000003578_dp, 81.0_dp, 80.922132288_dp, 0.000002838_dp, 82.0_dp, 81.924738731_dp, 0.000004003_dp, 83.0_dp, 82.925206900_dp, 0.000003004_dp, 84.0_dp, 83.929303290_dp, 0.000003403_dp, 85.0_dp, 84.932163658_dp, 0.000003304_dp, 86.0_dp, 85.936701532_dp, 0.000003703_dp, 87.0_dp, 86.940291716_dp, 0.000003204_dp, 88.0_dp, 87.945840_dp, 0.000215_dp, 89.0_dp, 88.950048_dp, 0.000322_dp, 90.0_dp, 89.955995_dp, 0.000429_dp, 91.0_dp, 90.960816_dp, 0.000429_dp, 92.0_dp, 91.967386_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: At_naw = naw_type(39, transpose(reshape([191.0_dp, 191.004148081_dp, 0.000017287_dp, 192.0_dp, 192.003140912_dp, 0.000029922_dp, 193.0_dp, 192.999927725_dp, 0.000023222_dp, 194.0_dp, 193.999230816_dp, 0.000025230_dp, 195.0_dp, 194.996274480_dp, 0.000010276_dp, 196.0_dp, 195.995799034_dp, 0.000032458_dp, 197.0_dp, 196.993177353_dp, 0.000008570_dp, 198.0_dp, 197.992797864_dp, 0.000005265_dp, 199.0_dp, 198.990527715_dp, 0.000005780_dp, 200.0_dp, 199.990351099_dp, 0.000026264_dp, 201.0_dp, 200.988417058_dp, 0.000008786_dp, 202.0_dp, 201.988625686_dp, 0.000029631_dp, 203.0_dp, 202.986942904_dp, 0.000011404_dp, 204.0_dp, 203.987251393_dp, 0.000024335_dp, 205.0_dp, 204.986060546_dp, 0.000012941_dp, 206.0_dp, 205.986645768_dp, 0.000014523_dp, 207.0_dp, 206.985799715_dp, 0.000013318_dp, 208.0_dp, 207.986613011_dp, 0.000009577_dp, 209.0_dp, 208.986168701_dp, 0.000005094_dp, 210.0_dp, 209.987147423_dp, 0.000008261_dp, 211.0_dp, 210.987496226_dp, 0.000002929_dp, 212.0_dp, 211.990737301_dp, 0.000002559_dp, 213.0_dp, 212.992936593_dp, 0.000005258_dp, 214.0_dp, 213.996372331_dp, 0.000004274_dp, 215.0_dp, 214.998651002_dp, 0.000007116_dp, 216.0_dp, 216.002422643_dp, 0.000003837_dp, 217.0_dp, 217.004717794_dp, 0.000005368_dp, 218.0_dp, 218.008695941_dp, 0.000012349_dp, 219.0_dp, 219.011160587_dp, 0.000003474_dp, 220.0_dp, 220.015433000_dp, 0.000015000_dp, 221.0_dp, 221.018017000_dp, 0.000015000_dp, 222.0_dp, 222.022494000_dp, 0.000017000_dp, 223.0_dp, 223.025151000_dp, 0.000015000_dp, 224.0_dp, 224.029749000_dp, 0.000024000_dp, 225.0_dp, 225.032528_dp, 0.000322_dp, 226.0_dp, 226.037209_dp, 0.000322_dp, 227.0_dp, 227.040183_dp, 0.000322_dp, 228.0_dp, 228.044960_dp, 0.000429_dp, 229.0_dp, 229.048191_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Au_naw = naw_type(43, transpose(reshape([168.0_dp, 168.002716_dp, 0.000429_dp, 169.0_dp, 168.998080_dp, 0.000320_dp, 170.0_dp, 169.996024_dp, 0.000216_dp, 171.0_dp, 170.991881533_dp, 0.000022236_dp, 172.0_dp, 171.989996704_dp, 0.000060287_dp, 173.0_dp, 172.986224263_dp, 0.000024458_dp, 174.0_dp, 173.984908_dp, 0.000109_dp, 175.0_dp, 174.981316375_dp, 0.000041399_dp, 176.0_dp, 175.980116925_dp, 0.000035625_dp, 177.0_dp, 176.976869701_dp, 0.000010700_dp, 178.0_dp, 177.976056714_dp, 0.000011000_dp, 179.0_dp, 178.973173666_dp, 0.000012555_dp, 180.0_dp, 179.972489738_dp, 0.000005108_dp, 181.0_dp, 180.970079102_dp, 0.000021445_dp, 182.0_dp, 181.969614433_dp, 0.000020143_dp, 183.0_dp, 182.967588106_dp, 0.000010116_dp, 184.0_dp, 183.967451523_dp, 0.000023912_dp, 185.0_dp, 184.965798871_dp, 0.000002800_dp, 186.0_dp, 185.965952703_dp, 0.000022509_dp, 187.0_dp, 186.964542147_dp, 0.000024153_dp, 188.0_dp, 187.965247966_dp, 0.000002900_dp, 189.0_dp, 188.963948286_dp, 0.000021558_dp, 190.0_dp, 189.964751746_dp, 0.000003700_dp, 191.0_dp, 190.963716452_dp, 0.000005288_dp, 192.0_dp, 191.964817615_dp, 0.000016991_dp, 193.0_dp, 192.964138442_dp, 0.000009311_dp, 194.0_dp, 193.965419051_dp, 0.000002273_dp, 195.0_dp, 194.965037823_dp, 0.000001201_dp, 196.0_dp, 195.966571213_dp, 0.000003179_dp, 197.0_dp, 196.966570103_dp, 0.000000581_dp, 198.0_dp, 197.968243714_dp, 0.000000579_dp, 199.0_dp, 198.968766573_dp, 0.000000581_dp, 200.0_dp, 199.970756558_dp, 0.000028681_dp, 201.0_dp, 200.971657678_dp, 0.000003455_dp, 202.0_dp, 201.973856000_dp, 0.000025000_dp, 203.0_dp, 202.975154492_dp, 0.000003309_dp, 204.0_dp, 203.978110_dp, 0.000215_dp, 205.0_dp, 204.980064_dp, 0.000215_dp, 206.0_dp, 205.984766_dp, 0.000322_dp, 207.0_dp, 206.988577_dp, 0.000322_dp, 208.0_dp, 207.993655_dp, 0.000322_dp, 209.0_dp, 208.997606_dp, 0.000429_dp, 210.0_dp, 210.002877_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: B_naw = naw_type(16, transpose(reshape([6.0_dp, 6.050800_dp, 0.002150_dp, 7.0_dp, 7.029712000_dp, 0.000027000_dp, 8.0_dp, 8.024607315_dp, 0.000001073_dp, 9.0_dp, 9.013329645_dp, 0.000000969_dp, 10.0_dp, 10.012936862_dp, 0.000000016_dp, 11.0_dp, 11.009305166_dp, 0.000000013_dp, 12.0_dp, 12.014352638_dp, 0.000001418_dp, 13.0_dp, 13.017779981_dp, 0.000001073_dp, 14.0_dp, 14.025404010_dp, 0.000022773_dp, 15.0_dp, 15.031087023_dp, 0.000022575_dp, 16.0_dp, 16.039841045_dp, 0.000026373_dp, 17.0_dp, 17.046931399_dp, 0.000219114_dp, 18.0_dp, 18.055601683_dp, 0.000219180_dp, 19.0_dp, 19.064166000_dp, 0.000564000_dp, 20.0_dp, 20.074505644_dp, 0.000586538_dp, 21.0_dp, 21.084147485_dp, 0.000599750_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ba_naw = naw_type(42, transpose(reshape([113.0_dp, 112.957370_dp, 0.000322_dp, 114.0_dp, 113.950718489_dp, 0.000110227_dp, 115.0_dp, 114.947482_dp, 0.000215_dp, 116.0_dp, 115.941621_dp, 0.000215_dp, 117.0_dp, 116.938316403_dp, 0.000268749_dp, 118.0_dp, 117.933226_dp, 0.000215_dp, 119.0_dp, 118.930659683_dp, 0.000214997_dp, 120.0_dp, 119.926044997_dp, 0.000322241_dp, 121.0_dp, 120.924052286_dp, 0.000152333_dp, 122.0_dp, 121.919904000_dp, 0.000030000_dp, 123.0_dp, 122.918781060_dp, 0.000013000_dp, 124.0_dp, 123.915093627_dp, 0.000013416_dp, 125.0_dp, 124.914471840_dp, 0.000011800_dp, 126.0_dp, 125.911250202_dp, 0.000013416_dp, 127.0_dp, 126.911091272_dp, 0.000012192_dp, 128.0_dp, 127.908352446_dp, 0.000001728_dp, 129.0_dp, 128.908683409_dp, 0.000011276_dp, 130.0_dp, 129.906326002_dp, 0.000000308_dp, 131.0_dp, 130.906946315_dp, 0.000000445_dp, 132.0_dp, 131.905061231_dp, 0.000001130_dp, 133.0_dp, 132.906007443_dp, 0.000001065_dp, 134.0_dp, 133.904508249_dp, 0.000000269_dp, 135.0_dp, 134.905688447_dp, 0.000000263_dp, 136.0_dp, 135.904575800_dp, 0.000000262_dp, 137.0_dp, 136.905827207_dp, 0.000000266_dp, 138.0_dp, 137.905247059_dp, 0.000000267_dp, 139.0_dp, 138.908841164_dp, 0.000000271_dp, 140.0_dp, 139.910608231_dp, 0.000008480_dp, 141.0_dp, 140.914403653_dp, 0.000005709_dp, 142.0_dp, 141.916432904_dp, 0.000006355_dp, 143.0_dp, 142.920625149_dp, 0.000007253_dp, 144.0_dp, 143.922954821_dp, 0.000007661_dp, 145.0_dp, 144.927518400_dp, 0.000009100_dp, 146.0_dp, 145.930363200_dp, 0.000001900_dp, 147.0_dp, 146.935303900_dp, 0.000021200_dp, 148.0_dp, 147.938223000_dp, 0.000001600_dp, 149.0_dp, 148.943284000_dp, 0.000002700_dp, 150.0_dp, 149.946441100_dp, 0.000006100_dp, 151.0_dp, 150.951755_dp, 0.000429_dp, 152.0_dp, 151.955330_dp, 0.000429_dp, 153.0_dp, 152.960848_dp, 0.000429_dp, 154.0_dp, 153.964659_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Be_naw = naw_type(12, transpose(reshape([5.0_dp, 5.039870_dp, 0.002150_dp, 6.0_dp, 6.019726409_dp, 0.000005848_dp, 7.0_dp, 7.016928714_dp, 0.000000076_dp, 8.0_dp, 8.005305102_dp, 0.000000037_dp, 9.0_dp, 9.012183062_dp, 0.000000082_dp, 10.0_dp, 10.013534692_dp, 0.000000086_dp, 11.0_dp, 11.021661080_dp, 0.000000255_dp, 12.0_dp, 12.026922082_dp, 0.000002048_dp, 13.0_dp, 13.036134506_dp, 0.000010929_dp, 14.0_dp, 14.042892920_dp, 0.000141970_dp, 15.0_dp, 15.053490215_dp, 0.000177990_dp, 16.0_dp, 16.061672036_dp, 0.000177990_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Bh_naw = naw_type(19, transpose(reshape([260.0_dp, 260.121443_dp, 0.000211_dp, 261.0_dp, 261.121395733_dp, 0.000193026_dp, 262.0_dp, 262.122654688_dp, 0.000099919_dp, 263.0_dp, 263.122916_dp, 0.000328_dp, 264.0_dp, 264.124486_dp, 0.000190_dp, 265.0_dp, 265.124955_dp, 0.000257_dp, 266.0_dp, 266.126790_dp, 0.000175_dp, 267.0_dp, 267.127499_dp, 0.000282_dp, 268.0_dp, 268.129584_dp, 0.000410_dp, 269.0_dp, 269.130411_dp, 0.000402_dp, 270.0_dp, 270.133366_dp, 0.000320_dp, 271.0_dp, 271.135115_dp, 0.000412_dp, 272.0_dp, 272.138259_dp, 0.000571_dp, 273.0_dp, 273.140294_dp, 0.000703_dp, 274.0_dp, 274.143599_dp, 0.000620_dp, 275.0_dp, 275.145766_dp, 0.000644_dp, 276.0_dp, 276.149169_dp, 0.000644_dp, 277.0_dp, 277.151477_dp, 0.000644_dp, 278.0_dp, 278.154988_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Bi_naw = naw_type(41, transpose(reshape([184.0_dp, 184.001347_dp, 0.000131_dp, 185.0_dp, 184.997600_dp, 0.000087_dp, 186.0_dp, 185.996623169_dp, 0.000018200_dp, 187.0_dp, 186.993147272_dp, 0.000010740_dp, 188.0_dp, 187.992276064_dp, 0.000012001_dp, 189.0_dp, 188.989195139_dp, 0.000022384_dp, 190.0_dp, 189.988624828_dp, 0.000022515_dp, 191.0_dp, 190.985786972_dp, 0.000008037_dp, 192.0_dp, 191.985470077_dp, 0.000032326_dp, 193.0_dp, 192.982947220_dp, 0.000008132_dp, 194.0_dp, 193.982798581_dp, 0.000005638_dp, 195.0_dp, 194.980648759_dp, 0.000005675_dp, 196.0_dp, 195.980666509_dp, 0.000026224_dp, 197.0_dp, 196.978864927_dp, 0.000008946_dp, 198.0_dp, 197.979201316_dp, 0.000029598_dp, 199.0_dp, 198.977672841_dp, 0.000011395_dp, 200.0_dp, 199.978131290_dp, 0.000024370_dp, 201.0_dp, 200.976995017_dp, 0.000013072_dp, 202.0_dp, 201.977723042_dp, 0.000015032_dp, 203.0_dp, 202.976892077_dp, 0.000013717_dp, 204.0_dp, 203.977835687_dp, 0.000009854_dp, 205.0_dp, 204.977385182_dp, 0.000005161_dp, 206.0_dp, 205.978498843_dp, 0.000008193_dp, 207.0_dp, 206.978470551_dp, 0.000002573_dp, 208.0_dp, 207.979742060_dp, 0.000002474_dp, 209.0_dp, 208.980398599_dp, 0.000001465_dp, 210.0_dp, 209.984120237_dp, 0.000001463_dp, 211.0_dp, 210.987268715_dp, 0.000005842_dp, 212.0_dp, 211.991285030_dp, 0.000001989_dp, 213.0_dp, 212.994383570_dp, 0.000005455_dp, 214.0_dp, 213.998710909_dp, 0.000012033_dp, 215.0_dp, 215.001749095_dp, 0.000006037_dp, 216.0_dp, 216.006305985_dp, 0.000012000_dp, 217.0_dp, 217.009372000_dp, 0.000019000_dp, 218.0_dp, 218.014188000_dp, 0.000029000_dp, 219.0_dp, 219.017520_dp, 0.000215_dp, 220.0_dp, 220.022501_dp, 0.000322_dp, 221.0_dp, 221.025980_dp, 0.000322_dp, 222.0_dp, 222.031079_dp, 0.000322_dp, 223.0_dp, 223.034611_dp, 0.000429_dp, 224.0_dp, 224.039796_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Bk_naw = naw_type(22, transpose(reshape([233.0_dp, 233.056652_dp, 0.000250_dp, 234.0_dp, 234.057322_dp, 0.000164_dp, 235.0_dp, 235.056651_dp, 0.000430_dp, 236.0_dp, 236.057479_dp, 0.000387_dp, 237.0_dp, 237.057123_dp, 0.000247_dp, 238.0_dp, 238.058204_dp, 0.000275_dp, 239.0_dp, 239.058239_dp, 0.000222_dp, 240.0_dp, 240.059758_dp, 0.000161_dp, 241.0_dp, 241.060098_dp, 0.000178_dp, 242.0_dp, 242.061999_dp, 0.000144_dp, 243.0_dp, 243.063005905_dp, 0.000004856_dp, 244.0_dp, 244.065178969_dp, 0.000015457_dp, 245.0_dp, 245.066359814_dp, 0.000001923_dp, 246.0_dp, 246.068671300_dp, 0.000064433_dp, 247.0_dp, 247.070305889_dp, 0.000005570_dp, 248.0_dp, 248.073141689_dp, 0.000053739_dp, 249.0_dp, 249.074983118_dp, 0.000001339_dp, 250.0_dp, 250.078317195_dp, 0.000003110_dp, 251.0_dp, 251.080760555_dp, 0.000011523_dp, 252.0_dp, 252.084310_dp, 0.000215_dp, 253.0_dp, 253.086880_dp, 0.000385_dp, 254.0_dp, 254.090600_dp, 0.000320_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Br_naw = naw_type(34, transpose(reshape([65.0_dp, 64.982297_dp, 0.000537_dp, 66.0_dp, 65.974697_dp, 0.000429_dp, 67.0_dp, 66.965078_dp, 0.000322_dp, 68.0_dp, 67.958356_dp, 0.000278_dp, 69.0_dp, 68.950338410_dp, 0.000045091_dp, 70.0_dp, 69.944792321_dp, 0.000016000_dp, 71.0_dp, 70.939342153_dp, 0.000005799_dp, 72.0_dp, 71.936594606_dp, 0.000001100_dp, 73.0_dp, 72.931673441_dp, 0.000007237_dp, 74.0_dp, 73.929910279_dp, 0.000006264_dp, 75.0_dp, 74.925810566_dp, 0.000004600_dp, 76.0_dp, 75.924541574_dp, 0.000010007_dp, 77.0_dp, 76.921379193_dp, 0.000003017_dp, 78.0_dp, 77.921145858_dp, 0.000003842_dp, 79.0_dp, 78.918337574_dp, 0.000001074_dp, 80.0_dp, 79.918529784_dp, 0.000001065_dp, 81.0_dp, 80.916288197_dp, 0.000001049_dp, 82.0_dp, 81.916801752_dp, 0.000001042_dp, 83.0_dp, 82.915175285_dp, 0.000004073_dp, 84.0_dp, 83.916496417_dp, 0.000027622_dp, 85.0_dp, 84.915645758_dp, 0.000003304_dp, 86.0_dp, 85.918805432_dp, 0.000003304_dp, 87.0_dp, 86.920674016_dp, 0.000003404_dp, 88.0_dp, 87.924083290_dp, 0.000003404_dp, 89.0_dp, 88.926704558_dp, 0.000003504_dp, 90.0_dp, 89.931292848_dp, 0.000003604_dp, 91.0_dp, 90.934398617_dp, 0.000003804_dp, 92.0_dp, 91.939631595_dp, 0.000007202_dp, 93.0_dp, 92.943220000_dp, 0.000462500_dp, 94.0_dp, 93.948846_dp, 0.000215_dp, 95.0_dp, 94.952925_dp, 0.000322_dp, 96.0_dp, 95.958980_dp, 0.000322_dp, 97.0_dp, 96.963499_dp, 0.000429_dp, 98.0_dp, 97.969887_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: C_naw = naw_type(16, transpose(reshape([8.0_dp, 8.037643039_dp, 0.000019584_dp, 9.0_dp, 9.031037202_dp, 0.000002293_dp, 10.0_dp, 10.016853217_dp, 0.000000075_dp, 11.0_dp, 11.011432597_dp, 0.000000064_dp, 12.0_dp, 12.0000000_dp, 0.0000000_dp, 13.0_dp, 13.00335483534_dp, 0.00000000025_dp, 14.0_dp, 14.00324198862_dp, 0.00000000403_dp, 15.0_dp, 15.010599256_dp, 0.000000858_dp, 16.0_dp, 16.014701255_dp, 0.000003840_dp, 17.0_dp, 17.022578650_dp, 0.000018641_dp, 18.0_dp, 18.026751930_dp, 0.000032206_dp, 19.0_dp, 19.034797594_dp, 0.000105625_dp, 20.0_dp, 20.040261732_dp, 0.000247585_dp, 21.0_dp, 21.049000_dp, 0.000640_dp, 22.0_dp, 22.057553990_dp, 0.000248515_dp, 23.0_dp, 23.068890_dp, 0.001070_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ca_naw = naw_type(29, transpose(reshape([33.0_dp, 33.033312_dp, 0.000429_dp, 34.0_dp, 34.015985_dp, 0.000322_dp, 35.0_dp, 35.005572_dp, 0.000215_dp, 36.0_dp, 35.993074388_dp, 0.000042941_dp, 37.0_dp, 36.985897849_dp, 0.000000680_dp, 38.0_dp, 37.976319223_dp, 0.000000208_dp, 39.0_dp, 38.970710811_dp, 0.000000640_dp, 40.0_dp, 39.962590850_dp, 0.000000022_dp, 41.0_dp, 40.962277905_dp, 0.000000147_dp, 42.0_dp, 41.958617780_dp, 0.000000159_dp, 43.0_dp, 42.958766381_dp, 0.000000244_dp, 44.0_dp, 43.955481489_dp, 0.000000348_dp, 45.0_dp, 44.956186270_dp, 0.000000392_dp, 46.0_dp, 45.953687726_dp, 0.000002398_dp, 47.0_dp, 46.954541134_dp, 0.000002384_dp, 48.0_dp, 47.952522654_dp, 0.000000018_dp, 49.0_dp, 48.955662625_dp, 0.000000190_dp, 50.0_dp, 49.957499215_dp, 0.000001700_dp, 51.0_dp, 50.960995663_dp, 0.000000560_dp, 52.0_dp, 51.963213646_dp, 0.000000720_dp, 53.0_dp, 52.968451000_dp, 0.000047000_dp, 54.0_dp, 53.972989000_dp, 0.000052000_dp, 55.0_dp, 54.979978000_dp, 0.000172000_dp, 56.0_dp, 55.985496000_dp, 0.000268000_dp, 57.0_dp, 56.992958_dp, 0.000429_dp, 58.0_dp, 57.998357_dp, 0.000537_dp, 59.0_dp, 59.006237_dp, 0.000644_dp, 60.0_dp, 60.011809_dp, 0.000751_dp, 61.0_dp, 61.020408_dp, 0.000859_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cd_naw = naw_type(42, transpose(reshape([94.0_dp, 93.956586_dp, 0.000537_dp, 95.0_dp, 94.949483_dp, 0.000607_dp, 96.0_dp, 95.940341_dp, 0.000440_dp, 97.0_dp, 96.934799343_dp, 0.000451073_dp, 98.0_dp, 97.927389315_dp, 0.000055605_dp, 99.0_dp, 98.924925845_dp, 0.000001700_dp, 100.0_dp, 99.920348829_dp, 0.000001800_dp, 101.0_dp, 100.918586209_dp, 0.000001600_dp, 102.0_dp, 101.914481797_dp, 0.000001784_dp, 103.0_dp, 102.913416922_dp, 0.000001943_dp, 104.0_dp, 103.909856228_dp, 0.000001795_dp, 105.0_dp, 104.909463893_dp, 0.000001494_dp, 106.0_dp, 105.906459791_dp, 0.000001184_dp, 107.0_dp, 106.906612049_dp, 0.000001782_dp, 108.0_dp, 107.904183588_dp, 0.000001205_dp, 109.0_dp, 108.904986697_dp, 0.000001649_dp, 110.0_dp, 109.903007470_dp, 0.000000407_dp, 111.0_dp, 110.904183776_dp, 0.000000383_dp, 112.0_dp, 111.902763896_dp, 0.000000268_dp, 113.0_dp, 112.904408105_dp, 0.000000262_dp, 114.0_dp, 113.903364998_dp, 0.000000296_dp, 115.0_dp, 114.905437426_dp, 0.000000699_dp, 116.0_dp, 115.904763230_dp, 0.000000172_dp, 117.0_dp, 116.907226039_dp, 0.000001087_dp, 118.0_dp, 117.906921956_dp, 0.000021471_dp, 119.0_dp, 118.909847052_dp, 0.000040467_dp, 120.0_dp, 119.909868065_dp, 0.000004000_dp, 121.0_dp, 120.912963660_dp, 0.000002085_dp, 122.0_dp, 121.913459050_dp, 0.000002468_dp, 123.0_dp, 122.916892460_dp, 0.000002894_dp, 124.0_dp, 123.917659772_dp, 0.000002800_dp, 125.0_dp, 124.921257590_dp, 0.000003100_dp, 126.0_dp, 125.922430290_dp, 0.000002473_dp, 127.0_dp, 126.926203291_dp, 0.000006656_dp, 128.0_dp, 127.927816778_dp, 0.000006905_dp, 129.0_dp, 128.932235597_dp, 0.000005700_dp, 130.0_dp, 129.934387563_dp, 0.000024000_dp, 131.0_dp, 130.940727740_dp, 0.000020653_dp, 132.0_dp, 131.945823136_dp, 0.000064485_dp, 133.0_dp, 132.952614_dp, 0.000215_dp, 134.0_dp, 133.957638_dp, 0.000322_dp, 135.0_dp, 134.964766_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ce_naw = naw_type(41, transpose(reshape([119.0_dp, 118.952957_dp, 0.000537_dp, 120.0_dp, 119.946613_dp, 0.000537_dp, 121.0_dp, 120.943435_dp, 0.000430_dp, 122.0_dp, 121.937870_dp, 0.000430_dp, 123.0_dp, 122.935280_dp, 0.000320_dp, 124.0_dp, 123.930310_dp, 0.000320_dp, 125.0_dp, 124.928440_dp, 0.000210_dp, 126.0_dp, 125.923971000_dp, 0.000030000_dp, 127.0_dp, 126.922727000_dp, 0.000031000_dp, 128.0_dp, 127.918911000_dp, 0.000030000_dp, 129.0_dp, 128.918102000_dp, 0.000030000_dp, 130.0_dp, 129.914736000_dp, 0.000030000_dp, 131.0_dp, 130.914429465_dp, 0.000035214_dp, 132.0_dp, 131.911466226_dp, 0.000021907_dp, 133.0_dp, 132.911520402_dp, 0.000017557_dp, 134.0_dp, 133.908928142_dp, 0.000021886_dp, 135.0_dp, 134.909160662_dp, 0.000011021_dp, 136.0_dp, 135.907129256_dp, 0.000000348_dp, 137.0_dp, 136.907762416_dp, 0.000000386_dp, 138.0_dp, 137.905994180_dp, 0.000000536_dp, 139.0_dp, 138.906647029_dp, 0.000002242_dp, 140.0_dp, 139.905448433_dp, 0.000001409_dp, 141.0_dp, 140.908285991_dp, 0.000001411_dp, 142.0_dp, 141.909250208_dp, 0.000002623_dp, 143.0_dp, 142.912391953_dp, 0.000002621_dp, 144.0_dp, 143.913652763_dp, 0.000003041_dp, 145.0_dp, 144.917265113_dp, 0.000036393_dp, 146.0_dp, 145.918812294_dp, 0.000015743_dp, 147.0_dp, 146.922689900_dp, 0.000009211_dp, 148.0_dp, 147.924424186_dp, 0.000012017_dp, 149.0_dp, 148.928426900_dp, 0.000011000_dp, 150.0_dp, 149.930384032_dp, 0.000012556_dp, 151.0_dp, 150.934272200_dp, 0.000019000_dp, 152.0_dp, 151.936682_dp, 0.000215_dp, 153.0_dp, 152.941052_dp, 0.000215_dp, 154.0_dp, 153.943940_dp, 0.000215_dp, 155.0_dp, 154.948706_dp, 0.000322_dp, 156.0_dp, 155.951884_dp, 0.000322_dp, 157.0_dp, 156.957133_dp, 0.000429_dp, 158.0_dp, 157.960773_dp, 0.000429_dp, 159.0_dp, 158.966355_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cf_naw = naw_type(20, transpose(reshape([237.0_dp, 237.062199272_dp, 0.000104506_dp, 238.0_dp, 238.061490_dp, 0.000320_dp, 239.0_dp, 239.062482_dp, 0.000129_dp, 240.0_dp, 240.062253447_dp, 0.000019360_dp, 241.0_dp, 241.063690_dp, 0.000180_dp, 242.0_dp, 242.063754544_dp, 0.000013840_dp, 243.0_dp, 243.065475_dp, 0.000194_dp, 244.0_dp, 244.065999447_dp, 0.000002809_dp, 245.0_dp, 245.068046755_dp, 0.000002606_dp, 246.0_dp, 246.068803685_dp, 0.000001625_dp, 247.0_dp, 247.070971348_dp, 0.000015380_dp, 248.0_dp, 248.072182905_dp, 0.000005497_dp, 249.0_dp, 249.074850428_dp, 0.000001269_dp, 250.0_dp, 250.076404494_dp, 0.000001650_dp, 251.0_dp, 251.079587171_dp, 0.000004187_dp, 252.0_dp, 252.081626507_dp, 0.000002531_dp, 253.0_dp, 253.085133723_dp, 0.000004570_dp, 254.0_dp, 254.087323575_dp, 0.000012304_dp, 255.0_dp, 255.091046_dp, 0.000215_dp, 256.0_dp, 256.093442_dp, 0.000338_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cl_naw = naw_type(25, transpose(reshape([28.0_dp, 28.030349_dp, 0.000537_dp, 29.0_dp, 29.015053_dp, 0.000203_dp, 30.0_dp, 30.005018333_dp, 0.000025631_dp, 31.0_dp, 30.992448097_dp, 0.000003700_dp, 32.0_dp, 31.985684605_dp, 0.000000603_dp, 33.0_dp, 32.977451988_dp, 0.000000419_dp, 34.0_dp, 33.973762490_dp, 0.000000052_dp, 35.0_dp, 34.968852694_dp, 0.000000038_dp, 36.0_dp, 35.968306822_dp, 0.000000038_dp, 37.0_dp, 36.965902573_dp, 0.000000055_dp, 38.0_dp, 37.968010408_dp, 0.000000105_dp, 39.0_dp, 38.968008151_dp, 0.000001859_dp, 40.0_dp, 39.970415466_dp, 0.000034423_dp, 41.0_dp, 40.970684525_dp, 0.000073777_dp, 42.0_dp, 41.973342000_dp, 0.000064000_dp, 43.0_dp, 42.974063700_dp, 0.000066407_dp, 44.0_dp, 43.978014918_dp, 0.000091859_dp, 45.0_dp, 44.980394353_dp, 0.000146177_dp, 46.0_dp, 45.985254926_dp, 0.000104400_dp, 47.0_dp, 46.989715_dp, 0.000215_dp, 48.0_dp, 47.995405_dp, 0.000537_dp, 49.0_dp, 49.000794_dp, 0.000429_dp, 50.0_dp, 50.008266_dp, 0.000429_dp, 51.0_dp, 51.015341_dp, 0.000751_dp, 52.0_dp, 52.024004_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cm_naw = naw_type(22, transpose(reshape([231.0_dp, 231.050746_dp, 0.000322_dp, 232.0_dp, 232.049740_dp, 0.000216_dp, 233.0_dp, 233.050771485_dp, 0.000087059_dp, 234.0_dp, 234.050158568_dp, 0.000018333_dp, 235.0_dp, 235.051545_dp, 0.000110_dp, 236.0_dp, 236.051372112_dp, 0.000018931_dp, 237.0_dp, 237.052868988_dp, 0.000079870_dp, 238.0_dp, 238.053081606_dp, 0.000013133_dp, 239.0_dp, 239.054908519_dp, 0.000161107_dp, 240.0_dp, 240.055528233_dp, 0.000002045_dp, 241.0_dp, 241.057651218_dp, 0.000001725_dp, 242.0_dp, 242.058834187_dp, 0.000001224_dp, 243.0_dp, 243.061387329_dp, 0.000001605_dp, 244.0_dp, 244.062750622_dp, 0.000001187_dp, 245.0_dp, 245.065491047_dp, 0.000001233_dp, 246.0_dp, 246.067222016_dp, 0.000001637_dp, 247.0_dp, 247.070352678_dp, 0.000004076_dp, 248.0_dp, 248.072349086_dp, 0.000002531_dp, 249.0_dp, 249.075953992_dp, 0.000002545_dp, 250.0_dp, 250.078357541_dp, 0.000011029_dp, 251.0_dp, 251.082284988_dp, 0.000024367_dp, 252.0_dp, 252.084870_dp, 0.000320_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cn_naw = naw_type(13, transpose(reshape([276.0_dp, 276.161418_dp, 0.000537_dp, 277.0_dp, 277.163535_dp, 0.000165_dp, 278.0_dp, 278.164083_dp, 0.000470_dp, 279.0_dp, 279.166422_dp, 0.000424_dp, 280.0_dp, 280.167102_dp, 0.000626_dp, 281.0_dp, 281.169563_dp, 0.000427_dp, 282.0_dp, 282.170507_dp, 0.000588_dp, 283.0_dp, 283.173202_dp, 0.000660_dp, 284.0_dp, 284.174360_dp, 0.000819_dp, 285.0_dp, 285.177227_dp, 0.000544_dp, 286.0_dp, 286.178691_dp, 0.000751_dp, 287.0_dp, 287.181826_dp, 0.000751_dp, 288.0_dp, 288.183501_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Co_naw = naw_type(32, transpose(reshape([47.0_dp, 47.011401_dp, 0.000644_dp, 48.0_dp, 48.001857_dp, 0.000537_dp, 49.0_dp, 48.989501_dp, 0.000537_dp, 50.0_dp, 49.981117000_dp, 0.000135000_dp, 51.0_dp, 50.970647000_dp, 0.000052000_dp, 52.0_dp, 51.963130224_dp, 0.000005669_dp, 53.0_dp, 52.954203278_dp, 0.000001854_dp, 54.0_dp, 53.948459075_dp, 0.000000380_dp, 55.0_dp, 54.941996416_dp, 0.000000434_dp, 56.0_dp, 55.939838032_dp, 0.000000510_dp, 57.0_dp, 56.936289819_dp, 0.000000553_dp, 58.0_dp, 57.935751292_dp, 0.000001237_dp, 59.0_dp, 58.933193524_dp, 0.000000426_dp, 60.0_dp, 59.933815536_dp, 0.000000433_dp, 61.0_dp, 60.932476031_dp, 0.000000901_dp, 62.0_dp, 61.934058198_dp, 0.000019940_dp, 63.0_dp, 62.933599630_dp, 0.000019941_dp, 64.0_dp, 63.935810176_dp, 0.000021476_dp, 65.0_dp, 64.936462071_dp, 0.000002235_dp, 66.0_dp, 65.939442943_dp, 0.000015000_dp, 67.0_dp, 66.940609625_dp, 0.000006917_dp, 68.0_dp, 67.944559401_dp, 0.000004142_dp, 69.0_dp, 68.945909000_dp, 0.000092000_dp, 70.0_dp, 69.950053400_dp, 0.000011800_dp, 71.0_dp, 70.952366923_dp, 0.000499230_dp, 72.0_dp, 71.956736_dp, 0.000322_dp, 73.0_dp, 72.959238_dp, 0.000322_dp, 74.0_dp, 73.963993_dp, 0.000429_dp, 75.0_dp, 74.967192_dp, 0.000429_dp, 76.0_dp, 75.972453_dp, 0.000537_dp, 77.0_dp, 76.976479_dp, 0.000644_dp, 78.0_dp, 77.983553_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cr_naw = naw_type(30, transpose(reshape([41.0_dp, 41.021911_dp, 0.000429_dp, 42.0_dp, 42.007579_dp, 0.000322_dp, 43.0_dp, 42.997885_dp, 0.000215_dp, 44.0_dp, 43.985591000_dp, 0.000055000_dp, 45.0_dp, 44.979050000_dp, 0.000038000_dp, 46.0_dp, 45.968360969_dp, 0.000012295_dp, 47.0_dp, 46.962894995_dp, 0.000005578_dp, 48.0_dp, 47.954029431_dp, 0.000007848_dp, 49.0_dp, 48.951333720_dp, 0.000002363_dp, 50.0_dp, 49.946042209_dp, 0.000000100_dp, 51.0_dp, 50.944765388_dp, 0.000000178_dp, 52.0_dp, 51.940504714_dp, 0.000000120_dp, 53.0_dp, 52.940646304_dp, 0.000000124_dp, 54.0_dp, 53.938877359_dp, 0.000000142_dp, 55.0_dp, 54.940836637_dp, 0.000000245_dp, 56.0_dp, 55.940648977_dp, 0.000000620_dp, 57.0_dp, 56.943612112_dp, 0.000002000_dp, 58.0_dp, 57.944184501_dp, 0.000003200_dp, 59.0_dp, 58.948345426_dp, 0.000000720_dp, 60.0_dp, 59.949641656_dp, 0.000001200_dp, 61.0_dp, 60.954378130_dp, 0.000002000_dp, 62.0_dp, 61.956142920_dp, 0.000003700_dp, 63.0_dp, 62.961161000_dp, 0.000078000_dp, 64.0_dp, 63.963886000_dp, 0.000322000_dp, 65.0_dp, 64.969608_dp, 0.000215_dp, 66.0_dp, 65.973011_dp, 0.000322_dp, 67.0_dp, 66.979313_dp, 0.000429_dp, 68.0_dp, 67.983156_dp, 0.000537_dp, 69.0_dp, 68.989662_dp, 0.000537_dp, 70.0_dp, 69.993945_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cs_naw = naw_type(42, transpose(reshape([111.0_dp, 110.953945_dp, 0.000215_dp, 112.0_dp, 111.950172_dp, 0.000124_dp, 113.0_dp, 112.944428484_dp, 0.000009207_dp, 114.0_dp, 113.941292244_dp, 0.000091323_dp, 115.0_dp, 114.935910_dp, 0.000110_dp, 116.0_dp, 115.933395_dp, 0.000108_dp, 117.0_dp, 116.928616723_dp, 0.000067000_dp, 118.0_dp, 117.926559517_dp, 0.000013690_dp, 119.0_dp, 118.922377327_dp, 0.000014965_dp, 120.0_dp, 119.920677277_dp, 0.000010702_dp, 121.0_dp, 120.917227235_dp, 0.000015340_dp, 122.0_dp, 121.916108144_dp, 0.000036164_dp, 123.0_dp, 122.912996060_dp, 0.000013000_dp, 124.0_dp, 123.912247366_dp, 0.000009823_dp, 125.0_dp, 124.909725953_dp, 0.000008304_dp, 126.0_dp, 125.909445821_dp, 0.000011120_dp, 127.0_dp, 126.907417527_dp, 0.000005987_dp, 128.0_dp, 127.907748452_dp, 0.000005771_dp, 129.0_dp, 128.906065910_dp, 0.000004888_dp, 130.0_dp, 129.906709281_dp, 0.000008971_dp, 131.0_dp, 130.905468457_dp, 0.000000190_dp, 132.0_dp, 131.906437740_dp, 0.000001112_dp, 133.0_dp, 132.905451958_dp, 0.000000008_dp, 134.0_dp, 133.906718501_dp, 0.000000017_dp, 135.0_dp, 134.905976907_dp, 0.000000390_dp, 136.0_dp, 135.907311431_dp, 0.000002010_dp, 137.0_dp, 136.907089296_dp, 0.000000324_dp, 138.0_dp, 137.911017119_dp, 0.000009831_dp, 139.0_dp, 138.913363822_dp, 0.000003364_dp, 140.0_dp, 139.917283707_dp, 0.000008801_dp, 141.0_dp, 140.920045279_dp, 0.000009871_dp, 142.0_dp, 141.924299514_dp, 0.000007586_dp, 143.0_dp, 142.927347346_dp, 0.000008130_dp, 144.0_dp, 143.932075402_dp, 0.000021612_dp, 145.0_dp, 144.935528927_dp, 0.000009733_dp, 146.0_dp, 145.940621867_dp, 0.000003106_dp, 147.0_dp, 146.944261512_dp, 0.000009000_dp, 148.0_dp, 147.949639026_dp, 0.000014000_dp, 149.0_dp, 148.953516_dp, 0.000429_dp, 150.0_dp, 149.959023_dp, 0.000429_dp, 151.0_dp, 150.963199_dp, 0.000537_dp, 152.0_dp, 151.968728_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cu_naw = naw_type(33, transpose(reshape([52.0_dp, 51.997982_dp, 0.000644_dp, 53.0_dp, 52.985894_dp, 0.000537_dp, 54.0_dp, 53.977198_dp, 0.000429_dp, 55.0_dp, 54.966038000_dp, 0.000167000_dp, 56.0_dp, 55.958529278_dp, 0.000006864_dp, 57.0_dp, 56.949211686_dp, 0.000000537_dp, 58.0_dp, 57.944532283_dp, 0.000000604_dp, 59.0_dp, 58.939496713_dp, 0.000000566_dp, 60.0_dp, 59.937363787_dp, 0.000001731_dp, 61.0_dp, 60.933457375_dp, 0.000001020_dp, 62.0_dp, 61.932594803_dp, 0.000000683_dp, 63.0_dp, 62.929597119_dp, 0.000000457_dp, 64.0_dp, 63.929764001_dp, 0.000000458_dp, 65.0_dp, 64.927789476_dp, 0.000000690_dp, 66.0_dp, 65.928868804_dp, 0.000000696_dp, 67.0_dp, 66.927729490_dp, 0.000000957_dp, 68.0_dp, 67.929610887_dp, 0.000001700_dp, 69.0_dp, 68.929429267_dp, 0.000001500_dp, 70.0_dp, 69.932392078_dp, 0.000001161_dp, 71.0_dp, 70.932676831_dp, 0.000001600_dp, 72.0_dp, 71.935820306_dp, 0.000001500_dp, 73.0_dp, 72.936674376_dp, 0.000002084_dp, 74.0_dp, 73.939874860_dp, 0.000006600_dp, 75.0_dp, 74.941523817_dp, 0.000000770_dp, 76.0_dp, 75.945268974_dp, 0.000000980_dp, 77.0_dp, 76.947543599_dp, 0.000001300_dp, 78.0_dp, 77.951916524_dp, 0.000014312_dp, 79.0_dp, 78.954473100_dp, 0.000112700_dp, 80.0_dp, 79.960623_dp, 0.000322_dp, 81.0_dp, 80.965743_dp, 0.000322_dp, 82.0_dp, 81.972378_dp, 0.000429_dp, 83.0_dp, 82.978110_dp, 0.000537_dp, 84.0_dp, 83.985271_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Db_naw = naw_type(16, transpose(reshape([255.0_dp, 255.106919_dp, 0.000304_dp, 256.0_dp, 256.107674_dp, 0.000201_dp, 257.0_dp, 257.107520042_dp, 0.000176741_dp, 258.0_dp, 258.108972995_dp, 0.000098613_dp, 259.0_dp, 259.109491859_dp, 0.000060854_dp, 260.0_dp, 260.111297_dp, 0.000100_dp, 261.0_dp, 261.111979_dp, 0.000118_dp, 262.0_dp, 262.114067_dp, 0.000154_dp, 263.0_dp, 263.114987_dp, 0.000180_dp, 264.0_dp, 264.117297_dp, 0.000253_dp, 265.0_dp, 265.118500_dp, 0.000240_dp, 266.0_dp, 266.121032_dp, 0.000304_dp, 267.0_dp, 267.122399_dp, 0.000402_dp, 268.0_dp, 268.125669_dp, 0.000568_dp, 269.0_dp, 269.127911_dp, 0.000669_dp, 270.0_dp, 270.131399_dp, 0.000617_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ds_naw = naw_type(18, transpose(reshape([267.0_dp, 267.143726_dp, 0.000219_dp, 268.0_dp, 268.143477_dp, 0.000324_dp, 269.0_dp, 269.144750965_dp, 0.000033712_dp, 270.0_dp, 270.144586620_dp, 0.000042163_dp, 271.0_dp, 271.145951_dp, 0.000104_dp, 272.0_dp, 272.146091_dp, 0.000456_dp, 273.0_dp, 273.148455_dp, 0.000152_dp, 274.0_dp, 274.149434_dp, 0.000418_dp, 275.0_dp, 275.152085_dp, 0.000366_dp, 276.0_dp, 276.153022_dp, 0.000588_dp, 277.0_dp, 277.155763_dp, 0.000421_dp, 278.0_dp, 278.157007_dp, 0.000548_dp, 279.0_dp, 279.159984_dp, 0.000649_dp, 280.0_dp, 280.161375_dp, 0.000803_dp, 281.0_dp, 281.164545_dp, 0.000529_dp, 282.0_dp, 282.166174_dp, 0.000322_dp, 283.0_dp, 283.169437_dp, 0.000537_dp, 284.0_dp, 284.171187_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Dy_naw = naw_type(39, transpose(reshape([138.0_dp, 137.962500_dp, 0.000540_dp, 139.0_dp, 138.959527_dp, 0.000537_dp, 140.0_dp, 139.954020_dp, 0.000430_dp, 141.0_dp, 140.951280_dp, 0.000320_dp, 142.0_dp, 141.946194_dp, 0.000782_dp, 143.0_dp, 142.943994332_dp, 0.000014000_dp, 144.0_dp, 143.939269512_dp, 0.000007700_dp, 145.0_dp, 144.937473992_dp, 0.000007000_dp, 146.0_dp, 145.932844526_dp, 0.000007187_dp, 147.0_dp, 146.931082712_dp, 0.000009500_dp, 148.0_dp, 147.927149944_dp, 0.000009365_dp, 149.0_dp, 148.927327516_dp, 0.000009858_dp, 150.0_dp, 149.925593068_dp, 0.000004636_dp, 151.0_dp, 150.926191279_dp, 0.000003486_dp, 152.0_dp, 151.924725274_dp, 0.000004930_dp, 153.0_dp, 152.925771729_dp, 0.000004295_dp, 154.0_dp, 153.924428920_dp, 0.000007977_dp, 155.0_dp, 154.925758049_dp, 0.000010354_dp, 156.0_dp, 155.924283593_dp, 0.000001060_dp, 157.0_dp, 156.925469555_dp, 0.000005532_dp, 158.0_dp, 157.924414817_dp, 0.000002509_dp, 159.0_dp, 158.925745938_dp, 0.000001544_dp, 160.0_dp, 159.925203578_dp, 0.000000751_dp, 161.0_dp, 160.926939425_dp, 0.000000748_dp, 162.0_dp, 161.926804507_dp, 0.000000746_dp, 163.0_dp, 162.928737221_dp, 0.000000744_dp, 164.0_dp, 163.929180819_dp, 0.000000746_dp, 165.0_dp, 164.931709402_dp, 0.000000748_dp, 166.0_dp, 165.932812810_dp, 0.000000862_dp, 167.0_dp, 166.935682415_dp, 0.000004300_dp, 168.0_dp, 167.937134977_dp, 0.000150303_dp, 169.0_dp, 168.940315231_dp, 0.000322781_dp, 170.0_dp, 169.942340_dp, 0.000215_dp, 171.0_dp, 170.946312_dp, 0.000215_dp, 172.0_dp, 171.948728_dp, 0.000322_dp, 173.0_dp, 172.953043_dp, 0.000429_dp, 174.0_dp, 173.955845_dp, 0.000537_dp, 175.0_dp, 174.960569_dp, 0.000537_dp, 176.0_dp, 175.963918_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Er_naw = naw_type(39, transpose(reshape([142.0_dp, 141.970016_dp, 0.000537_dp, 143.0_dp, 142.966548_dp, 0.000429_dp, 144.0_dp, 143.960700_dp, 0.000210_dp, 145.0_dp, 144.957874_dp, 0.000215_dp, 146.0_dp, 145.952418357_dp, 0.000007197_dp, 147.0_dp, 146.949964456_dp, 0.000041000_dp, 148.0_dp, 147.944735026_dp, 0.000011000_dp, 149.0_dp, 148.942306000_dp, 0.000030000_dp, 150.0_dp, 149.937915524_dp, 0.000018458_dp, 151.0_dp, 150.937448567_dp, 0.000017681_dp, 152.0_dp, 151.935050347_dp, 0.000009478_dp, 153.0_dp, 152.935086350_dp, 0.000009967_dp, 154.0_dp, 153.932790799_dp, 0.000005325_dp, 155.0_dp, 154.933215710_dp, 0.000006520_dp, 156.0_dp, 155.931065926_dp, 0.000026440_dp, 157.0_dp, 156.931922652_dp, 0.000028454_dp, 158.0_dp, 157.929893474_dp, 0.000027074_dp, 159.0_dp, 158.930690790_dp, 0.000003910_dp, 160.0_dp, 159.929077193_dp, 0.000026029_dp, 161.0_dp, 160.930003530_dp, 0.000009419_dp, 162.0_dp, 161.928787299_dp, 0.000000811_dp, 163.0_dp, 162.930039908_dp, 0.000004967_dp, 164.0_dp, 163.929207739_dp, 0.000000755_dp, 165.0_dp, 164.930733482_dp, 0.000000985_dp, 166.0_dp, 165.930301067_dp, 0.000000358_dp, 167.0_dp, 166.932056192_dp, 0.000000306_dp, 168.0_dp, 167.932378282_dp, 0.000000280_dp, 169.0_dp, 168.934598444_dp, 0.000000326_dp, 170.0_dp, 169.935471933_dp, 0.000001488_dp, 171.0_dp, 170.938037372_dp, 0.000001511_dp, 172.0_dp, 171.939363461_dp, 0.000004253_dp, 173.0_dp, 172.942400_dp, 0.000210_dp, 174.0_dp, 173.944230_dp, 0.000320_dp, 175.0_dp, 174.947770_dp, 0.000430_dp, 176.0_dp, 175.949940_dp, 0.000430_dp, 177.0_dp, 176.953990_dp, 0.000540_dp, 178.0_dp, 177.956779_dp, 0.000640_dp, 179.0_dp, 178.961267_dp, 0.000537_dp, 180.0_dp, 179.964380_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Es_naw = naw_type(20, transpose(reshape([239.0_dp, 239.068310_dp, 0.000322_dp, 240.0_dp, 240.068949_dp, 0.000393_dp, 241.0_dp, 241.068592_dp, 0.000248_dp, 242.0_dp, 242.069567_dp, 0.000276_dp, 243.0_dp, 243.069508_dp, 0.000222_dp, 244.0_dp, 244.070881_dp, 0.000195_dp, 245.0_dp, 245.071192_dp, 0.000178_dp, 246.0_dp, 246.072806474_dp, 0.000096538_dp, 247.0_dp, 247.073621929_dp, 0.000020870_dp, 248.0_dp, 248.075469_dp, 0.000056_dp, 249.0_dp, 249.076409_dp, 0.000032_dp, 250.0_dp, 250.078611_dp, 0.000107_dp, 251.0_dp, 251.079991431_dp, 0.000005676_dp, 252.0_dp, 252.082979173_dp, 0.000053736_dp, 253.0_dp, 253.084821241_dp, 0.000001341_dp, 254.0_dp, 254.088024337_dp, 0.000003152_dp, 255.0_dp, 255.090273504_dp, 0.000011612_dp, 256.0_dp, 256.093597_dp, 0.000107_dp, 257.0_dp, 257.095979_dp, 0.000441_dp, 258.0_dp, 258.099520_dp, 0.000430_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Eu_naw = naw_type(41, transpose(reshape([130.0_dp, 129.964022_dp, 0.000578_dp, 131.0_dp, 130.957634_dp, 0.000429_dp, 132.0_dp, 131.954696_dp, 0.000429_dp, 133.0_dp, 132.949290_dp, 0.000320_dp, 134.0_dp, 133.946537_dp, 0.000322_dp, 135.0_dp, 134.941870_dp, 0.000210_dp, 136.0_dp, 135.939620_dp, 0.000210_dp, 137.0_dp, 136.935430719_dp, 0.000004700_dp, 138.0_dp, 137.933709000_dp, 0.000030000_dp, 139.0_dp, 138.929792307_dp, 0.000014117_dp, 140.0_dp, 139.928087633_dp, 0.000055328_dp, 141.0_dp, 140.924931734_dp, 0.000013568_dp, 142.0_dp, 141.923446719_dp, 0.000032268_dp, 143.0_dp, 142.920298678_dp, 0.000011793_dp, 144.0_dp, 143.918819481_dp, 0.000011580_dp, 145.0_dp, 144.916272659_dp, 0.000003285_dp, 146.0_dp, 145.917210852_dp, 0.000006451_dp, 147.0_dp, 146.916752440_dp, 0.000002758_dp, 148.0_dp, 147.918091288_dp, 0.000010693_dp, 149.0_dp, 148.917936875_dp, 0.000004190_dp, 150.0_dp, 149.919707092_dp, 0.000006688_dp, 151.0_dp, 150.919856606_dp, 0.000001251_dp, 152.0_dp, 151.921750980_dp, 0.000001252_dp, 153.0_dp, 152.921236789_dp, 0.000001257_dp, 154.0_dp, 153.922985699_dp, 0.000001275_dp, 155.0_dp, 154.922899847_dp, 0.000001343_dp, 156.0_dp, 155.924762976_dp, 0.000003791_dp, 157.0_dp, 156.925432556_dp, 0.000004545_dp, 158.0_dp, 157.927782192_dp, 0.000002181_dp, 159.0_dp, 158.929099512_dp, 0.000004637_dp, 160.0_dp, 159.931836982_dp, 0.000000970_dp, 161.0_dp, 160.933663991_dp, 0.000011164_dp, 162.0_dp, 161.936958329_dp, 0.000001410_dp, 163.0_dp, 162.939265510_dp, 0.000000970_dp, 164.0_dp, 163.942852943_dp, 0.000002219_dp, 165.0_dp, 164.945540070_dp, 0.000005596_dp, 166.0_dp, 165.949813_dp, 0.000107_dp, 167.0_dp, 166.953011_dp, 0.000429_dp, 168.0_dp, 167.957863_dp, 0.000429_dp, 169.0_dp, 168.961717_dp, 0.000537_dp, 170.0_dp, 169.966870_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: F_naw = naw_type(19, transpose(reshape([13.0_dp, 13.045121_dp, 0.000537_dp, 14.0_dp, 14.034315196_dp, 0.000044142_dp, 15.0_dp, 15.017785139_dp, 0.000015029_dp, 16.0_dp, 16.011460278_dp, 0.000005758_dp, 17.0_dp, 17.002095237_dp, 0.000000266_dp, 18.0_dp, 18.000937324_dp, 0.000000497_dp, 19.0_dp, 18.99840316207_dp, 0.00000000088_dp, 20.0_dp, 19.999981252_dp, 0.000000031_dp, 21.0_dp, 20.999948893_dp, 0.000001932_dp, 22.0_dp, 22.002998812_dp, 0.000013310_dp, 23.0_dp, 23.003526875_dp, 0.000035770_dp, 24.0_dp, 24.008099370_dp, 0.000104853_dp, 25.0_dp, 25.012167727_dp, 0.000103535_dp, 26.0_dp, 26.020048065_dp, 0.000114898_dp, 27.0_dp, 27.026981897_dp, 0.000129037_dp, 28.0_dp, 28.035860448_dp, 0.000129198_dp, 29.0_dp, 29.043103000_dp, 0.000564000_dp, 30.0_dp, 30.052561_dp, 0.000537_dp, 31.0_dp, 31.061023_dp, 0.000574_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Fe_naw = naw_type(32, transpose(reshape([45.0_dp, 45.015467_dp, 0.000304_dp, 46.0_dp, 46.001299_dp, 0.000322_dp, 47.0_dp, 46.992346_dp, 0.000537_dp, 48.0_dp, 47.980667000_dp, 0.000099000_dp, 49.0_dp, 48.973429000_dp, 0.000026000_dp, 50.0_dp, 49.962988000_dp, 0.000009000_dp, 51.0_dp, 50.956855137_dp, 0.000001501_dp, 52.0_dp, 51.948113364_dp, 0.000000192_dp, 53.0_dp, 52.945305629_dp, 0.000001792_dp, 54.0_dp, 53.939608189_dp, 0.000000368_dp, 55.0_dp, 54.938291158_dp, 0.000000330_dp, 56.0_dp, 55.934935537_dp, 0.000000287_dp, 57.0_dp, 56.935391950_dp, 0.000000287_dp, 58.0_dp, 57.933273575_dp, 0.000000339_dp, 59.0_dp, 58.934873492_dp, 0.000000354_dp, 60.0_dp, 59.934070249_dp, 0.000003656_dp, 61.0_dp, 60.936746241_dp, 0.000002800_dp, 62.0_dp, 61.936791809_dp, 0.000003000_dp, 63.0_dp, 62.940272698_dp, 0.000004618_dp, 64.0_dp, 63.940987761_dp, 0.000005386_dp, 65.0_dp, 64.945015323_dp, 0.000005487_dp, 66.0_dp, 65.946249958_dp, 0.000004400_dp, 67.0_dp, 66.950930000_dp, 0.000004100_dp, 68.0_dp, 67.952875_dp, 0.000207_dp, 69.0_dp, 68.957918_dp, 0.000215_dp, 70.0_dp, 69.960397_dp, 0.000322_dp, 71.0_dp, 70.965722_dp, 0.000429_dp, 72.0_dp, 71.968599_dp, 0.000537_dp, 73.0_dp, 72.974246_dp, 0.000537_dp, 74.0_dp, 73.977821_dp, 0.000537_dp, 75.0_dp, 74.984219_dp, 0.000644_dp, 76.0_dp, 75.988631_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Fl_naw = naw_type(8, transpose(reshape([284.0_dp, 284.181192_dp, 0.000704_dp, 285.0_dp, 285.183503_dp, 0.000433_dp, 286.0_dp, 286.184226_dp, 0.000590_dp, 287.0_dp, 287.186720_dp, 0.000663_dp, 288.0_dp, 288.187781_dp, 0.000819_dp, 289.0_dp, 289.190517_dp, 0.000548_dp, 290.0_dp, 290.191875_dp, 0.000752_dp, 291.0_dp, 291.194848_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Fm_naw = naw_type(20, transpose(reshape([241.0_dp, 241.074311_dp, 0.000322_dp, 242.0_dp, 242.073430_dp, 0.000430_dp, 243.0_dp, 243.074414_dp, 0.000140_dp, 244.0_dp, 244.074036_dp, 0.000216_dp, 245.0_dp, 245.075354_dp, 0.000210_dp, 246.0_dp, 246.075353334_dp, 0.000014675_dp, 247.0_dp, 247.076944_dp, 0.000194_dp, 248.0_dp, 248.077185451_dp, 0.000009122_dp, 249.0_dp, 249.078926042_dp, 0.000006668_dp, 250.0_dp, 250.079519765_dp, 0.000008468_dp, 251.0_dp, 251.081545130_dp, 0.000015342_dp, 252.0_dp, 252.082466019_dp, 0.000005604_dp, 253.0_dp, 253.085180945_dp, 0.000001662_dp, 254.0_dp, 254.086852424_dp, 0.000001978_dp, 255.0_dp, 255.089963495_dp, 0.000004223_dp, 256.0_dp, 256.091771699_dp, 0.000003241_dp, 257.0_dp, 257.095105419_dp, 0.000004669_dp, 258.0_dp, 258.097077_dp, 0.000215_dp, 259.0_dp, 259.100596_dp, 0.000304_dp, 260.0_dp, 260.102809_dp, 0.000467_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Fr_naw = naw_type(37, transpose(reshape([197.0_dp, 197.011008086_dp, 0.000060584_dp, 198.0_dp, 198.010282081_dp, 0.000033419_dp, 199.0_dp, 199.007269384_dp, 0.000014734_dp, 200.0_dp, 200.006584666_dp, 0.000032769_dp, 201.0_dp, 201.003852491_dp, 0.000009747_dp, 202.0_dp, 202.003329637_dp, 0.000006476_dp, 203.0_dp, 203.000940867_dp, 0.000006689_dp, 204.0_dp, 204.000651972_dp, 0.000026389_dp, 205.0_dp, 204.998593854_dp, 0.000008399_dp, 206.0_dp, 205.998661441_dp, 0.000029856_dp, 207.0_dp, 206.996941450_dp, 0.000018847_dp, 208.0_dp, 207.997139082_dp, 0.000012514_dp, 209.0_dp, 208.995939701_dp, 0.000012349_dp, 210.0_dp, 209.996410596_dp, 0.000014407_dp, 211.0_dp, 210.995555189_dp, 0.000012872_dp, 212.0_dp, 211.996225420_dp, 0.000009419_dp, 213.0_dp, 212.996184410_dp, 0.000005053_dp, 214.0_dp, 213.998971193_dp, 0.000009145_dp, 215.0_dp, 215.000341534_dp, 0.000007585_dp, 216.0_dp, 216.003189523_dp, 0.000004480_dp, 217.0_dp, 217.004631980_dp, 0.000007011_dp, 218.0_dp, 218.007578620_dp, 0.000004546_dp, 219.0_dp, 219.009250664_dp, 0.000007380_dp, 220.0_dp, 220.012326789_dp, 0.000004324_dp, 221.0_dp, 221.014253714_dp, 0.000005245_dp, 222.0_dp, 222.017582615_dp, 0.000008000_dp, 223.0_dp, 223.019734241_dp, 0.000002073_dp, 224.0_dp, 224.023348096_dp, 0.000012000_dp, 225.0_dp, 225.025572466_dp, 0.000012847_dp, 226.0_dp, 226.029544512_dp, 0.000006688_dp, 227.0_dp, 227.031865413_dp, 0.000006332_dp, 228.0_dp, 228.035839433_dp, 0.000007226_dp, 229.0_dp, 229.038291443_dp, 0.000005368_dp, 230.0_dp, 230.042390787_dp, 0.000007022_dp, 231.0_dp, 231.045175353_dp, 0.000008300_dp, 232.0_dp, 232.049461219_dp, 0.000015000_dp, 233.0_dp, 233.052517833_dp, 0.000021000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ga_naw = naw_type(33, transpose(reshape([56.0_dp, 55.995878_dp, 0.000537_dp, 57.0_dp, 56.983457_dp, 0.000429_dp, 58.0_dp, 57.974729_dp, 0.000322_dp, 59.0_dp, 58.963757_dp, 0.000183_dp, 60.0_dp, 59.957498_dp, 0.000215_dp, 61.0_dp, 60.949398861_dp, 0.000040787_dp, 62.0_dp, 61.944189639_dp, 0.000000684_dp, 63.0_dp, 62.939294194_dp, 0.000001400_dp, 64.0_dp, 63.936840366_dp, 0.000001533_dp, 65.0_dp, 64.932734424_dp, 0.000000849_dp, 66.0_dp, 65.931589766_dp, 0.000001172_dp, 67.0_dp, 66.928202276_dp, 0.000001262_dp, 68.0_dp, 67.927980161_dp, 0.000001535_dp, 69.0_dp, 68.925573528_dp, 0.000001285_dp, 70.0_dp, 69.926021914_dp, 0.000001289_dp, 71.0_dp, 70.924702554_dp, 0.000000870_dp, 72.0_dp, 71.926367452_dp, 0.000000878_dp, 73.0_dp, 72.925174680_dp, 0.000001800_dp, 74.0_dp, 73.926945725_dp, 0.000003214_dp, 75.0_dp, 74.926504484_dp, 0.000000720_dp, 76.0_dp, 75.928827624_dp, 0.000002100_dp, 77.0_dp, 76.929154299_dp, 0.000002600_dp, 78.0_dp, 77.931610854_dp, 0.000001127_dp, 79.0_dp, 78.932851582_dp, 0.000001296_dp, 80.0_dp, 79.936420773_dp, 0.000003103_dp, 81.0_dp, 80.938133841_dp, 0.000003503_dp, 82.0_dp, 81.943176531_dp, 0.000002604_dp, 83.0_dp, 82.947120300_dp, 0.000002804_dp, 84.0_dp, 83.952663000_dp, 0.000032000_dp, 85.0_dp, 84.957333000_dp, 0.000040000_dp, 86.0_dp, 85.963757_dp, 0.000429_dp, 87.0_dp, 86.969007_dp, 0.000537_dp, 88.0_dp, 87.975963_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Gd_naw = naw_type(40, transpose(reshape([133.0_dp, 132.961288_dp, 0.000537_dp, 134.0_dp, 133.955416_dp, 0.000429_dp, 135.0_dp, 134.952496_dp, 0.000429_dp, 136.0_dp, 135.947300_dp, 0.000320_dp, 137.0_dp, 136.945020_dp, 0.000320_dp, 138.0_dp, 137.940247_dp, 0.000215_dp, 139.0_dp, 138.938130_dp, 0.000210_dp, 140.0_dp, 139.933674000_dp, 0.000030000_dp, 141.0_dp, 140.932126000_dp, 0.000021213_dp, 142.0_dp, 141.928116000_dp, 0.000030000_dp, 143.0_dp, 142.926750678_dp, 0.000215032_dp, 144.0_dp, 143.922963000_dp, 0.000030000_dp, 145.0_dp, 144.921710051_dp, 0.000021165_dp, 146.0_dp, 145.918318513_dp, 0.000004376_dp, 147.0_dp, 146.919101014_dp, 0.000002025_dp, 148.0_dp, 147.918121414_dp, 0.000001566_dp, 149.0_dp, 148.919347666_dp, 0.000003553_dp, 150.0_dp, 149.918663949_dp, 0.000006500_dp, 151.0_dp, 150.920354922_dp, 0.000003212_dp, 152.0_dp, 151.919798414_dp, 0.000001081_dp, 153.0_dp, 152.921756945_dp, 0.000001075_dp, 154.0_dp, 153.920872974_dp, 0.000001066_dp, 155.0_dp, 154.922629356_dp, 0.000001055_dp, 156.0_dp, 155.922130120_dp, 0.000001054_dp, 157.0_dp, 156.923967424_dp, 0.000001048_dp, 158.0_dp, 157.924111200_dp, 0.000001048_dp, 159.0_dp, 158.926395822_dp, 0.000001051_dp, 160.0_dp, 159.927061202_dp, 0.000001206_dp, 161.0_dp, 160.929676267_dp, 0.000001614_dp, 162.0_dp, 161.930991812_dp, 0.000004254_dp, 163.0_dp, 162.934096640_dp, 0.000000855_dp, 164.0_dp, 163.935916193_dp, 0.000001073_dp, 165.0_dp, 164.939317080_dp, 0.000001400_dp, 166.0_dp, 165.941630413_dp, 0.000001700_dp, 167.0_dp, 166.945490012_dp, 0.000005596_dp, 168.0_dp, 167.948309_dp, 0.000322_dp, 169.0_dp, 168.952882_dp, 0.000429_dp, 170.0_dp, 169.956146_dp, 0.000537_dp, 171.0_dp, 170.961127_dp, 0.000537_dp, 172.0_dp, 171.964605_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ge_naw = naw_type(33, transpose(reshape([58.0_dp, 57.991863_dp, 0.000537_dp, 59.0_dp, 58.982426_dp, 0.000429_dp, 60.0_dp, 59.970445_dp, 0.000322_dp, 61.0_dp, 60.963725_dp, 0.000322_dp, 62.0_dp, 61.954761_dp, 0.000150_dp, 63.0_dp, 62.949628000_dp, 0.000040000_dp, 64.0_dp, 63.941689912_dp, 0.000004000_dp, 65.0_dp, 64.939368136_dp, 0.000002323_dp, 66.0_dp, 65.933862124_dp, 0.000002577_dp, 67.0_dp, 66.932716999_dp, 0.000004636_dp, 68.0_dp, 67.928095305_dp, 0.000002014_dp, 69.0_dp, 68.927964467_dp, 0.000001414_dp, 70.0_dp, 69.924248542_dp, 0.000000880_dp, 71.0_dp, 70.924952120_dp, 0.000000874_dp, 72.0_dp, 71.922075824_dp, 0.000000081_dp, 73.0_dp, 72.923458954_dp, 0.000000061_dp, 74.0_dp, 73.921177760_dp, 0.000000013_dp, 75.0_dp, 74.922858370_dp, 0.000000055_dp, 76.0_dp, 75.921402725_dp, 0.000000019_dp, 77.0_dp, 76.923549843_dp, 0.000000056_dp, 78.0_dp, 77.922852911_dp, 0.000003795_dp, 79.0_dp, 78.925359506_dp, 0.000039893_dp, 80.0_dp, 79.925350773_dp, 0.000002205_dp, 81.0_dp, 80.928832941_dp, 0.000002205_dp, 82.0_dp, 81.929774031_dp, 0.000002405_dp, 83.0_dp, 82.934539100_dp, 0.000002604_dp, 84.0_dp, 83.937575090_dp, 0.000003403_dp, 85.0_dp, 84.942969658_dp, 0.000004003_dp, 86.0_dp, 85.946967000_dp, 0.000470000_dp, 87.0_dp, 86.953204_dp, 0.000322_dp, 88.0_dp, 87.957574_dp, 0.000429_dp, 89.0_dp, 88.964530_dp, 0.000429_dp, 90.0_dp, 89.969436_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: H_naw = naw_type(7, transpose(reshape([1.0_dp, 1.007825031898_dp, 0.000000000014_dp, 2.0_dp, 2.014101777844_dp, 0.000000000015_dp, 3.0_dp, 3.01604928132_dp, 0.00000000008_dp, 4.0_dp, 4.026431867_dp, 0.000107354_dp, 5.0_dp, 5.035311492_dp, 0.000096020_dp, 6.0_dp, 6.044955437_dp, 0.000272816_dp, 7.0_dp, 7.052749_dp, 0.001078_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: He_naw = naw_type(8, transpose(reshape([3.0_dp, 3.01602932197_dp, 0.00000000006_dp, 4.0_dp, 4.00260325413_dp, 0.00000000016_dp, 5.0_dp, 5.012057224_dp, 0.000021470_dp, 6.0_dp, 6.018885889_dp, 0.000000057_dp, 7.0_dp, 7.027990652_dp, 0.000008115_dp, 8.0_dp, 8.033934388_dp, 0.000000095_dp, 9.0_dp, 9.043946414_dp, 0.000050259_dp, 10.0_dp, 10.052815306_dp, 0.000099676_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Hf_naw = naw_type(38, transpose(reshape([153.0_dp, 152.970692_dp, 0.000322_dp, 154.0_dp, 153.964863_dp, 0.000322_dp, 155.0_dp, 154.963167_dp, 0.000322_dp, 156.0_dp, 155.959399083_dp, 0.000160752_dp, 157.0_dp, 156.958288_dp, 0.000215_dp, 158.0_dp, 157.954801217_dp, 0.000018780_dp, 159.0_dp, 158.953995837_dp, 0.000018049_dp, 160.0_dp, 159.950682728_dp, 0.000010241_dp, 161.0_dp, 160.950277927_dp, 0.000025174_dp, 162.0_dp, 161.947215526_dp, 0.000009610_dp, 163.0_dp, 162.947107211_dp, 0.000027582_dp, 164.0_dp, 163.944370709_dp, 0.000016975_dp, 165.0_dp, 164.944567000_dp, 0.000030000_dp, 166.0_dp, 165.942180000_dp, 0.000030000_dp, 167.0_dp, 166.942600000_dp, 0.000030000_dp, 168.0_dp, 167.940568000_dp, 0.000030000_dp, 169.0_dp, 168.941259000_dp, 0.000030000_dp, 170.0_dp, 169.939609000_dp, 0.000030000_dp, 171.0_dp, 170.940492000_dp, 0.000031000_dp, 172.0_dp, 171.939449716_dp, 0.000026224_dp, 173.0_dp, 172.940513000_dp, 0.000030000_dp, 174.0_dp, 173.940048377_dp, 0.000002425_dp, 175.0_dp, 174.941511424_dp, 0.000002450_dp, 176.0_dp, 175.941409797_dp, 0.000001591_dp, 177.0_dp, 176.943230187_dp, 0.000001514_dp, 178.0_dp, 177.943708322_dp, 0.000001519_dp, 179.0_dp, 178.945825705_dp, 0.000001520_dp, 180.0_dp, 179.946559537_dp, 0.000001525_dp, 181.0_dp, 180.949110834_dp, 0.000001527_dp, 182.0_dp, 181.950563684_dp, 0.000006619_dp, 183.0_dp, 182.953533203_dp, 0.000032251_dp, 184.0_dp, 183.955448507_dp, 0.000042625_dp, 185.0_dp, 184.958862000_dp, 0.000069000_dp, 186.0_dp, 185.960897000_dp, 0.000055000_dp, 187.0_dp, 186.964573_dp, 0.000215_dp, 188.0_dp, 187.966903_dp, 0.000322_dp, 189.0_dp, 188.970853_dp, 0.000322_dp, 190.0_dp, 189.973376_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Hg_naw = naw_type(47, transpose(reshape([170.0_dp, 170.005814_dp, 0.000324_dp, 171.0_dp, 171.003585_dp, 0.000329_dp, 172.0_dp, 171.998860581_dp, 0.000161098_dp, 173.0_dp, 172.997143_dp, 0.000215_dp, 174.0_dp, 173.992870575_dp, 0.000020623_dp, 175.0_dp, 174.991444451_dp, 0.000087047_dp, 176.0_dp, 175.987348670_dp, 0.000011936_dp, 177.0_dp, 176.986284590_dp, 0.000090952_dp, 178.0_dp, 177.982484756_dp, 0.000011548_dp, 179.0_dp, 178.981821759_dp, 0.000030188_dp, 180.0_dp, 179.978260180_dp, 0.000013574_dp, 181.0_dp, 180.977819368_dp, 0.000016513_dp, 182.0_dp, 181.974689173_dp, 0.000010510_dp, 183.0_dp, 182.974444652_dp, 0.000007604_dp, 184.0_dp, 183.971717709_dp, 0.000010235_dp, 185.0_dp, 184.971890696_dp, 0.000014641_dp, 186.0_dp, 185.969362061_dp, 0.000012507_dp, 187.0_dp, 186.969813540_dp, 0.000013810_dp, 188.0_dp, 187.967580738_dp, 0.000007285_dp, 189.0_dp, 188.968194776_dp, 0.000033873_dp, 190.0_dp, 189.966322250_dp, 0.000017076_dp, 191.0_dp, 190.967158301_dp, 0.000023918_dp, 192.0_dp, 191.965634263_dp, 0.000016679_dp, 193.0_dp, 192.966653395_dp, 0.000016645_dp, 194.0_dp, 193.965449108_dp, 0.000003100_dp, 195.0_dp, 194.966705809_dp, 0.000024843_dp, 196.0_dp, 195.965833445_dp, 0.000003163_dp, 197.0_dp, 196.967213715_dp, 0.000003442_dp, 198.0_dp, 197.966769177_dp, 0.000000491_dp, 199.0_dp, 198.968280994_dp, 0.000000564_dp, 200.0_dp, 199.968326941_dp, 0.000000568_dp, 201.0_dp, 200.970303054_dp, 0.000000763_dp, 202.0_dp, 201.970643604_dp, 0.000000757_dp, 203.0_dp, 202.972872396_dp, 0.000001750_dp, 204.0_dp, 203.973494037_dp, 0.000000534_dp, 205.0_dp, 204.976073151_dp, 0.000003923_dp, 206.0_dp, 205.977513837_dp, 0.000021943_dp, 207.0_dp, 206.982300000_dp, 0.000032000_dp, 208.0_dp, 207.985759000_dp, 0.000033000_dp, 209.0_dp, 208.990757_dp, 0.000161_dp, 210.0_dp, 209.994310_dp, 0.000215_dp, 211.0_dp, 210.999581_dp, 0.000215_dp, 212.0_dp, 212.003242_dp, 0.000322_dp, 213.0_dp, 213.008803_dp, 0.000322_dp, 214.0_dp, 214.012636_dp, 0.000429_dp, 215.0_dp, 215.018368_dp, 0.000429_dp, 216.0_dp, 216.022459_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ho_naw = naw_type(39, transpose(reshape([140.0_dp, 139.968526_dp, 0.000537_dp, 141.0_dp, 140.963108_dp, 0.000430_dp, 142.0_dp, 141.960010_dp, 0.000430_dp, 143.0_dp, 142.954860_dp, 0.000320_dp, 144.0_dp, 143.952109712_dp, 0.000009100_dp, 145.0_dp, 144.947267392_dp, 0.000008000_dp, 146.0_dp, 145.944993503_dp, 0.000007071_dp, 147.0_dp, 146.940142293_dp, 0.000005368_dp, 148.0_dp, 147.937743925_dp, 0.000090000_dp, 149.0_dp, 148.933820457_dp, 0.000012866_dp, 150.0_dp, 149.933498353_dp, 0.000015209_dp, 151.0_dp, 150.931698176_dp, 0.000008908_dp, 152.0_dp, 151.931717618_dp, 0.000013449_dp, 153.0_dp, 152.930206671_dp, 0.000005438_dp, 154.0_dp, 153.930606776_dp, 0.000008820_dp, 155.0_dp, 154.929103363_dp, 0.000018754_dp, 156.0_dp, 155.929641634_dp, 0.000041249_dp, 157.0_dp, 156.928251974_dp, 0.000025194_dp, 158.0_dp, 157.928944910_dp, 0.000029099_dp, 159.0_dp, 158.927718683_dp, 0.000003268_dp, 160.0_dp, 159.928735538_dp, 0.000016120_dp, 161.0_dp, 160.927861815_dp, 0.000002309_dp, 162.0_dp, 161.929102543_dp, 0.000003330_dp, 163.0_dp, 162.928740260_dp, 0.000000744_dp, 164.0_dp, 163.930240548_dp, 0.000001492_dp, 165.0_dp, 164.930329116_dp, 0.000000844_dp, 166.0_dp, 165.932291209_dp, 0.000000844_dp, 167.0_dp, 166.933140254_dp, 0.000005570_dp, 168.0_dp, 167.935523766_dp, 0.000032207_dp, 169.0_dp, 168.936879890_dp, 0.000021522_dp, 170.0_dp, 169.939626548_dp, 0.000053697_dp, 171.0_dp, 170.941472713_dp, 0.000644128_dp, 172.0_dp, 171.944730_dp, 0.000210_dp, 173.0_dp, 172.947020_dp, 0.000320_dp, 174.0_dp, 173.950757_dp, 0.000322_dp, 175.0_dp, 174.953516_dp, 0.000429_dp, 176.0_dp, 175.957713_dp, 0.000537_dp, 177.0_dp, 176.961052_dp, 0.000537_dp, 178.0_dp, 177.965507_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Hs_naw = naw_type(18, transpose(reshape([263.0_dp, 263.128479_dp, 0.000212_dp, 264.0_dp, 264.128356330_dp, 0.000031005_dp, 265.0_dp, 265.129791744_dp, 0.000025719_dp, 266.0_dp, 266.130048783_dp, 0.000029099_dp, 267.0_dp, 267.131678_dp, 0.000102_dp, 268.0_dp, 268.132011_dp, 0.000322_dp, 269.0_dp, 269.133649_dp, 0.000141_dp, 270.0_dp, 270.134313_dp, 0.000266_dp, 271.0_dp, 271.137082_dp, 0.000296_dp, 272.0_dp, 272.138492_dp, 0.000547_dp, 273.0_dp, 273.141458_dp, 0.000401_dp, 274.0_dp, 274.143217_dp, 0.000504_dp, 275.0_dp, 275.146530_dp, 0.000637_dp, 276.0_dp, 276.148348_dp, 0.000773_dp, 277.0_dp, 277.151772_dp, 0.000480_dp, 278.0_dp, 278.153753_dp, 0.000322_dp, 279.0_dp, 279.157274_dp, 0.000644_dp, 280.0_dp, 280.159335_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: I_naw = naw_type(42, transpose(reshape([106.0_dp, 105.953516_dp, 0.000429_dp, 107.0_dp, 106.946935_dp, 0.000322_dp, 108.0_dp, 107.943348_dp, 0.000109_dp, 109.0_dp, 108.938086022_dp, 0.000007223_dp, 110.0_dp, 109.935085102_dp, 0.000066494_dp, 111.0_dp, 110.930269236_dp, 0.000005103_dp, 112.0_dp, 111.928004548_dp, 0.000011000_dp, 113.0_dp, 112.923650062_dp, 0.000008600_dp, 114.0_dp, 113.922018900_dp, 0.000021500_dp, 115.0_dp, 114.918048000_dp, 0.000031000_dp, 116.0_dp, 115.916885513_dp, 0.000080555_dp, 117.0_dp, 116.913645649_dp, 0.000027437_dp, 118.0_dp, 117.913074000_dp, 0.000021213_dp, 119.0_dp, 118.910060910_dp, 0.000023302_dp, 120.0_dp, 119.910093729_dp, 0.000016212_dp, 121.0_dp, 120.907411492_dp, 0.000005070_dp, 122.0_dp, 121.907590094_dp, 0.000005561_dp, 123.0_dp, 122.905589753_dp, 0.000003956_dp, 124.0_dp, 123.906210297_dp, 0.000002467_dp, 125.0_dp, 124.904630610_dp, 0.000001452_dp, 126.0_dp, 125.905624205_dp, 0.000004055_dp, 127.0_dp, 126.904472592_dp, 0.000003887_dp, 128.0_dp, 127.905809355_dp, 0.000003887_dp, 129.0_dp, 128.904983643_dp, 0.000003385_dp, 130.0_dp, 129.906670168_dp, 0.000003385_dp, 131.0_dp, 130.906126375_dp, 0.000000649_dp, 132.0_dp, 131.907993511_dp, 0.000004364_dp, 133.0_dp, 132.907828400_dp, 0.000006335_dp, 134.0_dp, 133.909775660_dp, 0.000005213_dp, 135.0_dp, 134.910059355_dp, 0.000002211_dp, 136.0_dp, 135.914604693_dp, 0.000015231_dp, 137.0_dp, 136.918028178_dp, 0.000009000_dp, 138.0_dp, 137.922726392_dp, 0.000006400_dp, 139.0_dp, 138.926493400_dp, 0.000004300_dp, 140.0_dp, 139.931715914_dp, 0.000013000_dp, 141.0_dp, 140.935666081_dp, 0.000017000_dp, 142.0_dp, 141.941166595_dp, 0.000005300_dp, 143.0_dp, 142.945475_dp, 0.000215_dp, 144.0_dp, 143.951336_dp, 0.000429_dp, 145.0_dp, 144.955845_dp, 0.000537_dp, 146.0_dp, 145.961846_dp, 0.000322_dp, 147.0_dp, 146.966505_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: In_naw = naw_type(42, transpose(reshape([96.0_dp, 95.959109_dp, 0.000537_dp, 97.0_dp, 96.949125_dp, 0.000430_dp, 98.0_dp, 97.942129_dp, 0.000327_dp, 99.0_dp, 98.934110_dp, 0.000320_dp, 100.0_dp, 99.931101929_dp, 0.000002400_dp, 101.0_dp, 100.926414025_dp, 0.000012519_dp, 102.0_dp, 101.924105911_dp, 0.000004909_dp, 103.0_dp, 102.919878830_dp, 0.000009640_dp, 104.0_dp, 103.918214538_dp, 0.000006200_dp, 105.0_dp, 104.914502322_dp, 0.000011000_dp, 106.0_dp, 105.913463596_dp, 0.000013125_dp, 107.0_dp, 106.910287497_dp, 0.000010363_dp, 108.0_dp, 107.909693654_dp, 0.000009276_dp, 109.0_dp, 108.907149679_dp, 0.000004261_dp, 110.0_dp, 109.907170674_dp, 0.000012402_dp, 111.0_dp, 110.905107236_dp, 0.000003675_dp, 112.0_dp, 111.905538718_dp, 0.000004563_dp, 113.0_dp, 112.904060451_dp, 0.000000202_dp, 114.0_dp, 113.904916405_dp, 0.000000323_dp, 115.0_dp, 114.903878772_dp, 0.000000012_dp, 116.0_dp, 115.905259992_dp, 0.000000236_dp, 117.0_dp, 116.904515729_dp, 0.000005239_dp, 118.0_dp, 117.906356705_dp, 0.000008322_dp, 119.0_dp, 118.905851622_dp, 0.000007847_dp, 120.0_dp, 119.907967489_dp, 0.000042953_dp, 121.0_dp, 120.907852778_dp, 0.000029435_dp, 122.0_dp, 121.910282458_dp, 0.000053741_dp, 123.0_dp, 122.910435252_dp, 0.000021290_dp, 124.0_dp, 123.913184873_dp, 0.000032808_dp, 125.0_dp, 124.913673841_dp, 0.000001900_dp, 126.0_dp, 125.916468202_dp, 0.000004500_dp, 127.0_dp, 126.917466040_dp, 0.000010736_dp, 128.0_dp, 127.920353637_dp, 0.000001419_dp, 129.0_dp, 128.921808534_dp, 0.000002116_dp, 130.0_dp, 129.924952257_dp, 0.000001921_dp, 131.0_dp, 130.926972839_dp, 0.000002367_dp, 132.0_dp, 131.932998444_dp, 0.000064447_dp, 133.0_dp, 132.938067_dp, 0.000215_dp, 134.0_dp, 133.944208_dp, 0.000215_dp, 135.0_dp, 134.949425_dp, 0.000322_dp, 136.0_dp, 135.956017_dp, 0.000322_dp, 137.0_dp, 136.961535_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ir_naw = naw_type(43, transpose(reshape([163.0_dp, 162.994299_dp, 0.000429_dp, 164.0_dp, 163.991966_dp, 0.000339_dp, 165.0_dp, 164.987552_dp, 0.000170_dp, 166.0_dp, 165.985716_dp, 0.000215_dp, 167.0_dp, 166.981671973_dp, 0.000019694_dp, 168.0_dp, 167.979960978_dp, 0.000059277_dp, 169.0_dp, 168.976281743_dp, 0.000025020_dp, 170.0_dp, 169.975113_dp, 0.000109_dp, 171.0_dp, 170.971645520_dp, 0.000041295_dp, 172.0_dp, 171.970607035_dp, 0.000034785_dp, 173.0_dp, 172.967505477_dp, 0.000011316_dp, 174.0_dp, 173.966949939_dp, 0.000012046_dp, 175.0_dp, 174.964149519_dp, 0.000013295_dp, 176.0_dp, 175.963626261_dp, 0.000008679_dp, 177.0_dp, 176.961301500_dp, 0.000021213_dp, 178.0_dp, 177.961079395_dp, 0.000020204_dp, 179.0_dp, 178.959117594_dp, 0.000010489_dp, 180.0_dp, 179.959229446_dp, 0.000023302_dp, 181.0_dp, 180.957634691_dp, 0.000005631_dp, 182.0_dp, 181.958076296_dp, 0.000022509_dp, 183.0_dp, 182.956841231_dp, 0.000026486_dp, 184.0_dp, 183.957476000_dp, 0.000030000_dp, 185.0_dp, 184.956698000_dp, 0.000030000_dp, 186.0_dp, 185.957946754_dp, 0.000017740_dp, 187.0_dp, 186.957542000_dp, 0.000030000_dp, 188.0_dp, 187.958834999_dp, 0.000010116_dp, 189.0_dp, 188.958722602_dp, 0.000013500_dp, 190.0_dp, 189.960543374_dp, 0.000001470_dp, 191.0_dp, 190.960591455_dp, 0.000001406_dp, 192.0_dp, 191.962602414_dp, 0.000001410_dp, 193.0_dp, 192.962923753_dp, 0.000001425_dp, 194.0_dp, 193.965075703_dp, 0.000001429_dp, 195.0_dp, 194.965976898_dp, 0.000001431_dp, 196.0_dp, 195.968399669_dp, 0.000041239_dp, 197.0_dp, 196.969657217_dp, 0.000021588_dp, 198.0_dp, 197.972399_dp, 0.000215_dp, 199.0_dp, 198.973807097_dp, 0.000044073_dp, 200.0_dp, 199.976844_dp, 0.000210_dp, 201.0_dp, 200.978701_dp, 0.000215_dp, 202.0_dp, 201.982136_dp, 0.000322_dp, 203.0_dp, 202.984573_dp, 0.000429_dp, 204.0_dp, 203.989726_dp, 0.000429_dp, 205.0_dp, 204.993988_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: K_naw = naw_type(29, transpose(reshape([31.0_dp, 31.036780_dp, 0.000322_dp, 32.0_dp, 32.023607_dp, 0.000429_dp, 33.0_dp, 33.008095_dp, 0.000215_dp, 34.0_dp, 33.998690_dp, 0.000210_dp, 35.0_dp, 34.988005406_dp, 0.000000550_dp, 36.0_dp, 35.981301887_dp, 0.000000349_dp, 37.0_dp, 36.973375890_dp, 0.000000100_dp, 38.0_dp, 37.969081114_dp, 0.000000209_dp, 39.0_dp, 38.96370648482_dp, 0.00000000489_dp, 40.0_dp, 39.963998165_dp, 0.000000060_dp, 41.0_dp, 40.96182525611_dp, 0.00000000403_dp, 42.0_dp, 41.962402305_dp, 0.000000113_dp, 43.0_dp, 42.960734701_dp, 0.000000440_dp, 44.0_dp, 43.961586984_dp, 0.000000450_dp, 45.0_dp, 44.960691491_dp, 0.000000560_dp, 46.0_dp, 45.961981584_dp, 0.000000780_dp, 47.0_dp, 46.961661612_dp, 0.000001500_dp, 48.0_dp, 47.965341184_dp, 0.000000830_dp, 49.0_dp, 48.968210753_dp, 0.000000860_dp, 50.0_dp, 49.972380015_dp, 0.000008300_dp, 51.0_dp, 50.975828664_dp, 0.000014000_dp, 52.0_dp, 51.981602000_dp, 0.000036000_dp, 53.0_dp, 52.986800000_dp, 0.000120000_dp, 54.0_dp, 53.994471_dp, 0.000429_dp, 55.0_dp, 55.000505_dp, 0.000537_dp, 56.0_dp, 56.008567_dp, 0.000644_dp, 57.0_dp, 57.015169_dp, 0.000644_dp, 58.0_dp, 58.023543_dp, 0.000751_dp, 59.0_dp, 59.030864_dp, 0.000859_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Kr_naw = naw_type(35, transpose(reshape([67.0_dp, 66.983305_dp, 0.000455_dp, 68.0_dp, 67.972489_dp, 0.000537_dp, 69.0_dp, 68.965496_dp, 0.000322_dp, 70.0_dp, 69.955877_dp, 0.000215_dp, 71.0_dp, 70.950265695_dp, 0.000138238_dp, 72.0_dp, 71.942092406_dp, 0.000008600_dp, 73.0_dp, 72.939289193_dp, 0.000007061_dp, 74.0_dp, 73.933084016_dp, 0.000002161_dp, 75.0_dp, 74.930945744_dp, 0.000008700_dp, 76.0_dp, 75.925910743_dp, 0.000004308_dp, 77.0_dp, 76.924669999_dp, 0.000002100_dp, 78.0_dp, 77.920366341_dp, 0.000000329_dp, 79.0_dp, 78.920082919_dp, 0.000003736_dp, 80.0_dp, 79.916377940_dp, 0.000000745_dp, 81.0_dp, 80.916589703_dp, 0.000001152_dp, 82.0_dp, 81.91348115368_dp, 0.00000000591_dp, 83.0_dp, 82.914126516_dp, 0.000000009_dp, 84.0_dp, 83.91149772708_dp, 0.00000000410_dp, 85.0_dp, 84.912527260_dp, 0.000002147_dp, 86.0_dp, 85.91061062468_dp, 0.00000000399_dp, 87.0_dp, 86.913354759_dp, 0.000000264_dp, 88.0_dp, 87.914447879_dp, 0.000002800_dp, 89.0_dp, 88.917835449_dp, 0.000002300_dp, 90.0_dp, 89.919527929_dp, 0.000002000_dp, 91.0_dp, 90.923806309_dp, 0.000002400_dp, 92.0_dp, 91.926173092_dp, 0.000002900_dp, 93.0_dp, 92.931147172_dp, 0.000002700_dp, 94.0_dp, 93.934140452_dp, 0.000013000_dp, 95.0_dp, 94.939710922_dp, 0.000020000_dp, 96.0_dp, 95.943014473_dp, 0.000020695_dp, 97.0_dp, 96.949088782_dp, 0.000140000_dp, 98.0_dp, 97.952635_dp, 0.000322_dp, 99.0_dp, 98.958776_dp, 0.000429_dp, 100.0_dp, 99.962995_dp, 0.000429_dp, 101.0_dp, 100.969318_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: La_naw = naw_type(42, transpose(reshape([116.0_dp, 115.957005_dp, 0.000345_dp, 117.0_dp, 116.950326_dp, 0.000215_dp, 118.0_dp, 117.946731_dp, 0.000322_dp, 119.0_dp, 118.940934_dp, 0.000322_dp, 120.0_dp, 119.938196_dp, 0.000322_dp, 121.0_dp, 120.933236_dp, 0.000322_dp, 122.0_dp, 121.930710_dp, 0.000320_dp, 123.0_dp, 122.926300_dp, 0.000210_dp, 124.0_dp, 123.924574275_dp, 0.000060836_dp, 125.0_dp, 124.920815931_dp, 0.000027909_dp, 126.0_dp, 125.919512667_dp, 0.000097163_dp, 127.0_dp, 126.916375083_dp, 0.000027912_dp, 128.0_dp, 127.915592123_dp, 0.000058452_dp, 129.0_dp, 128.912695592_dp, 0.000022913_dp, 130.0_dp, 129.912369413_dp, 0.000027854_dp, 131.0_dp, 130.910070000_dp, 0.000030000_dp, 132.0_dp, 131.910119047_dp, 0.000039032_dp, 133.0_dp, 132.908218000_dp, 0.000030000_dp, 134.0_dp, 133.908514011_dp, 0.000021395_dp, 135.0_dp, 134.906984427_dp, 0.000010126_dp, 136.0_dp, 135.907634962_dp, 0.000057081_dp, 137.0_dp, 136.906450438_dp, 0.000001760_dp, 138.0_dp, 137.907124041_dp, 0.000000446_dp, 139.0_dp, 138.906362927_dp, 0.000000651_dp, 140.0_dp, 139.909487285_dp, 0.000000651_dp, 141.0_dp, 140.910971155_dp, 0.000004430_dp, 142.0_dp, 141.914090760_dp, 0.000006748_dp, 143.0_dp, 142.916079482_dp, 0.000007868_dp, 144.0_dp, 143.919645589_dp, 0.000013888_dp, 145.0_dp, 144.921808065_dp, 0.000013170_dp, 146.0_dp, 145.925688017_dp, 0.000001797_dp, 147.0_dp, 146.928417800_dp, 0.000011500_dp, 148.0_dp, 147.932679400_dp, 0.000020900_dp, 149.0_dp, 148.935351259_dp, 0.000214990_dp, 150.0_dp, 149.939547500_dp, 0.000002700_dp, 151.0_dp, 150.942769000_dp, 0.000467500_dp, 152.0_dp, 151.947085_dp, 0.000322_dp, 153.0_dp, 152.950553_dp, 0.000322_dp, 154.0_dp, 153.955416_dp, 0.000322_dp, 155.0_dp, 154.959280_dp, 0.000429_dp, 156.0_dp, 155.964519_dp, 0.000429_dp, 157.0_dp, 156.968792_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Li_naw = naw_type(11, transpose(reshape([3.0_dp, 3.030775_dp, 0.002147_dp, 4.0_dp, 4.027185561_dp, 0.000227733_dp, 5.0_dp, 5.012537800_dp, 0.000053677_dp, 6.0_dp, 6.01512288742_dp, 0.00000000155_dp, 7.0_dp, 7.01600343426_dp, 0.00000000450_dp, 8.0_dp, 8.022486244_dp, 0.000000050_dp, 9.0_dp, 9.026790191_dp, 0.000000200_dp, 10.0_dp, 10.035483453_dp, 0.000013656_dp, 11.0_dp, 11.043723581_dp, 0.000000660_dp, 12.0_dp, 12.052613942_dp, 0.000032213_dp, 13.0_dp, 13.061171503_dp, 0.000075150_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Lr_naw = naw_type(16, transpose(reshape([251.0_dp, 251.094289_dp, 0.000215_dp, 252.0_dp, 252.095048_dp, 0.000198_dp, 253.0_dp, 253.095033850_dp, 0.000176634_dp, 254.0_dp, 254.096238813_dp, 0.000098026_dp, 255.0_dp, 255.096562399_dp, 0.000019000_dp, 256.0_dp, 256.098494024_dp, 0.000089000_dp, 257.0_dp, 257.099480_dp, 0.000047_dp, 258.0_dp, 258.101753_dp, 0.000109_dp, 259.0_dp, 259.102900_dp, 0.000076_dp, 260.0_dp, 260.105504_dp, 0.000134_dp, 261.0_dp, 261.106879_dp, 0.000215_dp, 262.0_dp, 262.109615_dp, 0.000215_dp, 263.0_dp, 263.111293_dp, 0.000240_dp, 264.0_dp, 264.114198_dp, 0.000468_dp, 265.0_dp, 265.116193_dp, 0.000587_dp, 266.0_dp, 266.119874_dp, 0.000579_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Lu_naw = naw_type(39, transpose(reshape([150.0_dp, 149.973407_dp, 0.000322_dp, 151.0_dp, 150.967471_dp, 0.000322_dp, 152.0_dp, 151.964120_dp, 0.000210_dp, 153.0_dp, 152.958802248_dp, 0.000161050_dp, 154.0_dp, 153.957416_dp, 0.000216_dp, 155.0_dp, 154.954326005_dp, 0.000020660_dp, 156.0_dp, 155.953086606_dp, 0.000058102_dp, 157.0_dp, 156.950144807_dp, 0.000012961_dp, 158.0_dp, 157.949315620_dp, 0.000016236_dp, 159.0_dp, 158.946635615_dp, 0.000040433_dp, 160.0_dp, 159.946033000_dp, 0.000061000_dp, 161.0_dp, 160.943572000_dp, 0.000030000_dp, 162.0_dp, 161.943282776_dp, 0.000080554_dp, 163.0_dp, 162.941179000_dp, 0.000030000_dp, 164.0_dp, 163.941339000_dp, 0.000030000_dp, 165.0_dp, 164.939406758_dp, 0.000028490_dp, 166.0_dp, 165.939859000_dp, 0.000032000_dp, 167.0_dp, 166.938243000_dp, 0.000040000_dp, 168.0_dp, 167.938729798_dp, 0.000040766_dp, 169.0_dp, 168.937645845_dp, 0.000003226_dp, 170.0_dp, 169.938479230_dp, 0.000018081_dp, 171.0_dp, 170.937918591_dp, 0.000001999_dp, 172.0_dp, 171.939091320_dp, 0.000002507_dp, 173.0_dp, 172.938935722_dp, 0.000001682_dp, 174.0_dp, 173.940342840_dp, 0.000001682_dp, 175.0_dp, 174.940777211_dp, 0.000001295_dp, 176.0_dp, 175.942691711_dp, 0.000001301_dp, 177.0_dp, 176.943763570_dp, 0.000001310_dp, 178.0_dp, 177.945960065_dp, 0.000002416_dp, 179.0_dp, 178.947332985_dp, 0.000005528_dp, 180.0_dp, 179.949890744_dp, 0.000075926_dp, 181.0_dp, 180.951908000_dp, 0.000135000_dp, 182.0_dp, 181.955158_dp, 0.000215_dp, 183.0_dp, 182.957363000_dp, 0.000086000_dp, 184.0_dp, 183.961030_dp, 0.000215_dp, 185.0_dp, 184.963542_dp, 0.000322_dp, 186.0_dp, 185.967450_dp, 0.000429_dp, 187.0_dp, 186.970188_dp, 0.000429_dp, 188.0_dp, 187.974428_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Lv_naw = naw_type(5, transpose(reshape([289.0_dp, 289.198023_dp, 0.000540_dp, 290.0_dp, 290.198635_dp, 0.000593_dp, 291.0_dp, 291.201014_dp, 0.000669_dp, 292.0_dp, 292.201969_dp, 0.000819_dp, 293.0_dp, 293.204583_dp, 0.000553_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Mc_naw = naw_type(6, transpose(reshape([287.0_dp, 287.190820_dp, 0.000475_dp, 288.0_dp, 288.192879_dp, 0.000575_dp, 289.0_dp, 289.193971_dp, 0.000834_dp, 290.0_dp, 290.196235_dp, 0.000635_dp, 291.0_dp, 291.197725_dp, 0.000789_dp, 292.0_dp, 292.200323_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Md_naw = naw_type(19, transpose(reshape([244.0_dp, 244.081157_dp, 0.000402_dp, 245.0_dp, 245.080864_dp, 0.000279_dp, 246.0_dp, 246.081713_dp, 0.000279_dp, 247.0_dp, 247.081520_dp, 0.000223_dp, 248.0_dp, 248.082607_dp, 0.000198_dp, 249.0_dp, 249.082857155_dp, 0.000176516_dp, 250.0_dp, 250.084164934_dp, 0.000097606_dp, 251.0_dp, 251.084774287_dp, 0.000020310_dp, 252.0_dp, 252.086385000_dp, 0.000098000_dp, 253.0_dp, 253.087143_dp, 0.000034_dp, 254.0_dp, 254.089590_dp, 0.000107_dp, 255.0_dp, 255.091081702_dp, 0.000005976_dp, 256.0_dp, 256.093888_dp, 0.000133_dp, 257.0_dp, 257.095537343_dp, 0.000001683_dp, 258.0_dp, 258.098433634_dp, 0.000003729_dp, 259.0_dp, 259.100445_dp, 0.000108_dp, 260.0_dp, 260.103650_dp, 0.000339_dp, 261.0_dp, 261.105828_dp, 0.000546_dp, 262.0_dp, 262.109144_dp, 0.000481_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Mg_naw = naw_type(23, transpose(reshape([19.0_dp, 19.034179920_dp, 0.000064413_dp, 20.0_dp, 20.018763075_dp, 0.000002000_dp, 21.0_dp, 21.011705764_dp, 0.000000810_dp, 22.0_dp, 21.999570597_dp, 0.000000170_dp, 23.0_dp, 22.994123768_dp, 0.000000034_dp, 24.0_dp, 23.985041689_dp, 0.000000013_dp, 25.0_dp, 24.985836966_dp, 0.000000050_dp, 26.0_dp, 25.982592972_dp, 0.000000031_dp, 27.0_dp, 26.984340647_dp, 0.000000050_dp, 28.0_dp, 27.983875426_dp, 0.000000280_dp, 29.0_dp, 28.988607163_dp, 0.000000369_dp, 30.0_dp, 29.990465454_dp, 0.000001390_dp, 31.0_dp, 30.996648232_dp, 0.000003300_dp, 32.0_dp, 31.999110138_dp, 0.000003500_dp, 33.0_dp, 33.005327862_dp, 0.000002859_dp, 34.0_dp, 34.008935455_dp, 0.000007400_dp, 35.0_dp, 35.016790000_dp, 0.000289500_dp, 36.0_dp, 36.021879000_dp, 0.000741000_dp, 37.0_dp, 37.030286265_dp, 0.000750350_dp, 38.0_dp, 38.036580_dp, 0.000540_dp, 39.0_dp, 39.045921_dp, 0.000551_dp, 40.0_dp, 40.053194_dp, 0.000537_dp, 41.0_dp, 41.062373_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Mn_naw = naw_type(31, transpose(reshape([43.0_dp, 43.018647_dp, 0.000429_dp, 44.0_dp, 44.008009_dp, 0.000322_dp, 45.0_dp, 44.994654_dp, 0.000322_dp, 46.0_dp, 45.986669000_dp, 0.000093000_dp, 47.0_dp, 46.975774000_dp, 0.000034000_dp, 48.0_dp, 47.968548760_dp, 0.000007191_dp, 49.0_dp, 48.959613350_dp, 0.000002377_dp, 50.0_dp, 49.954238157_dp, 0.000000123_dp, 51.0_dp, 50.948208770_dp, 0.000000326_dp, 52.0_dp, 51.945559090_dp, 0.000000138_dp, 53.0_dp, 52.941287497_dp, 0.000000371_dp, 54.0_dp, 53.940355772_dp, 0.000001080_dp, 55.0_dp, 54.938043040_dp, 0.000000279_dp, 56.0_dp, 55.938902816_dp, 0.000000314_dp, 57.0_dp, 56.938285944_dp, 0.000001615_dp, 58.0_dp, 57.940066643_dp, 0.000002900_dp, 59.0_dp, 58.940391111_dp, 0.000002500_dp, 60.0_dp, 59.943136574_dp, 0.000002500_dp, 61.0_dp, 60.944452541_dp, 0.000002500_dp, 62.0_dp, 61.947907384_dp, 0.000007023_dp, 63.0_dp, 62.949664672_dp, 0.000004000_dp, 64.0_dp, 63.953849369_dp, 0.000003800_dp, 65.0_dp, 64.956019749_dp, 0.000004000_dp, 66.0_dp, 65.960546833_dp, 0.000012000_dp, 67.0_dp, 66.963950_dp, 0.000215_dp, 68.0_dp, 67.968953_dp, 0.000322_dp, 69.0_dp, 68.972775_dp, 0.000429_dp, 70.0_dp, 69.978046_dp, 0.000537_dp, 71.0_dp, 70.982158_dp, 0.000537_dp, 72.0_dp, 71.988009_dp, 0.000644_dp, 73.0_dp, 72.992807_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Mo_naw = naw_type(39, transpose(reshape([81.0_dp, 80.966226_dp, 0.000537_dp, 82.0_dp, 81.956661_dp, 0.000429_dp, 83.0_dp, 82.950252_dp, 0.000430_dp, 84.0_dp, 83.941846_dp, 0.000320_dp, 85.0_dp, 84.938260736_dp, 0.000017000_dp, 86.0_dp, 85.931174092_dp, 0.000003147_dp, 87.0_dp, 86.928196198_dp, 0.000003067_dp, 88.0_dp, 87.921967779_dp, 0.000004100_dp, 89.0_dp, 88.919468149_dp, 0.000004200_dp, 90.0_dp, 89.913931270_dp, 0.000003717_dp, 91.0_dp, 90.911745190_dp, 0.000006696_dp, 92.0_dp, 91.906807153_dp, 0.000000168_dp, 93.0_dp, 92.906808772_dp, 0.000000193_dp, 94.0_dp, 93.905083586_dp, 0.000000151_dp, 95.0_dp, 94.905837436_dp, 0.000000132_dp, 96.0_dp, 95.904674770_dp, 0.000000128_dp, 97.0_dp, 96.906016903_dp, 0.000000176_dp, 98.0_dp, 97.905403609_dp, 0.000000186_dp, 99.0_dp, 98.907707299_dp, 0.000000245_dp, 100.0_dp, 99.907467982_dp, 0.000000322_dp, 101.0_dp, 100.910337648_dp, 0.000000331_dp, 102.0_dp, 101.910293725_dp, 0.000008916_dp, 103.0_dp, 102.913091954_dp, 0.000009900_dp, 104.0_dp, 103.913747443_dp, 0.000009566_dp, 105.0_dp, 104.916981989_dp, 0.000009721_dp, 106.0_dp, 105.918273231_dp, 0.000009801_dp, 107.0_dp, 106.922119770_dp, 0.000009901_dp, 108.0_dp, 107.924047508_dp, 0.000009901_dp, 109.0_dp, 108.928438318_dp, 0.000012000_dp, 110.0_dp, 109.930717956_dp, 0.000026000_dp, 111.0_dp, 110.935651966_dp, 0.000013503_dp, 112.0_dp, 111.938293_dp, 0.000215_dp, 113.0_dp, 112.943478_dp, 0.000322_dp, 114.0_dp, 113.946666_dp, 0.000322_dp, 115.0_dp, 114.952174_dp, 0.000429_dp, 116.0_dp, 115.955759_dp, 0.000537_dp, 117.0_dp, 116.961686_dp, 0.000537_dp, 118.0_dp, 117.965249_dp, 0.000537_dp, 119.0_dp, 118.971465_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Mt_naw = naw_type(18, transpose(reshape([265.0_dp, 265.135937_dp, 0.000471_dp, 266.0_dp, 266.137062253_dp, 0.000103568_dp, 267.0_dp, 267.137189_dp, 0.000540_dp, 268.0_dp, 268.138649_dp, 0.000250_dp, 269.0_dp, 269.138809_dp, 0.000335_dp, 270.0_dp, 270.140322_dp, 0.000205_dp, 271.0_dp, 271.140741_dp, 0.000354_dp, 272.0_dp, 272.143298_dp, 0.000521_dp, 273.0_dp, 273.144695_dp, 0.000455_dp, 274.0_dp, 274.147343_dp, 0.000404_dp, 275.0_dp, 275.148972_dp, 0.000416_dp, 276.0_dp, 276.151705_dp, 0.000571_dp, 277.0_dp, 277.153525_dp, 0.000711_dp, 278.0_dp, 278.156487_dp, 0.000621_dp, 279.0_dp, 279.158439_dp, 0.000720_dp, 280.0_dp, 280.161579_dp, 0.000644_dp, 281.0_dp, 281.163608_dp, 0.000644_dp, 282.0_dp, 282.166888_dp, 0.000480_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: N_naw = naw_type(16, transpose(reshape([10.0_dp, 10.041653540_dp, 0.000429417_dp, 11.0_dp, 11.026157593_dp, 0.000005368_dp, 12.0_dp, 12.018613180_dp, 0.000001073_dp, 13.0_dp, 13.005738609_dp, 0.000000289_dp, 14.0_dp, 14.00307400425_dp, 0.00000000024_dp, 15.0_dp, 15.00010889827_dp, 0.00000000062_dp, 16.0_dp, 16.006101925_dp, 0.000002470_dp, 17.0_dp, 17.008448876_dp, 0.000016103_dp, 18.0_dp, 18.014077563_dp, 0.000019935_dp, 19.0_dp, 19.017022389_dp, 0.000017610_dp, 20.0_dp, 20.023367295_dp, 0.000084696_dp, 21.0_dp, 21.027087573_dp, 0.000143906_dp, 22.0_dp, 22.034100918_dp, 0.000223060_dp, 23.0_dp, 23.039421000_dp, 0.000451500_dp, 24.0_dp, 24.050390_dp, 0.000430_dp, 25.0_dp, 25.060100_dp, 0.000540_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Na_naw = naw_type(23, transpose(reshape([17.0_dp, 17.037273000_dp, 0.000064000_dp, 18.0_dp, 18.026879388_dp, 0.000100785_dp, 19.0_dp, 19.013880264_dp, 0.000011309_dp, 20.0_dp, 20.007354301_dp, 0.000001190_dp, 21.0_dp, 20.997654459_dp, 0.000000045_dp, 22.0_dp, 21.994437547_dp, 0.000000141_dp, 23.0_dp, 22.98976928195_dp, 0.00000000194_dp, 24.0_dp, 23.990963012_dp, 0.000000017_dp, 25.0_dp, 24.989953974_dp, 0.000001288_dp, 26.0_dp, 25.992634649_dp, 0.000003759_dp, 27.0_dp, 26.994076408_dp, 0.000004000_dp, 28.0_dp, 27.998939000_dp, 0.000011000_dp, 29.0_dp, 29.002877091_dp, 0.000007876_dp, 30.0_dp, 30.009097931_dp, 0.000005074_dp, 31.0_dp, 31.013146654_dp, 0.000015000_dp, 32.0_dp, 32.020011024_dp, 0.000040000_dp, 33.0_dp, 33.025529000_dp, 0.000483000_dp, 34.0_dp, 34.034010000_dp, 0.000643500_dp, 35.0_dp, 35.040614_dp, 0.000720_dp, 36.0_dp, 36.049279_dp, 0.000737_dp, 37.0_dp, 37.057042_dp, 0.000737_dp, 38.0_dp, 38.066458_dp, 0.000768_dp, 39.0_dp, 39.075123_dp, 0.000797_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Nb_naw = naw_type(38, transpose(reshape([79.0_dp, 78.966022_dp, 0.000537_dp, 80.0_dp, 79.958754_dp, 0.000429_dp, 81.0_dp, 80.950230_dp, 0.000429_dp, 82.0_dp, 81.944380_dp, 0.000322_dp, 83.0_dp, 82.938150000_dp, 0.000174000_dp, 84.0_dp, 83.934305711_dp, 0.000000430_dp, 85.0_dp, 84.928845836_dp, 0.000004400_dp, 86.0_dp, 85.925781536_dp, 0.000005903_dp, 87.0_dp, 86.920692473_dp, 0.000007302_dp, 88.0_dp, 87.918226476_dp, 0.000062059_dp, 89.0_dp, 88.913444696_dp, 0.000025367_dp, 90.0_dp, 89.911259201_dp, 0.000003561_dp, 91.0_dp, 90.906990256_dp, 0.000003140_dp, 92.0_dp, 91.907188580_dp, 0.000001915_dp, 93.0_dp, 92.906373170_dp, 0.000001599_dp, 94.0_dp, 93.907279001_dp, 0.000001600_dp, 95.0_dp, 94.906831110_dp, 0.000000545_dp, 96.0_dp, 95.908101586_dp, 0.000000157_dp, 97.0_dp, 96.908101622_dp, 0.000004556_dp, 98.0_dp, 97.910332645_dp, 0.000005369_dp, 99.0_dp, 98.911609377_dp, 0.000012886_dp, 100.0_dp, 99.914340578_dp, 0.000008562_dp, 101.0_dp, 100.915306508_dp, 0.000004024_dp, 102.0_dp, 101.918090447_dp, 0.000002695_dp, 103.0_dp, 102.919453416_dp, 0.000004224_dp, 104.0_dp, 103.922907728_dp, 0.000001915_dp, 105.0_dp, 104.924942577_dp, 0.000004324_dp, 106.0_dp, 105.928928505_dp, 0.000001520_dp, 107.0_dp, 106.931589685_dp, 0.000008612_dp, 108.0_dp, 107.936075604_dp, 0.000008844_dp, 109.0_dp, 108.939141000_dp, 0.000462500_dp, 110.0_dp, 109.943843000_dp, 0.000900000_dp, 111.0_dp, 110.947439_dp, 0.000322_dp, 112.0_dp, 111.952689_dp, 0.000322_dp, 113.0_dp, 112.956833_dp, 0.000429_dp, 114.0_dp, 113.962469_dp, 0.000537_dp, 115.0_dp, 114.966849_dp, 0.000537_dp, 116.0_dp, 115.972914_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Nd_naw = naw_type(40, transpose(reshape([124.0_dp, 123.951873_dp, 0.000537_dp, 125.0_dp, 124.948395_dp, 0.000429_dp, 126.0_dp, 125.942694_dp, 0.000322_dp, 127.0_dp, 126.939978_dp, 0.000322_dp, 128.0_dp, 127.935018_dp, 0.000215_dp, 129.0_dp, 128.933038_dp, 0.000217_dp, 130.0_dp, 129.928506000_dp, 0.000030000_dp, 131.0_dp, 130.927248020_dp, 0.000029541_dp, 132.0_dp, 131.923321237_dp, 0.000025985_dp, 133.0_dp, 132.922348000_dp, 0.000050000_dp, 134.0_dp, 133.918790207_dp, 0.000012686_dp, 135.0_dp, 134.918181318_dp, 0.000020534_dp, 136.0_dp, 135.914976061_dp, 0.000012686_dp, 137.0_dp, 136.914563099_dp, 0.000012586_dp, 138.0_dp, 137.911950938_dp, 0.000012456_dp, 139.0_dp, 138.911951208_dp, 0.000029545_dp, 140.0_dp, 139.909546130_dp, 0.000003500_dp, 141.0_dp, 140.909616690_dp, 0.000003417_dp, 142.0_dp, 141.907728824_dp, 0.000001348_dp, 143.0_dp, 142.909819815_dp, 0.000001347_dp, 144.0_dp, 143.910092798_dp, 0.000001346_dp, 145.0_dp, 144.912579151_dp, 0.000001364_dp, 146.0_dp, 145.913122459_dp, 0.000001366_dp, 147.0_dp, 146.916105969_dp, 0.000001368_dp, 148.0_dp, 147.916899027_dp, 0.000002203_dp, 149.0_dp, 148.920154583_dp, 0.000002205_dp, 150.0_dp, 149.920901322_dp, 0.000001211_dp, 151.0_dp, 150.923839363_dp, 0.000001215_dp, 152.0_dp, 151.924691242_dp, 0.000026276_dp, 153.0_dp, 152.927717868_dp, 0.000002949_dp, 154.0_dp, 153.929597404_dp, 0.000001100_dp, 155.0_dp, 154.933135598_dp, 0.000009826_dp, 156.0_dp, 155.935370358_dp, 0.000001400_dp, 157.0_dp, 156.939351074_dp, 0.000002294_dp, 158.0_dp, 157.942205620_dp, 0.000001400_dp, 159.0_dp, 158.946619085_dp, 0.000032000_dp, 160.0_dp, 159.949839172_dp, 0.000050000_dp, 161.0_dp, 160.954664_dp, 0.000429_dp, 162.0_dp, 161.958121_dp, 0.000429_dp, 163.0_dp, 162.963414_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ne_naw = naw_type(20, transpose(reshape([15.0_dp, 15.043172977_dp, 0.000071588_dp, 16.0_dp, 16.025750860_dp, 0.000021986_dp, 17.0_dp, 17.017713962_dp, 0.000000380_dp, 18.0_dp, 18.005708696_dp, 0.000000390_dp, 19.0_dp, 19.001880906_dp, 0.000000171_dp, 20.0_dp, 19.99244017525_dp, 0.00000000165_dp, 21.0_dp, 20.993846685_dp, 0.000000041_dp, 22.0_dp, 21.991385113_dp, 0.000000018_dp, 23.0_dp, 22.994466905_dp, 0.000000112_dp, 24.0_dp, 23.993610649_dp, 0.000000550_dp, 25.0_dp, 24.997814797_dp, 0.000031181_dp, 26.0_dp, 26.000516496_dp, 0.000019784_dp, 27.0_dp, 27.007569462_dp, 0.000097445_dp, 28.0_dp, 28.012130767_dp, 0.000135339_dp, 29.0_dp, 29.019753000_dp, 0.000160500_dp, 30.0_dp, 30.024992235_dp, 0.000271875_dp, 31.0_dp, 31.033474816_dp, 0.000285772_dp, 32.0_dp, 32.039720_dp, 0.000540_dp, 33.0_dp, 33.049523_dp, 0.000644_dp, 34.0_dp, 34.056728_dp, 0.000551_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Nh_naw = naw_type(13, transpose(reshape([278.0_dp, 278.170725_dp, 0.000240_dp, 279.0_dp, 279.171187_dp, 0.000644_dp, 280.0_dp, 280.173098_dp, 0.000429_dp, 281.0_dp, 281.173710_dp, 0.000322_dp, 282.0_dp, 282.175770_dp, 0.000430_dp, 283.0_dp, 283.176666_dp, 0.000469_dp, 284.0_dp, 284.178843_dp, 0.000573_dp, 285.0_dp, 285.180106_dp, 0.000832_dp, 286.0_dp, 286.182456_dp, 0.000634_dp, 287.0_dp, 287.184064_dp, 0.000759_dp, 288.0_dp, 288.186764_dp, 0.000751_dp, 289.0_dp, 289.188461_dp, 0.000537_dp, 290.0_dp, 290.191429_dp, 0.000503_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ni_naw = naw_type(35, transpose(reshape([48.0_dp, 48.019515_dp, 0.000455_dp, 49.0_dp, 49.009157_dp, 0.000644_dp, 50.0_dp, 49.996286_dp, 0.000537_dp, 51.0_dp, 50.987493_dp, 0.000537_dp, 52.0_dp, 51.975781000_dp, 0.000089000_dp, 53.0_dp, 52.968190000_dp, 0.000027000_dp, 54.0_dp, 53.957833000_dp, 0.000005000_dp, 55.0_dp, 54.951329846_dp, 0.000000757_dp, 56.0_dp, 55.942127761_dp, 0.000000428_dp, 57.0_dp, 56.939791394_dp, 0.000000608_dp, 58.0_dp, 57.935341650_dp, 0.000000374_dp, 59.0_dp, 58.934345442_dp, 0.000000376_dp, 60.0_dp, 59.930785129_dp, 0.000000378_dp, 61.0_dp, 60.931054819_dp, 0.000000381_dp, 62.0_dp, 61.928344753_dp, 0.000000455_dp, 63.0_dp, 62.929669021_dp, 0.000000457_dp, 64.0_dp, 63.927966228_dp, 0.000000497_dp, 65.0_dp, 64.930084585_dp, 0.000000518_dp, 66.0_dp, 65.929139333_dp, 0.000001500_dp, 67.0_dp, 66.931569413_dp, 0.000003100_dp, 68.0_dp, 67.931868787_dp, 0.000003200_dp, 69.0_dp, 68.935610267_dp, 0.000004000_dp, 70.0_dp, 69.936431300_dp, 0.000002301_dp, 71.0_dp, 70.940518962_dp, 0.000002401_dp, 72.0_dp, 71.941785924_dp, 0.000002401_dp, 73.0_dp, 72.946206681_dp, 0.000002601_dp, 74.0_dp, 73.947718_dp, 0.000215_dp, 75.0_dp, 74.952506_dp, 0.000215_dp, 76.0_dp, 75.954707_dp, 0.000322_dp, 77.0_dp, 76.959903_dp, 0.000429_dp, 78.0_dp, 77.962555_dp, 0.000429_dp, 79.0_dp, 78.969769_dp, 0.000537_dp, 80.0_dp, 79.975051_dp, 0.000644_dp, 81.0_dp, 80.982727_dp, 0.000751_dp, 82.0_dp, 81.988492_dp, 0.000859_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: No_naw = naw_type(17, transpose(reshape([248.0_dp, 248.086623_dp, 0.000241_dp, 249.0_dp, 249.087802_dp, 0.000300_dp, 250.0_dp, 250.087565_dp, 0.000215_dp, 251.0_dp, 251.088942_dp, 0.000194_dp, 252.0_dp, 252.088966070_dp, 0.000009975_dp, 253.0_dp, 253.090562780_dp, 0.000007420_dp, 254.0_dp, 254.090954211_dp, 0.000010367_dp, 255.0_dp, 255.093196439_dp, 0.000015079_dp, 256.0_dp, 256.094281912_dp, 0.000008103_dp, 257.0_dp, 257.096884203_dp, 0.000006652_dp, 258.0_dp, 258.098205_dp, 0.000107_dp, 259.0_dp, 259.100998364_dp, 0.000006829_dp, 260.0_dp, 260.102641_dp, 0.000215_dp, 261.0_dp, 261.105696_dp, 0.000215_dp, 262.0_dp, 262.107463_dp, 0.000387_dp, 263.0_dp, 263.110714_dp, 0.000526_dp, 264.0_dp, 264.112734_dp, 0.000634_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Np_naw = naw_type(27, transpose(reshape([219.0_dp, 219.031601865_dp, 0.000098732_dp, 220.0_dp, 220.032716280_dp, 0.000032977_dp, 221.0_dp, 221.032110_dp, 0.000215_dp, 222.0_dp, 222.033574706_dp, 0.000040849_dp, 223.0_dp, 223.032913340_dp, 0.000088956_dp, 224.0_dp, 224.034388030_dp, 0.000031052_dp, 225.0_dp, 225.033943422_dp, 0.000098355_dp, 226.0_dp, 226.035230364_dp, 0.000109568_dp, 227.0_dp, 227.034975012_dp, 0.000082651_dp, 228.0_dp, 228.036313_dp, 0.000108_dp, 229.0_dp, 229.036287269_dp, 0.000108618_dp, 230.0_dp, 230.037828060_dp, 0.000059051_dp, 231.0_dp, 231.038243598_dp, 0.000054916_dp, 232.0_dp, 232.040107_dp, 0.000107_dp, 233.0_dp, 233.040739421_dp, 0.000054729_dp, 234.0_dp, 234.042893245_dp, 0.000009014_dp, 235.0_dp, 235.044061518_dp, 0.000001490_dp, 236.0_dp, 236.046568296_dp, 0.000054129_dp, 237.0_dp, 237.048171640_dp, 0.000001201_dp, 238.0_dp, 238.050944603_dp, 0.000001220_dp, 239.0_dp, 239.052937538_dp, 0.000001406_dp, 240.0_dp, 240.056163778_dp, 0.000018284_dp, 241.0_dp, 241.058309671_dp, 0.000107360_dp, 242.0_dp, 242.061639548_dp, 0.000214712_dp, 243.0_dp, 243.064204_dp, 0.000034_dp, 244.0_dp, 244.067891_dp, 0.000107_dp, 245.0_dp, 245.070693_dp, 0.000215_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: O_naw = naw_type(18, transpose(reshape([11.0_dp, 11.051249828_dp, 0.000064453_dp, 12.0_dp, 12.034367726_dp, 0.000012882_dp, 13.0_dp, 13.024815435_dp, 0.000010226_dp, 14.0_dp, 14.008596706_dp, 0.000000027_dp, 15.0_dp, 15.003065636_dp, 0.000000526_dp, 16.0_dp, 15.99491461926_dp, 0.00000000032_dp, 17.0_dp, 16.99913175595_dp, 0.00000000069_dp, 18.0_dp, 17.99915961214_dp, 0.00000000069_dp, 19.0_dp, 19.003577969_dp, 0.000002830_dp, 20.0_dp, 20.004075357_dp, 0.000000950_dp, 21.0_dp, 21.008654948_dp, 0.000012882_dp, 22.0_dp, 22.009965744_dp, 0.000061107_dp, 23.0_dp, 23.015696686_dp, 0.000130663_dp, 24.0_dp, 24.019861000_dp, 0.000177000_dp, 25.0_dp, 25.029338919_dp, 0.000177225_dp, 26.0_dp, 26.037210155_dp, 0.000177081_dp, 27.0_dp, 27.047955_dp, 0.000537_dp, 28.0_dp, 28.055910_dp, 0.000750_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Og_naw = naw_type(3, transpose(reshape([293.0_dp, 293.213423_dp, 0.000761_dp, 294.0_dp, 294.213979_dp, 0.000594_dp, 295.0_dp, 295.216178_dp, 0.000703_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Os_naw = naw_type(43, transpose(reshape([161.0_dp, 160.989054_dp, 0.000429_dp, 162.0_dp, 161.984434_dp, 0.000322_dp, 163.0_dp, 162.982462_dp, 0.000322_dp, 164.0_dp, 163.978073158_dp, 0.000160927_dp, 165.0_dp, 164.976654_dp, 0.000215_dp, 166.0_dp, 165.972698135_dp, 0.000019287_dp, 167.0_dp, 166.971552304_dp, 0.000086841_dp, 168.0_dp, 167.967799050_dp, 0.000010631_dp, 169.0_dp, 168.967017521_dp, 0.000027847_dp, 170.0_dp, 169.963579273_dp, 0.000010476_dp, 171.0_dp, 170.963180402_dp, 0.000019589_dp, 172.0_dp, 171.960017309_dp, 0.000013704_dp, 173.0_dp, 172.959808387_dp, 0.000016059_dp, 174.0_dp, 173.957063192_dp, 0.000011008_dp, 175.0_dp, 174.956945126_dp, 0.000012640_dp, 176.0_dp, 175.954770315_dp, 0.000011754_dp, 177.0_dp, 176.954957902_dp, 0.000015687_dp, 178.0_dp, 177.953253334_dp, 0.000014634_dp, 179.0_dp, 178.953815985_dp, 0.000016645_dp, 180.0_dp, 179.952381665_dp, 0.000016878_dp, 181.0_dp, 180.953247188_dp, 0.000027201_dp, 182.0_dp, 181.952110154_dp, 0.000023344_dp, 183.0_dp, 182.953125028_dp, 0.000053428_dp, 184.0_dp, 183.952492919_dp, 0.000000890_dp, 185.0_dp, 184.954045969_dp, 0.000000893_dp, 186.0_dp, 185.953837569_dp, 0.000000816_dp, 187.0_dp, 186.955749569_dp, 0.000000791_dp, 188.0_dp, 187.955837292_dp, 0.000000788_dp, 189.0_dp, 188.958145949_dp, 0.000000715_dp, 190.0_dp, 189.958445442_dp, 0.000000697_dp, 191.0_dp, 190.960928105_dp, 0.000000707_dp, 192.0_dp, 191.961478765_dp, 0.000002484_dp, 193.0_dp, 192.964149637_dp, 0.000002490_dp, 194.0_dp, 193.965179407_dp, 0.000002579_dp, 195.0_dp, 194.968318000_dp, 0.000060000_dp, 196.0_dp, 195.969643261_dp, 0.000043000_dp, 197.0_dp, 196.973076_dp, 0.000215_dp, 198.0_dp, 197.974664_dp, 0.000215_dp, 199.0_dp, 198.978239_dp, 0.000215_dp, 200.0_dp, 199.980086_dp, 0.000322_dp, 201.0_dp, 200.984069_dp, 0.000322_dp, 202.0_dp, 201.986548_dp, 0.000429_dp, 203.0_dp, 202.992195_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: P_naw = naw_type(24, transpose(reshape([24.0_dp, 24.036522_dp, 0.000537_dp, 25.0_dp, 25.021675_dp, 0.000429_dp, 26.0_dp, 26.011780_dp, 0.000210_dp, 27.0_dp, 26.999292499_dp, 0.000009662_dp, 28.0_dp, 27.992326460_dp, 0.000001231_dp, 29.0_dp, 28.981800368_dp, 0.000000385_dp, 30.0_dp, 29.978313490_dp, 0.000000069_dp, 31.0_dp, 30.97376199768_dp, 0.00000000080_dp, 32.0_dp, 31.973907643_dp, 0.000000042_dp, 33.0_dp, 32.971725692_dp, 0.000001170_dp, 34.0_dp, 33.973645886_dp, 0.000000870_dp, 35.0_dp, 34.973314045_dp, 0.000002003_dp, 36.0_dp, 35.978259610_dp, 0.000014078_dp, 37.0_dp, 36.979606942_dp, 0.000040738_dp, 38.0_dp, 37.984303105_dp, 0.000077918_dp, 39.0_dp, 38.986285865_dp, 0.000120929_dp, 40.0_dp, 39.991262221_dp, 0.000089755_dp, 41.0_dp, 40.994654000_dp, 0.000129000_dp, 42.0_dp, 42.001172140_dp, 0.000101996_dp, 43.0_dp, 43.005411_dp, 0.000322_dp, 44.0_dp, 44.011927_dp, 0.000429_dp, 45.0_dp, 45.017134_dp, 0.000537_dp, 46.0_dp, 46.024520_dp, 0.000537_dp, 47.0_dp, 47.030929_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pa_naw = naw_type(31, transpose(reshape([211.0_dp, 211.023674036_dp, 0.000074581_dp, 212.0_dp, 212.023184819_dp, 0.000094047_dp, 213.0_dp, 213.021099644_dp, 0.000061374_dp, 214.0_dp, 214.020891055_dp, 0.000087180_dp, 215.0_dp, 215.019113955_dp, 0.000088513_dp, 216.0_dp, 216.019134633_dp, 0.000026459_dp, 217.0_dp, 217.018309024_dp, 0.000013417_dp, 218.0_dp, 218.020021133_dp, 0.000019158_dp, 219.0_dp, 219.019949909_dp, 0.000074831_dp, 220.0_dp, 220.021769753_dp, 0.000015732_dp, 221.0_dp, 221.021873393_dp, 0.000063746_dp, 222.0_dp, 222.023687064_dp, 0.000092975_dp, 223.0_dp, 223.023980414_dp, 0.000081193_dp, 224.0_dp, 224.025617286_dp, 0.000008145_dp, 225.0_dp, 225.026147927_dp, 0.000087887_dp, 226.0_dp, 226.027948217_dp, 0.000012037_dp, 227.0_dp, 227.028803586_dp, 0.000007797_dp, 228.0_dp, 228.031050758_dp, 0.000004659_dp, 229.0_dp, 229.032095585_dp, 0.000003521_dp, 230.0_dp, 230.034539717_dp, 0.000003261_dp, 231.0_dp, 231.035882500_dp, 0.000001901_dp, 232.0_dp, 232.038590205_dp, 0.000008206_dp, 233.0_dp, 233.040246535_dp, 0.000001433_dp, 234.0_dp, 234.043305555_dp, 0.000004395_dp, 235.0_dp, 235.045399000_dp, 0.000015000_dp, 236.0_dp, 236.048668000_dp, 0.000015000_dp, 237.0_dp, 237.051023000_dp, 0.000014000_dp, 238.0_dp, 238.054637000_dp, 0.000017000_dp, 239.0_dp, 239.057260_dp, 0.000210_dp, 240.0_dp, 240.061203_dp, 0.000215_dp, 241.0_dp, 241.064134_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pb_naw = naw_type(43, transpose(reshape([178.0_dp, 178.003836171_dp, 0.000024889_dp, 179.0_dp, 179.002202492_dp, 0.000087203_dp, 180.0_dp, 179.997916177_dp, 0.000013306_dp, 181.0_dp, 180.996660600_dp, 0.000091290_dp, 182.0_dp, 181.992673537_dp, 0.000012975_dp, 183.0_dp, 182.991862527_dp, 0.000031110_dp, 184.0_dp, 183.988135634_dp, 0.000013743_dp, 185.0_dp, 184.987610000_dp, 0.000017364_dp, 186.0_dp, 185.984239409_dp, 0.000011813_dp, 187.0_dp, 186.983910842_dp, 0.000005468_dp, 188.0_dp, 187.980879079_dp, 0.000010868_dp, 189.0_dp, 188.980843658_dp, 0.000015096_dp, 190.0_dp, 189.978081872_dp, 0.000013434_dp, 191.0_dp, 190.978216455_dp, 0.000007099_dp, 192.0_dp, 191.975789598_dp, 0.000006147_dp, 193.0_dp, 192.976135914_dp, 0.000011044_dp, 194.0_dp, 193.974011788_dp, 0.000018717_dp, 195.0_dp, 194.974516167_dp, 0.000005461_dp, 196.0_dp, 195.972787552_dp, 0.000008277_dp, 197.0_dp, 196.973434737_dp, 0.000005157_dp, 198.0_dp, 197.972015450_dp, 0.000009393_dp, 199.0_dp, 198.972912620_dp, 0.000007322_dp, 200.0_dp, 199.971818546_dp, 0.000010744_dp, 201.0_dp, 200.972870431_dp, 0.000014758_dp, 202.0_dp, 201.972151613_dp, 0.000004075_dp, 203.0_dp, 202.973390617_dp, 0.000007036_dp, 204.0_dp, 203.973043506_dp, 0.000001231_dp, 205.0_dp, 204.974481682_dp, 0.000001228_dp, 206.0_dp, 205.974465210_dp, 0.000001228_dp, 207.0_dp, 206.975896821_dp, 0.000001231_dp, 208.0_dp, 207.976652005_dp, 0.000001232_dp, 209.0_dp, 208.981089978_dp, 0.000001875_dp, 210.0_dp, 209.984188381_dp, 0.000001554_dp, 211.0_dp, 210.988735288_dp, 0.000002426_dp, 212.0_dp, 211.991895891_dp, 0.000001975_dp, 213.0_dp, 212.996560796_dp, 0.000007465_dp, 214.0_dp, 213.999803521_dp, 0.000002114_dp, 215.0_dp, 215.004661591_dp, 0.000056560_dp, 216.0_dp, 216.008062_dp, 0.000215_dp, 217.0_dp, 217.013162_dp, 0.000322_dp, 218.0_dp, 218.016779_dp, 0.000322_dp, 219.0_dp, 219.022136_dp, 0.000429_dp, 220.0_dp, 220.025905_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pd_naw = naw_type(42, transpose(reshape([90.0_dp, 89.957370_dp, 0.000429_dp, 91.0_dp, 90.950435_dp, 0.000454_dp, 92.0_dp, 91.941192225_dp, 0.000370402_dp, 93.0_dp, 92.936680426_dp, 0.000397221_dp, 94.0_dp, 93.929036286_dp, 0.000004602_dp, 95.0_dp, 94.924888506_dp, 0.000003253_dp, 96.0_dp, 95.918213739_dp, 0.000004502_dp, 97.0_dp, 96.916471985_dp, 0.000005200_dp, 98.0_dp, 97.912698335_dp, 0.000005090_dp, 99.0_dp, 98.911773073_dp, 0.000005482_dp, 100.0_dp, 99.908520438_dp, 0.000018934_dp, 101.0_dp, 100.908284824_dp, 0.000004925_dp, 102.0_dp, 101.905632292_dp, 0.000000449_dp, 103.0_dp, 102.906111074_dp, 0.000000942_dp, 104.0_dp, 103.904030393_dp, 0.000001434_dp, 105.0_dp, 104.905079479_dp, 0.000001222_dp, 106.0_dp, 105.903480287_dp, 0.000001186_dp, 107.0_dp, 106.905128058_dp, 0.000001289_dp, 108.0_dp, 107.903891806_dp, 0.000001189_dp, 109.0_dp, 108.905950576_dp, 0.000001195_dp, 110.0_dp, 109.905172878_dp, 0.000000657_dp, 111.0_dp, 110.907690358_dp, 0.000000785_dp, 112.0_dp, 111.907330557_dp, 0.000007027_dp, 113.0_dp, 112.910261912_dp, 0.000007458_dp, 114.0_dp, 113.910369430_dp, 0.000007459_dp, 115.0_dp, 114.913659333_dp, 0.000014543_dp, 116.0_dp, 115.914297872_dp, 0.000007659_dp, 117.0_dp, 116.917955584_dp, 0.000007788_dp, 118.0_dp, 117.919067273_dp, 0.000002677_dp, 119.0_dp, 118.923341138_dp, 0.000008854_dp, 120.0_dp, 119.924551745_dp, 0.000002464_dp, 121.0_dp, 120.928950342_dp, 0.000003600_dp, 122.0_dp, 121.930631693_dp, 0.000021000_dp, 123.0_dp, 122.935126000_dp, 0.000847500_dp, 124.0_dp, 123.937305_dp, 0.000322_dp, 125.0_dp, 124.942072_dp, 0.000429_dp, 126.0_dp, 125.944401_dp, 0.000429_dp, 127.0_dp, 126.949307_dp, 0.000537_dp, 128.0_dp, 127.952345_dp, 0.000537_dp, 129.0_dp, 128.959334_dp, 0.000644_dp, 130.0_dp, 129.964863_dp, 0.000322_dp, 131.0_dp, 130.972367_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pm_naw = naw_type(40, transpose(reshape([126.0_dp, 125.957327_dp, 0.000537_dp, 127.0_dp, 126.951358_dp, 0.000429_dp, 128.0_dp, 127.948234_dp, 0.000322_dp, 129.0_dp, 128.942909_dp, 0.000322_dp, 130.0_dp, 129.940451_dp, 0.000215_dp, 131.0_dp, 130.935834_dp, 0.000215_dp, 132.0_dp, 131.933840_dp, 0.000160_dp, 133.0_dp, 132.929782000_dp, 0.000054000_dp, 134.0_dp, 133.928326000_dp, 0.000045000_dp, 135.0_dp, 134.924785000_dp, 0.000089000_dp, 136.0_dp, 135.923595949_dp, 0.000074152_dp, 137.0_dp, 136.920479519_dp, 0.000014000_dp, 138.0_dp, 137.919576119_dp, 0.000012456_dp, 139.0_dp, 138.916799228_dp, 0.000014587_dp, 140.0_dp, 139.916035918_dp, 0.000026001_dp, 141.0_dp, 140.913555081_dp, 0.000015000_dp, 142.0_dp, 141.912890982_dp, 0.000025330_dp, 143.0_dp, 142.910938068_dp, 0.000003160_dp, 144.0_dp, 143.912596208_dp, 0.000003126_dp, 145.0_dp, 144.912755748_dp, 0.000003011_dp, 146.0_dp, 145.914702240_dp, 0.000004589_dp, 147.0_dp, 146.915144944_dp, 0.000001382_dp, 148.0_dp, 147.917481091_dp, 0.000006108_dp, 149.0_dp, 148.918341507_dp, 0.000002344_dp, 150.0_dp, 149.920990014_dp, 0.000021504_dp, 151.0_dp, 150.921216613_dp, 0.000004949_dp, 152.0_dp, 151.923505185_dp, 0.000027809_dp, 153.0_dp, 152.924156252_dp, 0.000009729_dp, 154.0_dp, 153.926712791_dp, 0.000026861_dp, 155.0_dp, 154.928136951_dp, 0.000005065_dp, 156.0_dp, 155.931114059_dp, 0.000001275_dp, 157.0_dp, 156.933121298_dp, 0.000007521_dp, 158.0_dp, 157.936546948_dp, 0.000000953_dp, 159.0_dp, 158.939286409_dp, 0.000010777_dp, 160.0_dp, 159.943215272_dp, 0.000002200_dp, 161.0_dp, 160.946229837_dp, 0.000009700_dp, 162.0_dp, 161.950574_dp, 0.000322_dp, 163.0_dp, 162.953881_dp, 0.000429_dp, 164.0_dp, 163.958819_dp, 0.000429_dp, 165.0_dp, 164.962780_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Po_naw = naw_type(42, transpose(reshape([186.0_dp, 186.004403174_dp, 0.000019622_dp, 187.0_dp, 187.003031482_dp, 0.000035030_dp, 188.0_dp, 187.999415586_dp, 0.000021438_dp, 189.0_dp, 188.998473425_dp, 0.000023681_dp, 190.0_dp, 189.995101731_dp, 0.000014131_dp, 191.0_dp, 190.994558494_dp, 0.000007624_dp, 192.0_dp, 191.991340274_dp, 0.000011416_dp, 193.0_dp, 192.991062421_dp, 0.000015599_dp, 194.0_dp, 193.988186058_dp, 0.000013860_dp, 195.0_dp, 194.988065781_dp, 0.000006486_dp, 196.0_dp, 195.985540722_dp, 0.000005778_dp, 197.0_dp, 196.985621939_dp, 0.000010585_dp, 198.0_dp, 197.983388753_dp, 0.000018705_dp, 199.0_dp, 198.983640445_dp, 0.000005828_dp, 200.0_dp, 199.981812355_dp, 0.000008136_dp, 201.0_dp, 200.982263799_dp, 0.000005305_dp, 202.0_dp, 201.980738934_dp, 0.000009307_dp, 203.0_dp, 202.981416072_dp, 0.000004981_dp, 204.0_dp, 203.980310078_dp, 0.000010811_dp, 205.0_dp, 204.981190006_dp, 0.000010798_dp, 206.0_dp, 205.980473662_dp, 0.000004306_dp, 207.0_dp, 206.981593334_dp, 0.000007148_dp, 208.0_dp, 207.981246035_dp, 0.000001795_dp, 209.0_dp, 208.982430361_dp, 0.000001909_dp, 210.0_dp, 209.982873686_dp, 0.000001230_dp, 211.0_dp, 210.986653171_dp, 0.000001347_dp, 212.0_dp, 211.988867982_dp, 0.000001237_dp, 213.0_dp, 212.992857154_dp, 0.000003277_dp, 214.0_dp, 213.995201287_dp, 0.000001556_dp, 215.0_dp, 214.999418385_dp, 0.000002276_dp, 216.0_dp, 216.001913416_dp, 0.000001948_dp, 217.0_dp, 217.006316145_dp, 0.000007025_dp, 218.0_dp, 218.008971234_dp, 0.000002112_dp, 219.0_dp, 219.013614000_dp, 0.000017000_dp, 220.0_dp, 220.016386000_dp, 0.000019000_dp, 221.0_dp, 221.021228000_dp, 0.000021000_dp, 222.0_dp, 222.024140000_dp, 0.000043000_dp, 223.0_dp, 223.029070_dp, 0.000210_dp, 224.0_dp, 224.032110_dp, 0.000210_dp, 225.0_dp, 225.037123_dp, 0.000322_dp, 226.0_dp, 226.040310_dp, 0.000430_dp, 227.0_dp, 227.045390_dp, 0.000430_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pr_naw = naw_type(41, transpose(reshape([121.0_dp, 120.955393_dp, 0.000537_dp, 122.0_dp, 121.951927_dp, 0.000537_dp, 123.0_dp, 122.946076_dp, 0.000429_dp, 124.0_dp, 123.942940_dp, 0.000430_dp, 125.0_dp, 124.937659_dp, 0.000322_dp, 126.0_dp, 125.935240_dp, 0.000210_dp, 127.0_dp, 126.930710_dp, 0.000210_dp, 128.0_dp, 127.928791000_dp, 0.000032000_dp, 129.0_dp, 128.925095000_dp, 0.000032000_dp, 130.0_dp, 129.923590000_dp, 0.000069000_dp, 131.0_dp, 130.920234960_dp, 0.000050451_dp, 132.0_dp, 131.919240000_dp, 0.000031000_dp, 133.0_dp, 132.916330558_dp, 0.000013416_dp, 134.0_dp, 133.915696729_dp, 0.000021810_dp, 135.0_dp, 134.913111772_dp, 0.000012686_dp, 136.0_dp, 135.912677470_dp, 0.000012296_dp, 137.0_dp, 136.910679183_dp, 0.000008733_dp, 138.0_dp, 137.910757495_dp, 0.000010748_dp, 139.0_dp, 138.908932700_dp, 0.000003917_dp, 140.0_dp, 139.909085600_dp, 0.000006593_dp, 141.0_dp, 140.907659604_dp, 0.000001607_dp, 142.0_dp, 141.910051640_dp, 0.000001607_dp, 143.0_dp, 142.910822624_dp, 0.000001949_dp, 144.0_dp, 143.913310682_dp, 0.000002907_dp, 145.0_dp, 144.914517987_dp, 0.000007674_dp, 146.0_dp, 145.917687630_dp, 0.000036882_dp, 147.0_dp, 146.919007438_dp, 0.000017020_dp, 148.0_dp, 147.922129992_dp, 0.000016147_dp, 149.0_dp, 148.923736100_dp, 0.000010600_dp, 150.0_dp, 149.926676391_dp, 0.000009677_dp, 151.0_dp, 150.928309066_dp, 0.000012506_dp, 152.0_dp, 151.931552900_dp, 0.000019900_dp, 153.0_dp, 152.933903511_dp, 0.000012755_dp, 154.0_dp, 153.937885165_dp, 0.000107360_dp, 155.0_dp, 154.940509193_dp, 0.000018462_dp, 156.0_dp, 155.944766900_dp, 0.000001100_dp, 157.0_dp, 156.948003100_dp, 0.000003400_dp, 158.0_dp, 157.952603_dp, 0.000322_dp, 159.0_dp, 158.956232_dp, 0.000429_dp, 160.0_dp, 159.961138_dp, 0.000429_dp, 161.0_dp, 160.965121_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pt_naw = naw_type(44, transpose(reshape([165.0_dp, 164.999658_dp, 0.000429_dp, 166.0_dp, 165.994866_dp, 0.000322_dp, 167.0_dp, 166.992750_dp, 0.000329_dp, 168.0_dp, 167.988180196_dp, 0.000160960_dp, 169.0_dp, 168.986619_dp, 0.000215_dp, 170.0_dp, 169.982502087_dp, 0.000019588_dp, 171.0_dp, 170.981248868_dp, 0.000086904_dp, 172.0_dp, 171.977341059_dp, 0.000011139_dp, 173.0_dp, 172.976449922_dp, 0.000068096_dp, 174.0_dp, 173.972820431_dp, 0.000011098_dp, 175.0_dp, 174.972400593_dp, 0.000019982_dp, 176.0_dp, 175.968938162_dp, 0.000013647_dp, 177.0_dp, 176.968469541_dp, 0.000016090_dp, 178.0_dp, 177.965649288_dp, 0.000010878_dp, 179.0_dp, 178.965358742_dp, 0.000008563_dp, 180.0_dp, 179.963038010_dp, 0.000010790_dp, 181.0_dp, 180.963089946_dp, 0.000014695_dp, 182.0_dp, 181.961171605_dp, 0.000014057_dp, 183.0_dp, 182.961595895_dp, 0.000015261_dp, 184.0_dp, 183.959921929_dp, 0.000015828_dp, 185.0_dp, 184.960613659_dp, 0.000027731_dp, 186.0_dp, 185.959350845_dp, 0.000023344_dp, 187.0_dp, 186.960616646_dp, 0.000025837_dp, 188.0_dp, 187.959397521_dp, 0.000005694_dp, 189.0_dp, 188.960848485_dp, 0.000010832_dp, 190.0_dp, 189.959949823_dp, 0.000000705_dp, 191.0_dp, 190.961676261_dp, 0.000004430_dp, 192.0_dp, 191.961042667_dp, 0.000002758_dp, 193.0_dp, 192.962984546_dp, 0.000001458_dp, 194.0_dp, 193.962683498_dp, 0.000000532_dp, 195.0_dp, 194.964794325_dp, 0.000000540_dp, 196.0_dp, 195.964954648_dp, 0.000000547_dp, 197.0_dp, 196.967343030_dp, 0.000000575_dp, 198.0_dp, 197.967896718_dp, 0.000002254_dp, 199.0_dp, 198.970597022_dp, 0.000002317_dp, 200.0_dp, 199.971444609_dp, 0.000021588_dp, 201.0_dp, 200.974513305_dp, 0.000053788_dp, 202.0_dp, 201.975639000_dp, 0.000027000_dp, 203.0_dp, 202.979055_dp, 0.000215_dp, 204.0_dp, 203.981084_dp, 0.000215_dp, 205.0_dp, 204.986237_dp, 0.000322_dp, 206.0_dp, 205.990080_dp, 0.000322_dp, 207.0_dp, 206.995556_dp, 0.000429_dp, 208.0_dp, 207.999463_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pu_naw = naw_type(27, transpose(reshape([221.0_dp, 221.038572_dp, 0.000322_dp, 222.0_dp, 222.037638_dp, 0.000322_dp, 223.0_dp, 223.038777_dp, 0.000322_dp, 224.0_dp, 224.037875_dp, 0.000322_dp, 225.0_dp, 225.038970_dp, 0.000322_dp, 226.0_dp, 226.038250_dp, 0.000215_dp, 227.0_dp, 227.039474_dp, 0.000107_dp, 228.0_dp, 228.038763325_dp, 0.000025069_dp, 229.0_dp, 229.040145099_dp, 0.000065092_dp, 230.0_dp, 230.039648313_dp, 0.000015514_dp, 231.0_dp, 231.041125946_dp, 0.000023683_dp, 232.0_dp, 232.041182133_dp, 0.000018126_dp, 233.0_dp, 233.042997411_dp, 0.000058162_dp, 234.0_dp, 234.043317489_dp, 0.000007298_dp, 235.0_dp, 235.045284609_dp, 0.000022030_dp, 236.0_dp, 236.046056661_dp, 0.000001942_dp, 237.0_dp, 237.048407888_dp, 0.000001821_dp, 238.0_dp, 238.049558175_dp, 0.000001221_dp, 239.0_dp, 239.052161596_dp, 0.000001194_dp, 240.0_dp, 240.053811740_dp, 0.000001186_dp, 241.0_dp, 241.056849651_dp, 0.000001186_dp, 242.0_dp, 242.058740979_dp, 0.000001336_dp, 243.0_dp, 243.062002068_dp, 0.000002728_dp, 244.0_dp, 244.064204401_dp, 0.000002518_dp, 245.0_dp, 245.067824554_dp, 0.000014621_dp, 246.0_dp, 246.070204172_dp, 0.000016087_dp, 247.0_dp, 247.074300_dp, 0.000215_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ra_naw = naw_type(35, transpose(reshape([201.0_dp, 201.012814699_dp, 0.000021794_dp, 202.0_dp, 202.009742305_dp, 0.000016122_dp, 203.0_dp, 203.009233907_dp, 0.000010400_dp, 204.0_dp, 204.006506855_dp, 0.000009580_dp, 205.0_dp, 205.006230692_dp, 0.000024446_dp, 206.0_dp, 206.003827842_dp, 0.000019332_dp, 207.0_dp, 207.003772420_dp, 0.000062572_dp, 208.0_dp, 208.001855012_dp, 0.000009686_dp, 209.0_dp, 209.001994902_dp, 0.000006169_dp, 210.0_dp, 210.000475406_dp, 0.000009868_dp, 211.0_dp, 211.000893049_dp, 0.000005331_dp, 212.0_dp, 211.999786619_dp, 0.000011007_dp, 213.0_dp, 213.000370971_dp, 0.000010540_dp, 214.0_dp, 214.000099560_dp, 0.000005636_dp, 215.0_dp, 215.002718208_dp, 0.000007730_dp, 216.0_dp, 216.003533534_dp, 0.000008592_dp, 217.0_dp, 217.006322676_dp, 0.000007564_dp, 218.0_dp, 218.007134297_dp, 0.000010528_dp, 219.0_dp, 219.010084715_dp, 0.000007315_dp, 220.0_dp, 220.011027542_dp, 0.000008153_dp, 221.0_dp, 221.013917293_dp, 0.000004970_dp, 222.0_dp, 222.015373371_dp, 0.000004781_dp, 223.0_dp, 223.018500648_dp, 0.000002243_dp, 224.0_dp, 224.020210361_dp, 0.000001944_dp, 225.0_dp, 225.023610502_dp, 0.000002786_dp, 226.0_dp, 226.025408186_dp, 0.000002068_dp, 227.0_dp, 227.029176205_dp, 0.000002089_dp, 228.0_dp, 228.031068574_dp, 0.000002141_dp, 229.0_dp, 229.034956703_dp, 0.000016576_dp, 230.0_dp, 230.037054776_dp, 0.000011053_dp, 231.0_dp, 231.041027085_dp, 0.000012206_dp, 232.0_dp, 232.043475267_dp, 0.000009823_dp, 233.0_dp, 233.047594570_dp, 0.000009235_dp, 234.0_dp, 234.050382100_dp, 0.000009000_dp, 235.0_dp, 235.054890_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Rb_naw = naw_type(34, transpose(reshape([71.0_dp, 70.965335_dp, 0.000429_dp, 72.0_dp, 71.958851_dp, 0.000537_dp, 73.0_dp, 72.950604506_dp, 0.000043794_dp, 74.0_dp, 73.944265867_dp, 0.000003249_dp, 75.0_dp, 74.938573200_dp, 0.000001266_dp, 76.0_dp, 75.935073031_dp, 0.000001006_dp, 77.0_dp, 76.930401599_dp, 0.000001400_dp, 78.0_dp, 77.928141866_dp, 0.000003475_dp, 79.0_dp, 78.923990095_dp, 0.000002085_dp, 80.0_dp, 79.922516442_dp, 0.000002000_dp, 81.0_dp, 80.918993900_dp, 0.000005265_dp, 82.0_dp, 81.918209023_dp, 0.000003230_dp, 83.0_dp, 82.915114181_dp, 0.000002500_dp, 84.0_dp, 83.914375223_dp, 0.000002355_dp, 85.0_dp, 84.91178973604_dp, 0.00000000537_dp, 86.0_dp, 85.911167443_dp, 0.000000214_dp, 87.0_dp, 86.909180529_dp, 0.000000006_dp, 88.0_dp, 87.911315590_dp, 0.000000170_dp, 89.0_dp, 88.912278136_dp, 0.000005825_dp, 90.0_dp, 89.914797557_dp, 0.000006926_dp, 91.0_dp, 90.916537261_dp, 0.000008375_dp, 92.0_dp, 91.919728477_dp, 0.000006573_dp, 93.0_dp, 92.922039334_dp, 0.000008406_dp, 94.0_dp, 93.926394819_dp, 0.000002177_dp, 95.0_dp, 94.929263849_dp, 0.000021733_dp, 96.0_dp, 95.934133398_dp, 0.000003599_dp, 97.0_dp, 96.937177117_dp, 0.000002052_dp, 98.0_dp, 97.941632317_dp, 0.000017265_dp, 99.0_dp, 98.945119190_dp, 0.000004327_dp, 100.0_dp, 99.950331532_dp, 0.000014089_dp, 101.0_dp, 100.954302000_dp, 0.000022000_dp, 102.0_dp, 101.960008000_dp, 0.000089000_dp, 103.0_dp, 102.964401_dp, 0.000429_dp, 104.0_dp, 103.970531_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Re_naw = naw_type(41, transpose(reshape([159.0_dp, 158.984106_dp, 0.000327_dp, 160.0_dp, 159.981880_dp, 0.000322_dp, 161.0_dp, 160.977624313_dp, 0.000160930_dp, 162.0_dp, 161.975896_dp, 0.000215_dp, 163.0_dp, 162.972085434_dp, 0.000019897_dp, 164.0_dp, 163.970507122_dp, 0.000058566_dp, 165.0_dp, 164.967085831_dp, 0.000025328_dp, 166.0_dp, 165.965821216_dp, 0.000094731_dp, 167.0_dp, 166.962604_dp, 0.000043_dp, 168.0_dp, 167.961572607_dp, 0.000033087_dp, 169.0_dp, 168.958765979_dp, 0.000012204_dp, 170.0_dp, 169.958234844_dp, 0.000012267_dp, 171.0_dp, 170.955716000_dp, 0.000030000_dp, 172.0_dp, 171.955376165_dp, 0.000038183_dp, 173.0_dp, 172.953243000_dp, 0.000030000_dp, 174.0_dp, 173.953115000_dp, 0.000030000_dp, 175.0_dp, 174.951381000_dp, 0.000030000_dp, 176.0_dp, 175.951623000_dp, 0.000030000_dp, 177.0_dp, 176.950328000_dp, 0.000030000_dp, 178.0_dp, 177.950989000_dp, 0.000030000_dp, 179.0_dp, 178.949989686_dp, 0.000026450_dp, 180.0_dp, 179.950791568_dp, 0.000022965_dp, 181.0_dp, 180.950061507_dp, 0.000013471_dp, 182.0_dp, 181.951211560_dp, 0.000109483_dp, 183.0_dp, 182.950821306_dp, 0.000008625_dp, 184.0_dp, 183.952528073_dp, 0.000004590_dp, 185.0_dp, 184.952958320_dp, 0.000000879_dp, 186.0_dp, 185.954989172_dp, 0.000000880_dp, 187.0_dp, 186.955752217_dp, 0.000000791_dp, 188.0_dp, 187.958113658_dp, 0.000000792_dp, 189.0_dp, 188.959227764_dp, 0.000008793_dp, 190.0_dp, 189.961800064_dp, 0.000005227_dp, 191.0_dp, 190.963123322_dp, 0.000011019_dp, 192.0_dp, 191.966088000_dp, 0.000076000_dp, 193.0_dp, 192.967545000_dp, 0.000042000_dp, 194.0_dp, 193.970735_dp, 0.000215_dp, 195.0_dp, 194.972560_dp, 0.000322_dp, 196.0_dp, 195.975996_dp, 0.000322_dp, 197.0_dp, 196.978153_dp, 0.000322_dp, 198.0_dp, 197.981760_dp, 0.000429_dp, 199.0_dp, 198.984187_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Rf_naw = naw_type(16, transpose(reshape([253.0_dp, 253.100528_dp, 0.000440_dp, 254.0_dp, 254.100055_dp, 0.000304_dp, 255.0_dp, 255.101267_dp, 0.000194_dp, 256.0_dp, 256.101151464_dp, 0.000019160_dp, 257.0_dp, 257.102916796_dp, 0.000011612_dp, 258.0_dp, 258.103429895_dp, 0.000017288_dp, 259.0_dp, 259.105601_dp, 0.000078_dp, 260.0_dp, 260.106440_dp, 0.000215_dp, 261.0_dp, 261.108769591_dp, 0.000070492_dp, 262.0_dp, 262.109923_dp, 0.000240_dp, 263.0_dp, 263.112461_dp, 0.000164_dp, 264.0_dp, 264.113876_dp, 0.000387_dp, 265.0_dp, 265.116683_dp, 0.000387_dp, 266.0_dp, 266.118236_dp, 0.000443_dp, 267.0_dp, 267.121787_dp, 0.000617_dp, 268.0_dp, 268.123968_dp, 0.000711_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Rg_naw = naw_type(15, transpose(reshape([272.0_dp, 272.153273_dp, 0.000251_dp, 273.0_dp, 273.153393_dp, 0.000429_dp, 274.0_dp, 274.155247_dp, 0.000225_dp, 275.0_dp, 275.156088_dp, 0.000479_dp, 276.0_dp, 276.158226_dp, 0.000675_dp, 277.0_dp, 277.159322_dp, 0.000504_dp, 278.0_dp, 278.161590_dp, 0.000417_dp, 279.0_dp, 279.162880_dp, 0.000453_dp, 280.0_dp, 280.165204_dp, 0.000571_dp, 281.0_dp, 281.166757_dp, 0.000831_dp, 282.0_dp, 282.169343_dp, 0.000631_dp, 283.0_dp, 283.171101_dp, 0.000728_dp, 284.0_dp, 284.173882_dp, 0.000537_dp, 285.0_dp, 285.175771_dp, 0.000644_dp, 286.0_dp, 286.178756_dp, 0.000492_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Rh_naw = naw_type(41, transpose(reshape([88.0_dp, 87.960429_dp, 0.000429_dp, 89.0_dp, 88.950992_dp, 0.000387_dp, 90.0_dp, 89.944569_dp, 0.000215_dp, 91.0_dp, 90.937123_dp, 0.000320_dp, 92.0_dp, 91.932367692_dp, 0.000004700_dp, 93.0_dp, 92.925912778_dp, 0.000002821_dp, 94.0_dp, 93.921730450_dp, 0.000003627_dp, 95.0_dp, 94.915897893_dp, 0.000004171_dp, 96.0_dp, 95.914451705_dp, 0.000010737_dp, 97.0_dp, 96.911327872_dp, 0.000038071_dp, 98.0_dp, 97.910707734_dp, 0.000012782_dp, 99.0_dp, 98.908121241_dp, 0.000020881_dp, 100.0_dp, 99.908114147_dp, 0.000019458_dp, 101.0_dp, 100.906158903_dp, 0.000006270_dp, 102.0_dp, 101.906834282_dp, 0.000006880_dp, 103.0_dp, 102.905494081_dp, 0.000002470_dp, 104.0_dp, 103.906645309_dp, 0.000002471_dp, 105.0_dp, 104.905687787_dp, 0.000002685_dp, 106.0_dp, 105.907285879_dp, 0.000005786_dp, 107.0_dp, 106.906747975_dp, 0.000012937_dp, 108.0_dp, 107.908715304_dp, 0.000015026_dp, 109.0_dp, 108.908749555_dp, 0.000004336_dp, 110.0_dp, 109.911079745_dp, 0.000019114_dp, 111.0_dp, 110.911643164_dp, 0.000007356_dp, 112.0_dp, 111.914405199_dp, 0.000047327_dp, 113.0_dp, 112.915440212_dp, 0.000007656_dp, 114.0_dp, 113.918721680_dp, 0.000076824_dp, 115.0_dp, 114.920311649_dp, 0.000007857_dp, 116.0_dp, 115.924062060_dp, 0.000079261_dp, 117.0_dp, 116.926036291_dp, 0.000009548_dp, 118.0_dp, 117.930341116_dp, 0.000026018_dp, 119.0_dp, 118.932556951_dp, 0.000010000_dp, 120.0_dp, 119.937069_dp, 0.000215_dp, 121.0_dp, 120.939613000_dp, 0.000665000_dp, 122.0_dp, 121.944305_dp, 0.000322_dp, 123.0_dp, 122.947192_dp, 0.000429_dp, 124.0_dp, 123.952002_dp, 0.000429_dp, 125.0_dp, 124.955094_dp, 0.000537_dp, 126.0_dp, 125.960064_dp, 0.000537_dp, 127.0_dp, 126.963789_dp, 0.000644_dp, 128.0_dp, 127.970649_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Rn_naw = naw_type(39, transpose(reshape([193.0_dp, 193.009707973_dp, 0.000026958_dp, 194.0_dp, 194.006145636_dp, 0.000017884_dp, 195.0_dp, 195.005421703_dp, 0.000055487_dp, 196.0_dp, 196.002120431_dp, 0.000015087_dp, 197.0_dp, 197.001621446_dp, 0.000017383_dp, 198.0_dp, 197.998679197_dp, 0.000014406_dp, 199.0_dp, 198.998325436_dp, 0.000007833_dp, 200.0_dp, 199.995705335_dp, 0.000006217_dp, 201.0_dp, 200.995590511_dp, 0.000010865_dp, 202.0_dp, 201.993263982_dp, 0.000018808_dp, 203.0_dp, 202.993361155_dp, 0.000006242_dp, 204.0_dp, 203.991443729_dp, 0.000007991_dp, 205.0_dp, 204.991723228_dp, 0.000005453_dp, 206.0_dp, 205.990195409_dp, 0.000009223_dp, 207.0_dp, 206.990730224_dp, 0.000005090_dp, 208.0_dp, 207.989634513_dp, 0.000010910_dp, 209.0_dp, 208.990401389_dp, 0.000010692_dp, 210.0_dp, 209.989688862_dp, 0.000004892_dp, 211.0_dp, 210.990600767_dp, 0.000007314_dp, 212.0_dp, 211.990703946_dp, 0.000003338_dp, 213.0_dp, 212.993885147_dp, 0.000003618_dp, 214.0_dp, 213.995362650_dp, 0.000009862_dp, 215.0_dp, 214.998745037_dp, 0.000006538_dp, 216.0_dp, 216.000271942_dp, 0.000006192_dp, 217.0_dp, 217.003927632_dp, 0.000004506_dp, 218.0_dp, 218.005601123_dp, 0.000002486_dp, 219.0_dp, 219.009478683_dp, 0.000002254_dp, 220.0_dp, 220.011392443_dp, 0.000001947_dp, 221.0_dp, 221.015535637_dp, 0.000006134_dp, 222.0_dp, 222.017576017_dp, 0.000002086_dp, 223.0_dp, 223.021889283_dp, 0.000008397_dp, 224.0_dp, 224.024095803_dp, 0.000010536_dp, 225.0_dp, 225.028485572_dp, 0.000011958_dp, 226.0_dp, 226.030861380_dp, 0.000011247_dp, 227.0_dp, 227.035304393_dp, 0.000015127_dp, 228.0_dp, 228.037835415_dp, 0.000018977_dp, 229.0_dp, 229.042257272_dp, 0.000014000_dp, 230.0_dp, 230.045271_dp, 0.000215_dp, 231.0_dp, 231.049973_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ru_naw = naw_type(41, transpose(reshape([85.0_dp, 84.967117_dp, 0.000537_dp, 86.0_dp, 85.957305_dp, 0.000429_dp, 87.0_dp, 86.950907_dp, 0.000429_dp, 88.0_dp, 87.941664_dp, 0.000322_dp, 89.0_dp, 88.937337849_dp, 0.000026000_dp, 90.0_dp, 89.930344378_dp, 0.000004004_dp, 91.0_dp, 90.926741530_dp, 0.000002384_dp, 92.0_dp, 91.920234373_dp, 0.000002917_dp, 93.0_dp, 92.917104442_dp, 0.000002216_dp, 94.0_dp, 93.911342860_dp, 0.000003374_dp, 95.0_dp, 94.910404415_dp, 0.000010200_dp, 96.0_dp, 95.907588910_dp, 0.000000182_dp, 97.0_dp, 96.907545776_dp, 0.000002965_dp, 98.0_dp, 97.905286709_dp, 0.000006937_dp, 99.0_dp, 98.905930284_dp, 0.000000368_dp, 100.0_dp, 99.904210460_dp, 0.000000367_dp, 101.0_dp, 100.905573086_dp, 0.000000443_dp, 102.0_dp, 101.904340312_dp, 0.000000446_dp, 103.0_dp, 102.906314846_dp, 0.000000473_dp, 104.0_dp, 103.905425312_dp, 0.000002682_dp, 105.0_dp, 104.907745478_dp, 0.000002683_dp, 106.0_dp, 105.907328181_dp, 0.000005787_dp, 107.0_dp, 106.909969837_dp, 0.000009310_dp, 108.0_dp, 107.910185793_dp, 0.000009318_dp, 109.0_dp, 108.913323707_dp, 0.000009612_dp, 110.0_dp, 109.914038501_dp, 0.000009580_dp, 111.0_dp, 110.917567566_dp, 0.000010394_dp, 112.0_dp, 111.918806922_dp, 0.000010305_dp, 113.0_dp, 112.922846729_dp, 0.000041097_dp, 114.0_dp, 113.924614430_dp, 0.000003817_dp, 115.0_dp, 114.929033049_dp, 0.000027016_dp, 116.0_dp, 115.931219191_dp, 0.000004000_dp, 117.0_dp, 116.936135000_dp, 0.000465000_dp, 118.0_dp, 117.938808_dp, 0.000215_dp, 119.0_dp, 118.944090_dp, 0.000322_dp, 120.0_dp, 119.946623_dp, 0.000429_dp, 121.0_dp, 120.952098_dp, 0.000429_dp, 122.0_dp, 121.955147_dp, 0.000537_dp, 123.0_dp, 122.960762_dp, 0.000537_dp, 124.0_dp, 123.963940_dp, 0.000644_dp, 125.0_dp, 124.969544_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: S_naw = naw_type(24, transpose(reshape([26.0_dp, 26.029716_dp, 0.000644_dp, 27.0_dp, 27.018777_dp, 0.000430_dp, 28.0_dp, 28.004372762_dp, 0.000171767_dp, 29.0_dp, 28.996678000_dp, 0.000014000_dp, 30.0_dp, 29.984906770_dp, 0.000000221_dp, 31.0_dp, 30.979557002_dp, 0.000000246_dp, 32.0_dp, 31.97207117354_dp, 0.00000000141_dp, 33.0_dp, 32.97145890862_dp, 0.00000000144_dp, 34.0_dp, 33.967867011_dp, 0.000000047_dp, 35.0_dp, 34.969032321_dp, 0.000000043_dp, 36.0_dp, 35.967080692_dp, 0.000000201_dp, 37.0_dp, 36.971125500_dp, 0.000000212_dp, 38.0_dp, 37.971163300_dp, 0.000007699_dp, 39.0_dp, 38.975133850_dp, 0.000053677_dp, 40.0_dp, 39.975482561_dp, 0.000004274_dp, 41.0_dp, 40.979593451_dp, 0.000004400_dp, 42.0_dp, 41.981065100_dp, 0.000003000_dp, 43.0_dp, 42.986907635_dp, 0.000005335_dp, 44.0_dp, 43.990118846_dp, 0.000005600_dp, 45.0_dp, 44.996414_dp, 0.000322_dp, 46.0_dp, 46.000687_dp, 0.000429_dp, 47.0_dp, 47.007730_dp, 0.000429_dp, 48.0_dp, 48.013301_dp, 0.000537_dp, 49.0_dp, 49.021891_dp, 0.000626_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sb_naw = naw_type(41, transpose(reshape([102.0_dp, 101.945142_dp, 0.000429_dp, 103.0_dp, 102.939162_dp, 0.000322_dp, 104.0_dp, 103.936344_dp, 0.000109_dp, 105.0_dp, 104.931276547_dp, 0.000023431_dp, 106.0_dp, 105.928637979_dp, 0.000008000_dp, 107.0_dp, 106.924150621_dp, 0.000004452_dp, 108.0_dp, 107.922226731_dp, 0.000005900_dp, 109.0_dp, 108.918141203_dp, 0.000005652_dp, 110.0_dp, 109.916854283_dp, 0.000006400_dp, 111.0_dp, 110.913218187_dp, 0.000009500_dp, 112.0_dp, 111.912399903_dp, 0.000019140_dp, 113.0_dp, 112.909374664_dp, 0.000018457_dp, 114.0_dp, 113.909289155_dp, 0.000021226_dp, 115.0_dp, 114.906598000_dp, 0.000017203_dp, 116.0_dp, 115.906792732_dp, 0.000005533_dp, 117.0_dp, 116.904841519_dp, 0.000009057_dp, 118.0_dp, 117.905532194_dp, 0.000003237_dp, 119.0_dp, 118.903944062_dp, 0.000007512_dp, 120.0_dp, 119.905080308_dp, 0.000007728_dp, 121.0_dp, 120.903811353_dp, 0.000002690_dp, 122.0_dp, 121.905169335_dp, 0.000002687_dp, 123.0_dp, 122.904215292_dp, 0.000001456_dp, 124.0_dp, 123.905937065_dp, 0.000001457_dp, 125.0_dp, 124.905254264_dp, 0.000002700_dp, 126.0_dp, 125.907253158_dp, 0.000034189_dp, 127.0_dp, 126.906925557_dp, 0.000005457_dp, 128.0_dp, 127.909146121_dp, 0.000020169_dp, 129.0_dp, 128.909146623_dp, 0.000022786_dp, 130.0_dp, 129.911662686_dp, 0.000015257_dp, 131.0_dp, 130.911989339_dp, 0.000002236_dp, 132.0_dp, 131.914508013_dp, 0.000002648_dp, 133.0_dp, 132.915272128_dp, 0.000003357_dp, 134.0_dp, 133.920537334_dp, 0.000003300_dp, 135.0_dp, 134.925184354_dp, 0.000002834_dp, 136.0_dp, 135.930749009_dp, 0.000006258_dp, 137.0_dp, 136.935522519_dp, 0.000056000_dp, 138.0_dp, 137.941331_dp, 0.000322_dp, 139.0_dp, 138.946269_dp, 0.000429_dp, 140.0_dp, 139.952345_dp, 0.000644_dp, 141.0_dp, 140.957552_dp, 0.000537_dp, 142.0_dp, 141.963918_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sc_naw = naw_type(29, transpose(reshape([35.0_dp, 35.029093_dp, 0.000429_dp, 36.0_dp, 36.017338_dp, 0.000322_dp, 37.0_dp, 37.004058_dp, 0.000322_dp, 38.0_dp, 37.995438_dp, 0.000215_dp, 39.0_dp, 38.984784953_dp, 0.000025765_dp, 40.0_dp, 39.977967275_dp, 0.000003036_dp, 41.0_dp, 40.969251163_dp, 0.000000083_dp, 42.0_dp, 41.965516686_dp, 0.000000165_dp, 43.0_dp, 42.961150425_dp, 0.000001999_dp, 44.0_dp, 43.959402818_dp, 0.000001884_dp, 45.0_dp, 44.955907051_dp, 0.000000712_dp, 46.0_dp, 45.955167034_dp, 0.000000720_dp, 47.0_dp, 46.952402444_dp, 0.000002072_dp, 48.0_dp, 47.952222903_dp, 0.000005313_dp, 49.0_dp, 48.950013159_dp, 0.000002434_dp, 50.0_dp, 49.952187437_dp, 0.000002700_dp, 51.0_dp, 50.953568838_dp, 0.000002700_dp, 52.0_dp, 51.956496170_dp, 0.000003300_dp, 53.0_dp, 52.958379173_dp, 0.000019000_dp, 54.0_dp, 53.963029359_dp, 0.000015000_dp, 55.0_dp, 54.966889637_dp, 0.000067000_dp, 56.0_dp, 55.972607611_dp, 0.000278761_dp, 57.0_dp, 56.977048000_dp, 0.000193000_dp, 58.0_dp, 57.983382000_dp, 0.000204000_dp, 59.0_dp, 58.988374000_dp, 0.000268000_dp, 60.0_dp, 59.995115_dp, 0.000537_dp, 61.0_dp, 61.000537_dp, 0.000644_dp, 62.0_dp, 62.007848_dp, 0.000644_dp, 63.0_dp, 63.014031_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Se_naw = naw_type(33, transpose(reshape([63.0_dp, 62.981911_dp, 0.000537_dp, 64.0_dp, 63.971165_dp, 0.000537_dp, 65.0_dp, 64.964552_dp, 0.000322_dp, 66.0_dp, 65.955276_dp, 0.000215_dp, 67.0_dp, 66.949994000_dp, 0.000072000_dp, 68.0_dp, 67.941825236_dp, 0.000000532_dp, 69.0_dp, 68.939414845_dp, 0.000001599_dp, 70.0_dp, 69.933515521_dp, 0.000001700_dp, 71.0_dp, 70.932209431_dp, 0.000003000_dp, 72.0_dp, 71.927140506_dp, 0.000002100_dp, 73.0_dp, 72.926754881_dp, 0.000007969_dp, 74.0_dp, 73.922475933_dp, 0.000000015_dp, 75.0_dp, 74.922522870_dp, 0.000000078_dp, 76.0_dp, 75.919213702_dp, 0.000000017_dp, 77.0_dp, 76.919914150_dp, 0.000000067_dp, 78.0_dp, 77.917309244_dp, 0.000000191_dp, 79.0_dp, 78.918499252_dp, 0.000000238_dp, 80.0_dp, 79.916521761_dp, 0.000001016_dp, 81.0_dp, 80.917993019_dp, 0.000001049_dp, 82.0_dp, 81.916699531_dp, 0.000000500_dp, 83.0_dp, 82.919118604_dp, 0.000003259_dp, 84.0_dp, 83.918466761_dp, 0.000002105_dp, 85.0_dp, 84.922260758_dp, 0.000002804_dp, 86.0_dp, 85.924311732_dp, 0.000002705_dp, 87.0_dp, 86.928688616_dp, 0.000002405_dp, 88.0_dp, 87.931417490_dp, 0.000003604_dp, 89.0_dp, 88.936669058_dp, 0.000004003_dp, 90.0_dp, 89.940096000_dp, 0.000354000_dp, 91.0_dp, 90.945700000_dp, 0.000465000_dp, 92.0_dp, 91.949840_dp, 0.000429_dp, 93.0_dp, 92.956135_dp, 0.000429_dp, 94.0_dp, 93.960490_dp, 0.000537_dp, 95.0_dp, 94.967300_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sg_naw = naw_type(16, transpose(reshape([258.0_dp, 258.113040_dp, 0.000443_dp, 259.0_dp, 259.114353_dp, 0.000194_dp, 260.0_dp, 260.114383435_dp, 0.000022045_dp, 261.0_dp, 261.115948135_dp, 0.000019853_dp, 262.0_dp, 262.116338978_dp, 0.000023797_dp, 263.0_dp, 263.118299_dp, 0.000101_dp, 264.0_dp, 264.118930_dp, 0.000304_dp, 265.0_dp, 265.121089_dp, 0.000149_dp, 266.0_dp, 266.121973_dp, 0.000263_dp, 267.0_dp, 267.124323_dp, 0.000281_dp, 268.0_dp, 268.125389_dp, 0.000504_dp, 269.0_dp, 269.128495_dp, 0.000395_dp, 270.0_dp, 270.130362_dp, 0.000492_dp, 271.0_dp, 271.133782_dp, 0.000634_dp, 272.0_dp, 272.135825_dp, 0.000743_dp, 273.0_dp, 273.139475_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Si_naw = naw_type(24, transpose(reshape([22.0_dp, 22.036114_dp, 0.000537_dp, 23.0_dp, 23.025711_dp, 0.000537_dp, 24.0_dp, 24.011535430_dp, 0.000020904_dp, 25.0_dp, 25.004108798_dp, 0.000010735_dp, 26.0_dp, 25.992333818_dp, 0.000000115_dp, 27.0_dp, 26.986704687_dp, 0.000000115_dp, 28.0_dp, 27.97692653442_dp, 0.00000000055_dp, 29.0_dp, 28.97649466434_dp, 0.00000000060_dp, 30.0_dp, 29.973770137_dp, 0.000000023_dp, 31.0_dp, 30.975363196_dp, 0.000000046_dp, 32.0_dp, 31.974151538_dp, 0.000000320_dp, 33.0_dp, 32.977976964_dp, 0.000000750_dp, 34.0_dp, 33.978538045_dp, 0.000000860_dp, 35.0_dp, 34.984550111_dp, 0.000038494_dp, 36.0_dp, 35.986649271_dp, 0.000077077_dp, 37.0_dp, 36.992945191_dp, 0.000122179_dp, 38.0_dp, 37.995523000_dp, 0.000112500_dp, 39.0_dp, 39.002491000_dp, 0.000145500_dp, 40.0_dp, 40.006083641_dp, 0.000130962_dp, 41.0_dp, 41.014171_dp, 0.000322_dp, 42.0_dp, 42.018078_dp, 0.000322_dp, 43.0_dp, 43.026119_dp, 0.000429_dp, 44.0_dp, 44.031466_dp, 0.000537_dp, 45.0_dp, 45.039818_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sm_naw = naw_type(41, transpose(reshape([128.0_dp, 127.957971_dp, 0.000537_dp, 129.0_dp, 128.954557_dp, 0.000537_dp, 130.0_dp, 129.948792_dp, 0.000429_dp, 131.0_dp, 130.946022_dp, 0.000429_dp, 132.0_dp, 131.940805_dp, 0.000322_dp, 133.0_dp, 132.938560_dp, 0.000320_dp, 134.0_dp, 133.934110_dp, 0.000210_dp, 135.0_dp, 134.932520000_dp, 0.000166000_dp, 136.0_dp, 135.928275553_dp, 0.000013416_dp, 137.0_dp, 136.927007959_dp, 0.000030718_dp, 138.0_dp, 137.923243988_dp, 0.000012686_dp, 139.0_dp, 138.922296631_dp, 0.000011684_dp, 140.0_dp, 139.918994714_dp, 0.000013416_dp, 141.0_dp, 140.918481545_dp, 0.000009162_dp, 142.0_dp, 141.915209415_dp, 0.000002002_dp, 143.0_dp, 142.914634848_dp, 0.000002951_dp, 144.0_dp, 143.912006285_dp, 0.000001566_dp, 145.0_dp, 144.913417157_dp, 0.000001594_dp, 146.0_dp, 145.913046835_dp, 0.000003269_dp, 147.0_dp, 146.914904401_dp, 0.000001354_dp, 148.0_dp, 147.914829233_dp, 0.000001337_dp, 149.0_dp, 148.917191211_dp, 0.000001241_dp, 150.0_dp, 149.917281993_dp, 0.000001193_dp, 151.0_dp, 150.919938859_dp, 0.000001191_dp, 152.0_dp, 151.919738646_dp, 0.000001090_dp, 153.0_dp, 152.922103576_dp, 0.000001100_dp, 154.0_dp, 153.922215756_dp, 0.000001400_dp, 155.0_dp, 154.924646645_dp, 0.000001429_dp, 156.0_dp, 155.925538191_dp, 0.000009148_dp, 157.0_dp, 156.928418598_dp, 0.000004759_dp, 158.0_dp, 157.929949262_dp, 0.000005133_dp, 159.0_dp, 158.933217130_dp, 0.000006370_dp, 160.0_dp, 159.935337032_dp, 0.000002100_dp, 161.0_dp, 160.939160062_dp, 0.000007318_dp, 162.0_dp, 161.941621687_dp, 0.000003782_dp, 163.0_dp, 162.945679085_dp, 0.000007900_dp, 164.0_dp, 163.948550061_dp, 0.000004400_dp, 165.0_dp, 164.953290_dp, 0.000429_dp, 166.0_dp, 165.956575_dp, 0.000429_dp, 167.0_dp, 166.962072_dp, 0.000537_dp, 168.0_dp, 167.966033_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sn_naw = naw_type(42, transpose(reshape([99.0_dp, 98.948495_dp, 0.000625_dp, 100.0_dp, 99.938648944_dp, 0.000257661_dp, 101.0_dp, 100.935259252_dp, 0.000322068_dp, 102.0_dp, 101.930289525_dp, 0.000107466_dp, 103.0_dp, 102.927973_dp, 0.000108_dp, 104.0_dp, 103.923105195_dp, 0.000006167_dp, 105.0_dp, 104.921268421_dp, 0.000004263_dp, 106.0_dp, 105.916957394_dp, 0.000005465_dp, 107.0_dp, 106.915713649_dp, 0.000005700_dp, 108.0_dp, 107.911894290_dp, 0.000005778_dp, 109.0_dp, 108.911292857_dp, 0.000008533_dp, 110.0_dp, 109.907844835_dp, 0.000014790_dp, 111.0_dp, 110.907741143_dp, 0.000005728_dp, 112.0_dp, 111.904824894_dp, 0.000000315_dp, 113.0_dp, 112.905175857_dp, 0.000001690_dp, 114.0_dp, 113.902780130_dp, 0.000000031_dp, 115.0_dp, 114.903344695_dp, 0.000000016_dp, 116.0_dp, 115.901742825_dp, 0.000000103_dp, 117.0_dp, 116.902954036_dp, 0.000000518_dp, 118.0_dp, 117.901606630_dp, 0.000000536_dp, 119.0_dp, 118.903311266_dp, 0.000000778_dp, 120.0_dp, 119.902202557_dp, 0.000000987_dp, 121.0_dp, 120.904243488_dp, 0.000001050_dp, 122.0_dp, 121.903445494_dp, 0.000002627_dp, 123.0_dp, 122.905727065_dp, 0.000002661_dp, 124.0_dp, 123.905279619_dp, 0.000001410_dp, 125.0_dp, 124.907789370_dp, 0.000001426_dp, 126.0_dp, 125.907658958_dp, 0.000011473_dp, 127.0_dp, 126.910391726_dp, 0.000009904_dp, 128.0_dp, 127.910507828_dp, 0.000018982_dp, 129.0_dp, 128.913482440_dp, 0.000018540_dp, 130.0_dp, 129.913974531_dp, 0.000002010_dp, 131.0_dp, 130.917053067_dp, 0.000003887_dp, 132.0_dp, 131.917823898_dp, 0.000002121_dp, 133.0_dp, 132.923913753_dp, 0.000002043_dp, 134.0_dp, 133.928680430_dp, 0.000003400_dp, 135.0_dp, 134.934908603_dp, 0.000003300_dp, 136.0_dp, 135.939699_dp, 0.000215_dp, 137.0_dp, 136.946162_dp, 0.000322_dp, 138.0_dp, 137.951143_dp, 0.000429_dp, 139.0_dp, 138.957799_dp, 0.000429_dp, 140.0_dp, 139.962973_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sr_naw = naw_type(35, transpose(reshape([73.0_dp, 72.965700_dp, 0.000430_dp, 74.0_dp, 73.956170_dp, 0.000107_dp, 75.0_dp, 74.949952767_dp, 0.000236183_dp, 76.0_dp, 75.941762760_dp, 0.000037000_dp, 77.0_dp, 76.937945454_dp, 0.000008500_dp, 78.0_dp, 77.932179979_dp, 0.000008000_dp, 79.0_dp, 78.929704692_dp, 0.000007967_dp, 80.0_dp, 79.924517538_dp, 0.000003718_dp, 81.0_dp, 80.923211393_dp, 0.000003358_dp, 82.0_dp, 81.918399845_dp, 0.000006432_dp, 83.0_dp, 82.917554372_dp, 0.000007336_dp, 84.0_dp, 83.913419118_dp, 0.000001334_dp, 85.0_dp, 84.912932041_dp, 0.000003020_dp, 86.0_dp, 85.90926072473_dp, 0.00000000563_dp, 87.0_dp, 86.90887749454_dp, 0.00000000550_dp, 88.0_dp, 87.905612253_dp, 0.000000006_dp, 89.0_dp, 88.907450808_dp, 0.000000098_dp, 90.0_dp, 89.907727870_dp, 0.000001555_dp, 91.0_dp, 90.910195942_dp, 0.000005853_dp, 92.0_dp, 91.911038222_dp, 0.000003675_dp, 93.0_dp, 92.914024314_dp, 0.000008109_dp, 94.0_dp, 93.915355641_dp, 0.000001785_dp, 95.0_dp, 94.919358282_dp, 0.000006237_dp, 96.0_dp, 95.921719045_dp, 0.000009089_dp, 97.0_dp, 96.926375621_dp, 0.000003633_dp, 98.0_dp, 97.928692636_dp, 0.000003463_dp, 99.0_dp, 98.932883604_dp, 0.000005085_dp, 100.0_dp, 99.935783270_dp, 0.000007426_dp, 101.0_dp, 100.940606264_dp, 0.000009103_dp, 102.0_dp, 101.944004679_dp, 0.000072000_dp, 103.0_dp, 102.949243_dp, 0.000215_dp, 104.0_dp, 103.953022_dp, 0.000322_dp, 105.0_dp, 104.959001_dp, 0.000537_dp, 106.0_dp, 105.963177_dp, 0.000644_dp, 107.0_dp, 106.969672_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ta_naw = naw_type(40, transpose(reshape([155.0_dp, 154.974248_dp, 0.000322_dp, 156.0_dp, 155.972087_dp, 0.000322_dp, 157.0_dp, 156.968227445_dp, 0.000161087_dp, 158.0_dp, 157.966593_dp, 0.000215_dp, 159.0_dp, 158.963028046_dp, 0.000021137_dp, 160.0_dp, 159.961541678_dp, 0.000058310_dp, 161.0_dp, 160.958369489_dp, 0.000026174_dp, 162.0_dp, 161.957292907_dp, 0.000067979_dp, 163.0_dp, 162.954337194_dp, 0.000040860_dp, 164.0_dp, 163.953534000_dp, 0.000030000_dp, 165.0_dp, 164.950780287_dp, 0.000014571_dp, 166.0_dp, 165.950512000_dp, 0.000030000_dp, 167.0_dp, 166.948093000_dp, 0.000030000_dp, 168.0_dp, 167.948047000_dp, 0.000030000_dp, 169.0_dp, 168.946011000_dp, 0.000030000_dp, 170.0_dp, 169.946175000_dp, 0.000030000_dp, 171.0_dp, 170.944476000_dp, 0.000030000_dp, 172.0_dp, 171.944895000_dp, 0.000030000_dp, 173.0_dp, 172.943750000_dp, 0.000030000_dp, 174.0_dp, 173.944454000_dp, 0.000030000_dp, 175.0_dp, 174.943737000_dp, 0.000030000_dp, 176.0_dp, 175.944857000_dp, 0.000033000_dp, 177.0_dp, 176.944481940_dp, 0.000003558_dp, 178.0_dp, 177.945680_dp, 0.000056_dp, 179.0_dp, 178.945939050_dp, 0.000001574_dp, 180.0_dp, 179.947467589_dp, 0.000002219_dp, 181.0_dp, 180.947998528_dp, 0.000001692_dp, 182.0_dp, 181.950154612_dp, 0.000001693_dp, 183.0_dp, 182.951375380_dp, 0.000001707_dp, 184.0_dp, 183.954009958_dp, 0.000027923_dp, 185.0_dp, 184.955561317_dp, 0.000015202_dp, 186.0_dp, 185.958553036_dp, 0.000064425_dp, 187.0_dp, 186.960391000_dp, 0.000060000_dp, 188.0_dp, 187.963596_dp, 0.000215_dp, 189.0_dp, 188.965690_dp, 0.000215_dp, 190.0_dp, 189.969168_dp, 0.000215_dp, 191.0_dp, 190.971530_dp, 0.000322_dp, 192.0_dp, 191.975201_dp, 0.000429_dp, 193.0_dp, 192.977660_dp, 0.000429_dp, 194.0_dp, 193.981610_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Tb_naw = naw_type(40, transpose(reshape([135.0_dp, 134.964516_dp, 0.000429_dp, 136.0_dp, 135.961460_dp, 0.000537_dp, 137.0_dp, 136.956020_dp, 0.000430_dp, 138.0_dp, 137.953193_dp, 0.000322_dp, 139.0_dp, 138.948330_dp, 0.000320_dp, 140.0_dp, 139.945805048_dp, 0.000859359_dp, 141.0_dp, 140.941448000_dp, 0.000113000_dp, 142.0_dp, 141.939280858_dp, 0.000752079_dp, 143.0_dp, 142.935137332_dp, 0.000055000_dp, 144.0_dp, 143.933045000_dp, 0.000030000_dp, 145.0_dp, 144.928717001_dp, 0.000119051_dp, 146.0_dp, 145.927252739_dp, 0.000048159_dp, 147.0_dp, 146.924054620_dp, 0.000008691_dp, 148.0_dp, 147.924275476_dp, 0.000013379_dp, 149.0_dp, 148.923253792_dp, 0.000003895_dp, 150.0_dp, 149.923664799_dp, 0.000007912_dp, 151.0_dp, 150.923108970_dp, 0.000004395_dp, 152.0_dp, 151.924081855_dp, 0.000042955_dp, 153.0_dp, 152.923441694_dp, 0.000004237_dp, 154.0_dp, 153.924683681_dp, 0.000048641_dp, 155.0_dp, 154.923509511_dp, 0.000010552_dp, 156.0_dp, 155.924754209_dp, 0.000004044_dp, 157.0_dp, 156.924031888_dp, 0.000001092_dp, 158.0_dp, 157.925419942_dp, 0.000001360_dp, 159.0_dp, 158.925353707_dp, 0.000001184_dp, 160.0_dp, 159.927174553_dp, 0.000001191_dp, 161.0_dp, 160.927576806_dp, 0.000001308_dp, 162.0_dp, 161.929275400_dp, 0.000002200_dp, 163.0_dp, 162.930653609_dp, 0.000004358_dp, 164.0_dp, 163.933327561_dp, 0.000002000_dp, 165.0_dp, 164.934955198_dp, 0.000001654_dp, 166.0_dp, 165.937939727_dp, 0.000001570_dp, 167.0_dp, 166.940007046_dp, 0.000002071_dp, 168.0_dp, 167.943337074_dp, 0.000004500_dp, 169.0_dp, 168.945807_dp, 0.000322_dp, 170.0_dp, 169.949855_dp, 0.000322_dp, 171.0_dp, 170.953011_dp, 0.000429_dp, 172.0_dp, 171.957391_dp, 0.000537_dp, 173.0_dp, 172.960805_dp, 0.000537_dp, 174.0_dp, 173.965679_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Tc_naw = naw_type(40, transpose(reshape([83.0_dp, 82.966377_dp, 0.000537_dp, 84.0_dp, 83.959527_dp, 0.000429_dp, 85.0_dp, 84.950778_dp, 0.000429_dp, 86.0_dp, 85.944637_dp, 0.000322_dp, 87.0_dp, 86.938067185_dp, 0.000004500_dp, 88.0_dp, 87.933794211_dp, 0.000004400_dp, 89.0_dp, 88.927648649_dp, 0.000004100_dp, 90.0_dp, 89.924073919_dp, 0.000001100_dp, 91.0_dp, 90.918424972_dp, 0.000002536_dp, 92.0_dp, 91.915269777_dp, 0.000003330_dp, 93.0_dp, 92.910245147_dp, 0.000001086_dp, 94.0_dp, 93.909652319_dp, 0.000004370_dp, 95.0_dp, 94.907652281_dp, 0.000005453_dp, 96.0_dp, 95.907866675_dp, 0.000005524_dp, 97.0_dp, 96.906360720_dp, 0.000004420_dp, 98.0_dp, 97.907211206_dp, 0.000003628_dp, 99.0_dp, 98.906249681_dp, 0.000000974_dp, 100.0_dp, 99.907652715_dp, 0.000001450_dp, 101.0_dp, 100.907305271_dp, 0.000025768_dp, 102.0_dp, 101.909207239_dp, 0.000009840_dp, 103.0_dp, 102.909173960_dp, 0.000010531_dp, 104.0_dp, 103.911433718_dp, 0.000026716_dp, 105.0_dp, 104.911662024_dp, 0.000037856_dp, 106.0_dp, 105.914356674_dp, 0.000013150_dp, 107.0_dp, 106.915458437_dp, 0.000009310_dp, 108.0_dp, 107.918493493_dp, 0.000009413_dp, 109.0_dp, 108.920254107_dp, 0.000010380_dp, 110.0_dp, 109.923741263_dp, 0.000010195_dp, 111.0_dp, 110.925898966_dp, 0.000011359_dp, 112.0_dp, 111.929941658_dp, 0.000005920_dp, 113.0_dp, 112.932569032_dp, 0.000003600_dp, 114.0_dp, 113.937090000_dp, 0.000465000_dp, 115.0_dp, 114.940100_dp, 0.000210_dp, 116.0_dp, 115.945020_dp, 0.000320_dp, 117.0_dp, 116.948320_dp, 0.000429_dp, 118.0_dp, 117.953526_dp, 0.000429_dp, 119.0_dp, 118.956876_dp, 0.000537_dp, 120.0_dp, 119.962426_dp, 0.000537_dp, 121.0_dp, 120.966140_dp, 0.000537_dp, 122.0_dp, 121.971760_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Te_naw = naw_type(42, transpose(reshape([104.0_dp, 103.946723408_dp, 0.000340967_dp, 105.0_dp, 104.943304516_dp, 0.000322084_dp, 106.0_dp, 105.937498521_dp, 0.000107934_dp, 107.0_dp, 106.934882_dp, 0.000108_dp, 108.0_dp, 107.929380469_dp, 0.000005808_dp, 109.0_dp, 108.927304532_dp, 0.000004704_dp, 110.0_dp, 109.922458102_dp, 0.000007058_dp, 111.0_dp, 110.921000587_dp, 0.000006900_dp, 112.0_dp, 111.916727848_dp, 0.000009000_dp, 113.0_dp, 112.915891000_dp, 0.000030000_dp, 114.0_dp, 113.912087820_dp, 0.000026224_dp, 115.0_dp, 114.911902000_dp, 0.000030000_dp, 116.0_dp, 115.908465558_dp, 0.000025986_dp, 117.0_dp, 116.908646227_dp, 0.000014444_dp, 118.0_dp, 117.905860104_dp, 0.000019652_dp, 119.0_dp, 118.906405699_dp, 0.000007813_dp, 120.0_dp, 119.904065779_dp, 0.000001880_dp, 121.0_dp, 120.904945065_dp, 0.000027734_dp, 122.0_dp, 121.903044708_dp, 0.000001456_dp, 123.0_dp, 122.904271022_dp, 0.000001454_dp, 124.0_dp, 123.902818341_dp, 0.000001451_dp, 125.0_dp, 124.904431178_dp, 0.000001451_dp, 126.0_dp, 125.903312144_dp, 0.000001453_dp, 127.0_dp, 126.905226993_dp, 0.000001465_dp, 128.0_dp, 127.904461237_dp, 0.000000758_dp, 129.0_dp, 128.906596419_dp, 0.000000763_dp, 130.0_dp, 129.906222745_dp, 0.000000011_dp, 131.0_dp, 130.908522210_dp, 0.000000065_dp, 132.0_dp, 131.908546713_dp, 0.000003742_dp, 133.0_dp, 132.910963330_dp, 0.000002218_dp, 134.0_dp, 133.911396376_dp, 0.000002948_dp, 135.0_dp, 134.916554715_dp, 0.000001848_dp, 136.0_dp, 135.920101180_dp, 0.000002448_dp, 137.0_dp, 136.925599354_dp, 0.000002254_dp, 138.0_dp, 137.929472452_dp, 0.000004065_dp, 139.0_dp, 138.935367191_dp, 0.000003800_dp, 140.0_dp, 139.939487057_dp, 0.000015434_dp, 141.0_dp, 140.945604_dp, 0.000429_dp, 142.0_dp, 141.950027_dp, 0.000537_dp, 143.0_dp, 142.956489_dp, 0.000537_dp, 144.0_dp, 143.961116_dp, 0.000322_dp, 145.0_dp, 144.967783_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Th_naw = naw_type(32, transpose(reshape([208.0_dp, 208.017915348_dp, 0.000034208_dp, 209.0_dp, 209.017601_dp, 0.000111_dp, 210.0_dp, 210.015093515_dp, 0.000020299_dp, 211.0_dp, 211.014896923_dp, 0.000092399_dp, 212.0_dp, 212.013001570_dp, 0.000010852_dp, 213.0_dp, 213.013011470_dp, 0.000009895_dp, 214.0_dp, 214.011481480_dp, 0.000011445_dp, 215.0_dp, 215.011724640_dp, 0.000006800_dp, 216.0_dp, 216.011055933_dp, 0.000011920_dp, 217.0_dp, 217.013103443_dp, 0.000011394_dp, 218.0_dp, 218.013276248_dp, 0.000011289_dp, 219.0_dp, 219.015526432_dp, 0.000060611_dp, 220.0_dp, 220.015769866_dp, 0.000014693_dp, 221.0_dp, 221.018185757_dp, 0.000008582_dp, 222.0_dp, 222.018468220_dp, 0.000010966_dp, 223.0_dp, 223.020811083_dp, 0.000008527_dp, 224.0_dp, 224.021466137_dp, 0.000010310_dp, 225.0_dp, 225.023950975_dp, 0.000005467_dp, 226.0_dp, 226.024903699_dp, 0.000004810_dp, 227.0_dp, 227.027702546_dp, 0.000002241_dp, 228.0_dp, 228.028739741_dp, 0.000001938_dp, 229.0_dp, 229.031761357_dp, 0.000002581_dp, 230.0_dp, 230.033132267_dp, 0.000001297_dp, 231.0_dp, 231.036302764_dp, 0.000001306_dp, 232.0_dp, 232.038053606_dp, 0.000001525_dp, 233.0_dp, 233.041580126_dp, 0.000001528_dp, 234.0_dp, 234.043599801_dp, 0.000002779_dp, 235.0_dp, 235.047255000_dp, 0.000014000_dp, 236.0_dp, 236.049657000_dp, 0.000015000_dp, 237.0_dp, 237.053629000_dp, 0.000017000_dp, 238.0_dp, 238.056388_dp, 0.000304_dp, 239.0_dp, 239.060655_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ti_naw = naw_type(29, transpose(reshape([37.0_dp, 37.027021_dp, 0.000429_dp, 38.0_dp, 38.012206_dp, 0.000322_dp, 39.0_dp, 39.002684_dp, 0.000215_dp, 40.0_dp, 39.990345146_dp, 0.000073262_dp, 41.0_dp, 40.983148000_dp, 0.000030000_dp, 42.0_dp, 41.973049369_dp, 0.000000289_dp, 43.0_dp, 42.968528420_dp, 0.000006139_dp, 44.0_dp, 43.959689936_dp, 0.000000751_dp, 45.0_dp, 44.958120758_dp, 0.000000897_dp, 46.0_dp, 45.952626356_dp, 0.000000097_dp, 47.0_dp, 46.951757491_dp, 0.000000085_dp, 48.0_dp, 47.947940677_dp, 0.000000079_dp, 49.0_dp, 48.947864391_dp, 0.000000084_dp, 50.0_dp, 49.944785622_dp, 0.000000088_dp, 51.0_dp, 50.946609468_dp, 0.000000519_dp, 52.0_dp, 51.946883509_dp, 0.000002948_dp, 53.0_dp, 52.949670714_dp, 0.000003100_dp, 54.0_dp, 53.950892000_dp, 0.000017000_dp, 55.0_dp, 54.955091000_dp, 0.000031000_dp, 56.0_dp, 55.957677675_dp, 0.000107569_dp, 57.0_dp, 56.963068098_dp, 0.000221020_dp, 58.0_dp, 57.966808519_dp, 0.000196823_dp, 59.0_dp, 58.972217_dp, 0.000322_dp, 60.0_dp, 59.976275000_dp, 0.000258000_dp, 61.0_dp, 60.982426_dp, 0.000322_dp, 62.0_dp, 61.986903_dp, 0.000429_dp, 63.0_dp, 62.993709_dp, 0.000537_dp, 64.0_dp, 63.998411_dp, 0.000644_dp, 65.0_dp, 65.005593_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Tl_naw = naw_type(43, transpose(reshape([176.0_dp, 176.000627731_dp, 0.000089166_dp, 177.0_dp, 176.996414252_dp, 0.000023218_dp, 178.0_dp, 177.995047_dp, 0.000110_dp, 179.0_dp, 178.991122185_dp, 0.000041495_dp, 180.0_dp, 179.989918950_dp, 0.000075058_dp, 181.0_dp, 180.986259978_dp, 0.000009771_dp, 182.0_dp, 181.985692649_dp, 0.000012856_dp, 183.0_dp, 182.982192843_dp, 0.000010017_dp, 184.0_dp, 183.981874973_dp, 0.000010747_dp, 185.0_dp, 184.978789189_dp, 0.000022194_dp, 186.0_dp, 185.978654787_dp, 0.000022276_dp, 187.0_dp, 186.975904740_dp, 0.000008640_dp, 188.0_dp, 187.976020886_dp, 0.000032103_dp, 189.0_dp, 188.973573525_dp, 0.000008983_dp, 190.0_dp, 189.973841771_dp, 0.000007784_dp, 191.0_dp, 190.971784093_dp, 0.000007889_dp, 192.0_dp, 191.972225000_dp, 0.000034000_dp, 193.0_dp, 192.970501994_dp, 0.000007200_dp, 194.0_dp, 193.971081408_dp, 0.000015000_dp, 195.0_dp, 194.969774052_dp, 0.000011944_dp, 196.0_dp, 195.970481189_dp, 0.000013000_dp, 197.0_dp, 196.969560492_dp, 0.000014573_dp, 198.0_dp, 197.970446669_dp, 0.000008100_dp, 199.0_dp, 198.969877000_dp, 0.000030000_dp, 200.0_dp, 199.970963608_dp, 0.000006182_dp, 201.0_dp, 200.970820235_dp, 0.000015228_dp, 202.0_dp, 201.972108874_dp, 0.000001972_dp, 203.0_dp, 202.972344098_dp, 0.000001257_dp, 204.0_dp, 203.973863420_dp, 0.000001238_dp, 205.0_dp, 204.974427318_dp, 0.000001330_dp, 206.0_dp, 205.976110108_dp, 0.000001380_dp, 207.0_dp, 206.977418605_dp, 0.000005839_dp, 208.0_dp, 207.982018006_dp, 0.000001989_dp, 209.0_dp, 208.985351713_dp, 0.000006559_dp, 210.0_dp, 209.990072942_dp, 0.000012456_dp, 211.0_dp, 210.993475000_dp, 0.000045000_dp, 212.0_dp, 211.998335_dp, 0.000215_dp, 213.0_dp, 213.001915000_dp, 0.000029000_dp, 214.0_dp, 214.006940_dp, 0.000210_dp, 215.0_dp, 215.010768_dp, 0.000322_dp, 216.0_dp, 216.015964_dp, 0.000322_dp, 217.0_dp, 217.020032_dp, 0.000429_dp, 218.0_dp, 218.025454_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Tm_naw = naw_type(39, transpose(reshape([144.0_dp, 143.976211_dp, 0.000429_dp, 145.0_dp, 144.970389_dp, 0.000210_dp, 146.0_dp, 145.966661_dp, 0.000215_dp, 147.0_dp, 146.961379887_dp, 0.000007341_dp, 148.0_dp, 147.958384026_dp, 0.000011000_dp, 149.0_dp, 148.952828_dp, 0.000215_dp, 150.0_dp, 149.950090_dp, 0.000210_dp, 151.0_dp, 150.945494433_dp, 0.000020799_dp, 152.0_dp, 151.944476000_dp, 0.000058000_dp, 153.0_dp, 152.942058023_dp, 0.000012860_dp, 154.0_dp, 153.941570062_dp, 0.000015471_dp, 155.0_dp, 154.939209576_dp, 0.000010651_dp, 156.0_dp, 155.938985746_dp, 0.000015328_dp, 157.0_dp, 156.936973000_dp, 0.000030000_dp, 158.0_dp, 157.936979525_dp, 0.000027074_dp, 159.0_dp, 158.934975000_dp, 0.000030000_dp, 160.0_dp, 159.935264177_dp, 0.000035089_dp, 161.0_dp, 160.933549000_dp, 0.000030000_dp, 162.0_dp, 161.934001211_dp, 0.000027974_dp, 163.0_dp, 162.932658282_dp, 0.000005920_dp, 164.0_dp, 163.933538019_dp, 0.000026845_dp, 165.0_dp, 164.932441843_dp, 0.000001779_dp, 166.0_dp, 165.933562136_dp, 0.000012401_dp, 167.0_dp, 166.932857206_dp, 0.000001350_dp, 168.0_dp, 167.934178457_dp, 0.000001800_dp, 169.0_dp, 168.934218956_dp, 0.000000792_dp, 170.0_dp, 169.935807093_dp, 0.000000785_dp, 171.0_dp, 170.936435162_dp, 0.000001043_dp, 172.0_dp, 171.938406959_dp, 0.000005884_dp, 173.0_dp, 172.939606630_dp, 0.000004723_dp, 174.0_dp, 173.942174061_dp, 0.000048010_dp, 175.0_dp, 174.943842310_dp, 0.000053677_dp, 176.0_dp, 175.946997707_dp, 0.000107354_dp, 177.0_dp, 176.948932_dp, 0.000215_dp, 178.0_dp, 177.952506_dp, 0.000322_dp, 179.0_dp, 178.955018_dp, 0.000429_dp, 180.0_dp, 179.959023_dp, 0.000429_dp, 181.0_dp, 180.961954_dp, 0.000537_dp, 182.0_dp, 181.966194_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ts_naw = naw_type(4, transpose(reshape([291.0_dp, 291.205748_dp, 0.000640_dp, 292.0_dp, 292.207861_dp, 0.000718_dp, 293.0_dp, 293.208727_dp, 0.000835_dp, 294.0_dp, 294.210840_dp, 0.000637_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: U_naw = naw_type(29, transpose(reshape([215.0_dp, 215.026719774_dp, 0.000111794_dp, 216.0_dp, 216.024762829_dp, 0.000030158_dp, 217.0_dp, 217.024660_dp, 0.000086_dp, 218.0_dp, 218.023504877_dp, 0.000014722_dp, 219.0_dp, 219.025009233_dp, 0.000014319_dp, 220.0_dp, 220.024706_dp, 0.000108_dp, 221.0_dp, 221.026323297_dp, 0.000077440_dp, 222.0_dp, 222.026057957_dp, 0.000055817_dp, 223.0_dp, 223.027960754_dp, 0.000063396_dp, 224.0_dp, 224.027635913_dp, 0.000016383_dp, 225.0_dp, 225.029385050_dp, 0.000010664_dp, 226.0_dp, 226.029338669_dp, 0.000011884_dp, 227.0_dp, 227.031181124_dp, 0.000009136_dp, 228.0_dp, 228.031368959_dp, 0.000014465_dp, 229.0_dp, 229.033505976_dp, 0.000006374_dp, 230.0_dp, 230.033940114_dp, 0.000004841_dp, 231.0_dp, 231.036292180_dp, 0.000002866_dp, 232.0_dp, 232.037154765_dp, 0.000001941_dp, 233.0_dp, 233.039634294_dp, 0.000002420_dp, 234.0_dp, 234.040950296_dp, 0.000001212_dp, 235.0_dp, 235.043928117_dp, 0.000001198_dp, 236.0_dp, 236.045566130_dp, 0.000001193_dp, 237.0_dp, 237.048728309_dp, 0.000001290_dp, 238.0_dp, 238.050786936_dp, 0.000001601_dp, 239.0_dp, 239.054291989_dp, 0.000001612_dp, 240.0_dp, 240.056592411_dp, 0.000002740_dp, 241.0_dp, 241.060330_dp, 0.000210_dp, 242.0_dp, 242.062931_dp, 0.000215_dp, 243.0_dp, 243.067075_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: V_naw = naw_type(29, transpose(reshape([39.0_dp, 39.024230_dp, 0.000429_dp, 40.0_dp, 40.013387_dp, 0.000322_dp, 41.0_dp, 41.000333_dp, 0.000215_dp, 42.0_dp, 41.991820_dp, 0.000210_dp, 43.0_dp, 42.980766000_dp, 0.000046000_dp, 44.0_dp, 43.974440977_dp, 0.000007799_dp, 45.0_dp, 44.965768498_dp, 0.000000926_dp, 46.0_dp, 45.960197389_dp, 0.000000143_dp, 47.0_dp, 46.954903558_dp, 0.000000118_dp, 48.0_dp, 47.952250900_dp, 0.000001043_dp, 49.0_dp, 48.948510509_dp, 0.000000884_dp, 50.0_dp, 49.947156681_dp, 0.000000099_dp, 51.0_dp, 50.943957664_dp, 0.000000104_dp, 52.0_dp, 51.944773636_dp, 0.000000170_dp, 53.0_dp, 52.944334940_dp, 0.000003331_dp, 54.0_dp, 53.946432009_dp, 0.000012001_dp, 55.0_dp, 54.947262000_dp, 0.000029000_dp, 56.0_dp, 55.950420082_dp, 0.000188819_dp, 57.0_dp, 56.952297000_dp, 0.000091000_dp, 58.0_dp, 57.956595985_dp, 0.000102862_dp, 59.0_dp, 58.959623343_dp, 0.000147505_dp, 60.0_dp, 59.964479215_dp, 0.000195327_dp, 61.0_dp, 60.967603529_dp, 0.000252196_dp, 62.0_dp, 61.972932556_dp, 0.000283723_dp, 63.0_dp, 62.976661000_dp, 0.000365000_dp, 64.0_dp, 63.982480_dp, 0.000429_dp, 65.0_dp, 64.986999_dp, 0.000537_dp, 66.0_dp, 65.993237_dp, 0.000537_dp, 67.0_dp, 66.998128_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: W_naw = naw_type(41, transpose(reshape([157.0_dp, 156.978862_dp, 0.000429_dp, 158.0_dp, 157.974565_dp, 0.000322_dp, 159.0_dp, 158.972696_dp, 0.000322_dp, 160.0_dp, 159.968513946_dp, 0.000160828_dp, 161.0_dp, 160.967249_dp, 0.000215_dp, 162.0_dp, 161.963500341_dp, 0.000018955_dp, 163.0_dp, 162.962524251_dp, 0.000062722_dp, 164.0_dp, 163.958952445_dp, 0.000010384_dp, 165.0_dp, 164.958280663_dp, 0.000027649_dp, 166.0_dp, 165.955031952_dp, 0.000010159_dp, 167.0_dp, 166.954811080_dp, 0.000020078_dp, 168.0_dp, 167.951805459_dp, 0.000014233_dp, 169.0_dp, 168.951778689_dp, 0.000016571_dp, 170.0_dp, 169.949231235_dp, 0.000014165_dp, 171.0_dp, 170.949451000_dp, 0.000030000_dp, 172.0_dp, 171.947292000_dp, 0.000030000_dp, 173.0_dp, 172.947689000_dp, 0.000030000_dp, 174.0_dp, 173.946079000_dp, 0.000030000_dp, 175.0_dp, 174.946717000_dp, 0.000030000_dp, 176.0_dp, 175.945634000_dp, 0.000030000_dp, 177.0_dp, 176.946643000_dp, 0.000030000_dp, 178.0_dp, 177.945885791_dp, 0.000016316_dp, 179.0_dp, 178.947079378_dp, 0.000015644_dp, 180.0_dp, 179.946713304_dp, 0.000001545_dp, 181.0_dp, 180.948218733_dp, 0.000001554_dp, 182.0_dp, 181.948205636_dp, 0.000000799_dp, 183.0_dp, 182.950224416_dp, 0.000000798_dp, 184.0_dp, 183.950933180_dp, 0.000000792_dp, 185.0_dp, 184.953421206_dp, 0.000000793_dp, 186.0_dp, 185.954365140_dp, 0.000001302_dp, 187.0_dp, 186.957161249_dp, 0.000001302_dp, 188.0_dp, 187.958488325_dp, 0.000003316_dp, 189.0_dp, 188.961557_dp, 0.000215_dp, 190.0_dp, 189.963103542_dp, 0.000037993_dp, 191.0_dp, 190.966531000_dp, 0.000045000_dp, 192.0_dp, 191.968202_dp, 0.000215_dp, 193.0_dp, 192.971884_dp, 0.000215_dp, 194.0_dp, 193.973795_dp, 0.000322_dp, 195.0_dp, 194.977735_dp, 0.000322_dp, 196.0_dp, 195.979882_dp, 0.000429_dp, 197.0_dp, 196.984036_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Xe_naw = naw_type(43, transpose(reshape([108.0_dp, 107.954232285_dp, 0.000407406_dp, 109.0_dp, 108.950434955_dp, 0.000322178_dp, 110.0_dp, 109.944258759_dp, 0.000108415_dp, 111.0_dp, 110.941470_dp, 0.000124_dp, 112.0_dp, 111.935559068_dp, 0.000008891_dp, 113.0_dp, 112.933221663_dp, 0.000007342_dp, 114.0_dp, 113.927980329_dp, 0.000012000_dp, 115.0_dp, 114.926293943_dp, 0.000013000_dp, 116.0_dp, 115.921580955_dp, 0.000013974_dp, 117.0_dp, 116.920358758_dp, 0.000011141_dp, 118.0_dp, 117.916178678_dp, 0.000011141_dp, 119.0_dp, 118.915410641_dp, 0.000011141_dp, 120.0_dp, 119.911784267_dp, 0.000012686_dp, 121.0_dp, 120.911453012_dp, 0.000010995_dp, 122.0_dp, 121.908367655_dp, 0.000011928_dp, 123.0_dp, 122.908482235_dp, 0.000010234_dp, 124.0_dp, 123.905885174_dp, 0.000001457_dp, 125.0_dp, 124.906387640_dp, 0.000001518_dp, 126.0_dp, 125.904297422_dp, 0.000000006_dp, 127.0_dp, 126.905183636_dp, 0.000004388_dp, 128.0_dp, 127.90353075341_dp, 0.00000000558_dp, 129.0_dp, 128.90478085742_dp, 0.00000000542_dp, 130.0_dp, 129.903509346_dp, 0.000000010_dp, 131.0_dp, 130.90508412808_dp, 0.00000000549_dp, 132.0_dp, 131.90415508346_dp, 0.00000000544_dp, 133.0_dp, 132.905910748_dp, 0.000002576_dp, 134.0_dp, 133.905393030_dp, 0.000000006_dp, 135.0_dp, 134.907231441_dp, 0.000003938_dp, 136.0_dp, 135.907214474_dp, 0.000000007_dp, 137.0_dp, 136.911557771_dp, 0.000000111_dp, 138.0_dp, 137.914146268_dp, 0.000003010_dp, 139.0_dp, 138.918792200_dp, 0.000002300_dp, 140.0_dp, 139.921645814_dp, 0.000002500_dp, 141.0_dp, 140.926787181_dp, 0.000003100_dp, 142.0_dp, 141.929973095_dp, 0.000002900_dp, 143.0_dp, 142.935369550_dp, 0.000005000_dp, 144.0_dp, 143.938945076_dp, 0.000005700_dp, 145.0_dp, 144.944719631_dp, 0.000012000_dp, 146.0_dp, 145.948518245_dp, 0.000026000_dp, 147.0_dp, 146.954482_dp, 0.000215_dp, 148.0_dp, 147.958508_dp, 0.000322_dp, 149.0_dp, 148.964573_dp, 0.000322_dp, 150.0_dp, 149.968878_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Y_naw = naw_type(35, transpose(reshape([75.0_dp, 74.965840_dp, 0.000322_dp, 76.0_dp, 75.958937_dp, 0.000322_dp, 77.0_dp, 76.950146_dp, 0.000218_dp, 78.0_dp, 77.943990_dp, 0.000320_dp, 79.0_dp, 78.937946000_dp, 0.000086000_dp, 80.0_dp, 79.934354750_dp, 0.000006701_dp, 81.0_dp, 80.929454283_dp, 0.000005802_dp, 82.0_dp, 81.926930189_dp, 0.000005902_dp, 83.0_dp, 82.922484026_dp, 0.000020000_dp, 84.0_dp, 83.920671060_dp, 0.000004615_dp, 85.0_dp, 84.916433039_dp, 0.000020360_dp, 86.0_dp, 85.914886095_dp, 0.000015182_dp, 87.0_dp, 86.910876100_dp, 0.000001210_dp, 88.0_dp, 87.909501274_dp, 0.000001610_dp, 89.0_dp, 88.905838156_dp, 0.000000363_dp, 90.0_dp, 89.907141749_dp, 0.000000379_dp, 91.0_dp, 90.907298048_dp, 0.000001978_dp, 92.0_dp, 91.908945752_dp, 0.000009798_dp, 93.0_dp, 92.909578434_dp, 0.000011259_dp, 94.0_dp, 93.911592062_dp, 0.000006849_dp, 95.0_dp, 94.912819697_dp, 0.000007277_dp, 96.0_dp, 95.915909305_dp, 0.000006521_dp, 97.0_dp, 96.918286702_dp, 0.000007201_dp, 98.0_dp, 97.922394841_dp, 0.000008501_dp, 99.0_dp, 98.924160839_dp, 0.000007101_dp, 100.0_dp, 99.927727678_dp, 0.000012000_dp, 101.0_dp, 100.930160817_dp, 0.000007601_dp, 102.0_dp, 101.934328471_dp, 0.000004381_dp, 103.0_dp, 102.937243796_dp, 0.000012029_dp, 104.0_dp, 103.941943_dp, 0.000215_dp, 105.0_dp, 104.945711_dp, 0.000429_dp, 106.0_dp, 105.950842_dp, 0.000537_dp, 107.0_dp, 106.954943_dp, 0.000537_dp, 108.0_dp, 107.960515_dp, 0.000644_dp, 109.0_dp, 108.965131_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Yb_naw = naw_type(38, transpose(reshape([148.0_dp, 147.967547_dp, 0.000429_dp, 149.0_dp, 148.964219_dp, 0.000322_dp, 150.0_dp, 149.958314_dp, 0.000322_dp, 151.0_dp, 150.955402453_dp, 0.000322591_dp, 152.0_dp, 151.950326699_dp, 0.000160718_dp, 153.0_dp, 152.949372_dp, 0.000215_dp, 154.0_dp, 153.946395696_dp, 0.000018551_dp, 155.0_dp, 154.945783216_dp, 0.000017820_dp, 156.0_dp, 155.942817096_dp, 0.000009992_dp, 157.0_dp, 156.942651368_dp, 0.000011706_dp, 158.0_dp, 157.939871202_dp, 0.000008559_dp, 159.0_dp, 158.940060257_dp, 0.000018874_dp, 160.0_dp, 159.937559210_dp, 0.000005900_dp, 161.0_dp, 160.937912384_dp, 0.000016211_dp, 162.0_dp, 161.935779342_dp, 0.000016213_dp, 163.0_dp, 162.936345406_dp, 0.000016215_dp, 164.0_dp, 163.934500743_dp, 0.000016217_dp, 165.0_dp, 164.935270241_dp, 0.000028490_dp, 166.0_dp, 165.933876439_dp, 0.000007515_dp, 167.0_dp, 166.934954069_dp, 0.000004251_dp, 168.0_dp, 167.933891297_dp, 0.000000100_dp, 169.0_dp, 168.935184208_dp, 0.000000191_dp, 170.0_dp, 169.934767242_dp, 0.000000011_dp, 171.0_dp, 170.936331515_dp, 0.000000013_dp, 172.0_dp, 171.936386654_dp, 0.000000014_dp, 173.0_dp, 172.938216211_dp, 0.000000012_dp, 174.0_dp, 173.938867545_dp, 0.000000011_dp, 175.0_dp, 174.941281907_dp, 0.000000076_dp, 176.0_dp, 175.942574706_dp, 0.000000015_dp, 177.0_dp, 176.945263846_dp, 0.000000236_dp, 178.0_dp, 177.946669400_dp, 0.000007072_dp, 179.0_dp, 178.949930_dp, 0.000215_dp, 180.0_dp, 179.951991_dp, 0.000322_dp, 181.0_dp, 180.955890_dp, 0.000320_dp, 182.0_dp, 181.958239_dp, 0.000429_dp, 183.0_dp, 182.962426_dp, 0.000429_dp, 184.0_dp, 183.965002_dp, 0.000540_dp, 185.0_dp, 184.969425_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Zn_naw = naw_type(33, transpose(reshape([54.0_dp, 53.993879_dp, 0.000232_dp, 55.0_dp, 54.984681_dp, 0.000429_dp, 56.0_dp, 55.972743_dp, 0.000429_dp, 57.0_dp, 56.965056_dp, 0.000215_dp, 58.0_dp, 57.954590296_dp, 0.000053678_dp, 59.0_dp, 58.949311886_dp, 0.000000814_dp, 60.0_dp, 59.941841317_dp, 0.000000588_dp, 61.0_dp, 60.939506964_dp, 0.000017068_dp, 62.0_dp, 61.934333359_dp, 0.000000660_dp, 63.0_dp, 62.933211140_dp, 0.000001674_dp, 64.0_dp, 63.929141776_dp, 0.000000690_dp, 65.0_dp, 64.929240534_dp, 0.000000693_dp, 66.0_dp, 65.926033639_dp, 0.000000798_dp, 67.0_dp, 66.927127422_dp, 0.000000810_dp, 68.0_dp, 67.924844232_dp, 0.000000835_dp, 69.0_dp, 68.926550360_dp, 0.000000853_dp, 70.0_dp, 69.925319175_dp, 0.000002058_dp, 71.0_dp, 70.927719578_dp, 0.000002849_dp, 72.0_dp, 71.926842806_dp, 0.000002300_dp, 73.0_dp, 72.929582580_dp, 0.000002000_dp, 74.0_dp, 73.929407260_dp, 0.000002700_dp, 75.0_dp, 74.932840244_dp, 0.000002100_dp, 76.0_dp, 75.933114956_dp, 0.000001562_dp, 77.0_dp, 76.936887197_dp, 0.000002117_dp, 78.0_dp, 77.938289204_dp, 0.000002086_dp, 79.0_dp, 78.942638067_dp, 0.000002388_dp, 80.0_dp, 79.944552929_dp, 0.000002774_dp, 81.0_dp, 80.950402617_dp, 0.000005400_dp, 82.0_dp, 81.954574097_dp, 0.000003300_dp, 83.0_dp, 82.961041_dp, 0.000322_dp, 84.0_dp, 83.965829_dp, 0.000429_dp, 85.0_dp, 84.973054_dp, 0.000537_dp, 86.0_dp, 85.978463_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Zr_naw = naw_type(37, transpose(reshape([77.0_dp, 76.966076_dp, 0.000429_dp, 78.0_dp, 77.956146_dp, 0.000429_dp, 79.0_dp, 78.949790_dp, 0.000322_dp, 80.0_dp, 79.941213_dp, 0.000322_dp, 81.0_dp, 80.938245000_dp, 0.000099000_dp, 82.0_dp, 81.931707497_dp, 0.000001700_dp, 83.0_dp, 82.929240926_dp, 0.000006902_dp, 84.0_dp, 83.923325663_dp, 0.000005903_dp, 85.0_dp, 84.921443199_dp, 0.000006902_dp, 86.0_dp, 85.916296814_dp, 0.000003827_dp, 87.0_dp, 86.914817338_dp, 0.000004450_dp, 88.0_dp, 87.910220715_dp, 0.000005800_dp, 89.0_dp, 88.908879751_dp, 0.000002983_dp, 90.0_dp, 89.904698755_dp, 0.000000126_dp, 91.0_dp, 90.905640205_dp, 0.000000101_dp, 92.0_dp, 91.905035336_dp, 0.000000101_dp, 93.0_dp, 92.906470661_dp, 0.000000489_dp, 94.0_dp, 93.906312523_dp, 0.000000175_dp, 95.0_dp, 94.908040276_dp, 0.000000933_dp, 96.0_dp, 95.908277615_dp, 0.000000122_dp, 97.0_dp, 96.910963802_dp, 0.000000130_dp, 98.0_dp, 97.912740448_dp, 0.000009065_dp, 99.0_dp, 98.916675081_dp, 0.000011271_dp, 100.0_dp, 99.918010499_dp, 0.000008742_dp, 101.0_dp, 100.921458454_dp, 0.000008944_dp, 102.0_dp, 101.923154181_dp, 0.000009401_dp, 103.0_dp, 102.927204054_dp, 0.000009900_dp, 104.0_dp, 103.929449193_dp, 0.000010000_dp, 105.0_dp, 104.934021832_dp, 0.000013000_dp, 106.0_dp, 105.936930_dp, 0.000215_dp, 107.0_dp, 106.942007_dp, 0.000322_dp, 108.0_dp, 107.945303_dp, 0.000429_dp, 109.0_dp, 108.950907_dp, 0.000537_dp, 110.0_dp, 109.954675_dp, 0.000537_dp, 111.0_dp, 110.960837_dp, 0.000644_dp, 112.0_dp, 111.965196_dp, 0.000751_dp, 113.0_dp, 112.971723_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50])))","tags":"","loc":"module/ciaaw__naw.html"},{"title":"ciaaw__api – ciaaw","text":"API\nSee specs Uses ciaaw__pte ciaaw__types ieee_arithmetic ciaaw__version ciaaw__common module~~ciaaw__api~~UsesGraph module~ciaaw__api ciaaw__api ieee_arithmetic ieee_arithmetic module~ciaaw__api->ieee_arithmetic module~ciaaw__common ciaaw__common module~ciaaw__api->module~ciaaw__common module~ciaaw__pte ciaaw__pte module~ciaaw__api->module~ciaaw__pte module~ciaaw__types ciaaw__types module~ciaaw__api->module~ciaaw__types module~ciaaw__version ciaaw__version module~ciaaw__api->module~ciaaw__version module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__pte->module~ciaaw__common module~ciaaw__pte->module~ciaaw__types module~ciaaw__ice ciaaw__ice module~ciaaw__pte->module~ciaaw__ice module~ciaaw__naw ciaaw__naw module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type module~ciaaw__ice->module~ciaaw__common module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw->module~ciaaw__common module~ciaaw__naw->module~ciaaw__types module~ciaaw__saw->module~ciaaw__common module~ciaaw__saw->module~ciaaw__types Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__api~~UsedByGraph module~ciaaw__api ciaaw__api module~ciaaw ciaaw module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Functions public  function get_ice (s, A, uncertainty) result(res) Get the isotopic composition of the element s for the mass number A. \nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if the provided symbol or A are incorrect or -1 if the element does not have an ICE. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. integer(kind=int32), intent(in) :: A Mass number. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) public  function get_ice_values (s) result(res) Get the (n, 3) values array. See ice_type .\nReturns a null pointer if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value real(kind=dp), pointer, (:,:) public  function get_naw (s, A, uncertainty) result(res) Get the atomic weight of the nuclide s for the mass number A. \nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if provided symbol or A are incorrect \nor -1 if the element does not have an NAW. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. integer(kind=int32), intent(in) :: A Mass number. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) public  function get_nice (s) result(res) Get the number of isotopes in ICE.\nReturns -1 if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value integer(kind=int32) public  function get_nnaw (s) result(res) Get the number of nuclides in NAW.\nReturns -1 if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value integer(kind=int32) public  function get_saw (s, abridged, uncertainty) result(res) Get the standard atomic weight. By default the abridged value is provided.\nIf the non abridged value is desired, set abridged to false.\nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if provided symbol is incorrect or -1 if the element does not have a SAW. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. logical, intent(in), optional :: abridged Flag for returning the abridged standard atomic weight. Default to TRUE. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) public  function get_version () result(fptr) Get the version Arguments None Return Value character(len=:), pointer Fortran pointer to a string indicating the version..","tags":"","loc":"module/ciaaw__api.html"},{"title":"ciaaw__version – ciaaw","text":"Version Used by module~~ciaaw__version~~UsedByGraph module~ciaaw__version ciaaw__version module~ciaaw__api ciaaw__api module~ciaaw__api->module~ciaaw__version module~ciaaw ciaaw module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial character(len=*), public, parameter :: version = \"0.5.0dev0\"","tags":"","loc":"module/ciaaw__version.html"},{"title":"ciaaw – ciaaw","text":"Main module for the CIAAW library. Uses ciaaw__pte ciaaw__api ciaaw__capi module~~ciaaw~~UsesGraph module~ciaaw ciaaw module~ciaaw__api ciaaw__api module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__pte ciaaw__pte module~ciaaw->module~ciaaw__pte module~ciaaw__api->module~ciaaw__pte ieee_arithmetic ieee_arithmetic module~ciaaw__api->ieee_arithmetic module~ciaaw__common ciaaw__common module~ciaaw__api->module~ciaaw__common module~ciaaw__types ciaaw__types module~ciaaw__api->module~ciaaw__types module~ciaaw__version ciaaw__version module~ciaaw__api->module~ciaaw__version module~ciaaw__capi->module~ciaaw__api iso_c_binding iso_c_binding module~ciaaw__capi->iso_c_binding module~ciaaw__capi->module~ciaaw__common module~ciaaw__pte->module~ciaaw__common module~ciaaw__ice ciaaw__ice module~ciaaw__pte->module~ciaaw__ice module~ciaaw__naw ciaaw__naw module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__pte->module~ciaaw__types module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__ice->module~ciaaw__common module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw->module~ciaaw__common module~ciaaw__naw->module~ciaaw__types module~ciaaw__saw->module~ciaaw__common module~ciaaw__saw->module~ciaaw__types module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"module/ciaaw.html"},{"title":"ciaaw__saw – ciaaw","text":"Ciaaw saw - Autogenerated\nSee specs Uses ciaaw__types ciaaw__common module~~ciaaw__saw~~UsesGraph module~ciaaw__saw ciaaw__saw module~ciaaw__common ciaaw__common module~ciaaw__saw->module~ciaaw__common module~ciaaw__types ciaaw__types module~ciaaw__saw->module~ciaaw__types ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__saw~~UsedByGraph module~ciaaw__saw ciaaw__saw module~ciaaw__pte ciaaw__pte module~ciaaw__pte->module~ciaaw__saw module~ciaaw ciaaw module~ciaaw->module~ciaaw__pte module~ciaaw__api ciaaw__api module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__api->module~ciaaw__pte module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial type( saw_type ), public, parameter :: Ac_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Ac type( saw_type ), public, parameter :: Ag_saw = saw_type(-1.0_dp, -1.0_dp, 107.8682_dp, 0.0002_dp, 107.87_dp, 0.01_dp) Ag type( saw_type ), public, parameter :: Al_saw = saw_type(-1.0_dp, -1.0_dp, 26.9815384_dp, 0.0000003_dp, 26.982_dp, 0.001_dp) Al type( saw_type ), public, parameter :: Am_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Am type( saw_type ), public, parameter :: Ar_saw = saw_type(39.792_dp, 39.963_dp, -1.0_dp, -1.0_dp, 39.95_dp, 0.16_dp) Ar type( saw_type ), public, parameter :: As_saw = saw_type(-1.0_dp, -1.0_dp, 74.921595_dp, 0.000006_dp, 74.922_dp, 0.001_dp) As type( saw_type ), public, parameter :: At_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) At type( saw_type ), public, parameter :: Au_saw = saw_type(-1.0_dp, -1.0_dp, 196.966570_dp, 0.000004_dp, 196.97_dp, 0.01_dp) Au type( saw_type ), public, parameter :: B_saw = saw_type(10.806_dp, 10.821_dp, -1.0_dp, -1.0_dp, 10.81_dp, 0.02_dp) B type( saw_type ), public, parameter :: Ba_saw = saw_type(-1.0_dp, -1.0_dp, 137.327_dp, 0.007_dp, 137.33_dp, 0.01_dp) Ba type( saw_type ), public, parameter :: Be_saw = saw_type(-1.0_dp, -1.0_dp, 9.0121831_dp, 0.0000005_dp, 9.0122_dp, 0.00001_dp) Be type( saw_type ), public, parameter :: Bh_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Bh type( saw_type ), public, parameter :: Bi_saw = saw_type(-1.0_dp, -1.0_dp, 208.98040_dp, 0.00001_dp, 208.98_dp, 0.01_dp) Bi type( saw_type ), public, parameter :: Bk_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Bk type( saw_type ), public, parameter :: Br_saw = saw_type(79.901_dp, 79.907_dp, -1.0_dp, -1.0_dp, 79.904_dp, 0.003_dp) Br type( saw_type ), public, parameter :: C_saw = saw_type(12.0096_dp, 12.0116_dp, -1.0_dp, -1.0_dp, 12.011_dp, 0.002_dp) C type( saw_type ), public, parameter :: Ca_saw = saw_type(-1.0_dp, -1.0_dp, 40.078_dp, 0.004_dp, 40.078_dp, 0.004_dp) Ca type( saw_type ), public, parameter :: Cd_saw = saw_type(-1.0_dp, -1.0_dp, 112.414_dp, 0.004_dp, 112.41_dp, 0.01_dp) Cd type( saw_type ), public, parameter :: Ce_saw = saw_type(-1.0_dp, -1.0_dp, 140.116_dp, 0.001_dp, 140.12_dp, 0.01_dp) Ce type( saw_type ), public, parameter :: Cf_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Cf type( saw_type ), public, parameter :: Cl_saw = saw_type(35.446_dp, 35.457_dp, -1.0_dp, -1.0_dp, 35.45_dp, 0.01_dp) Cl type( saw_type ), public, parameter :: Cm_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Cm type( saw_type ), public, parameter :: Cn_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Cn type( saw_type ), public, parameter :: Co_saw = saw_type(-1.0_dp, -1.0_dp, 58.933194_dp, 0.000003_dp, 58.933_dp, 0.001_dp) Co type( saw_type ), public, parameter :: Cr_saw = saw_type(-1.0_dp, -1.0_dp, 51.9961_dp, 0.0006_dp, 51.996_dp, 0.001_dp) Cr type( saw_type ), public, parameter :: Cs_saw = saw_type(-1.0_dp, -1.0_dp, 132.90545196_dp, 0.00000006_dp, 132.91_dp, 0.01_dp) Cs type( saw_type ), public, parameter :: Cu_saw = saw_type(-1.0_dp, -1.0_dp, 63.546_dp, 0.003_dp, 63.546_dp, 0.003_dp) Cu type( saw_type ), public, parameter :: Db_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Db type( saw_type ), public, parameter :: Ds_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Ds type( saw_type ), public, parameter :: Dy_saw = saw_type(-1.0_dp, -1.0_dp, 162.500_dp, 0.001_dp, 162.50_dp, 0.01_dp) Dy type( saw_type ), public, parameter :: Er_saw = saw_type(-1.0_dp, -1.0_dp, 167.259_dp, 0.003_dp, 167.26_dp, 0.01_dp) Er type( saw_type ), public, parameter :: Es_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Es type( saw_type ), public, parameter :: Eu_saw = saw_type(-1.0_dp, -1.0_dp, 151.964_dp, 0.001_dp, 151.96_dp, 0.01_dp) Eu type( saw_type ), public, parameter :: F_saw = saw_type(-1.0_dp, -1.0_dp, 18.998403162_dp, 0.000000005_dp, 18.998_dp, 0.001_dp) F type( saw_type ), public, parameter :: Fe_saw = saw_type(-1.0_dp, -1.0_dp, 55.845_dp, 0.002_dp, 55.845_dp, 0.002_dp) Fe type( saw_type ), public, parameter :: Fl_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Fl type( saw_type ), public, parameter :: Fm_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Fm type( saw_type ), public, parameter :: Fr_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Fr type( saw_type ), public, parameter :: Ga_saw = saw_type(-1.0_dp, -1.0_dp, 69.723_dp, 0.001_dp, 69.723_dp, 0.001_dp) Ga type( saw_type ), public, parameter :: Gd_saw = saw_type(-1.0_dp, -1.0_dp, 157.25_dp, 0.03_dp, 157.25_dp, 0.03_dp) Gd type( saw_type ), public, parameter :: Ge_saw = saw_type(-1.0_dp, -1.0_dp, 72.630_dp, 0.008_dp, 72.630_dp, 0.008_dp) Ge type( saw_type ), public, parameter :: H_saw = saw_type(1.00784_dp, 1.00811_dp, -1.0_dp, -1.0_dp, 1.0080_dp, 0.0002_dp) H type( saw_type ), public, parameter :: He_saw = saw_type(-1.0_dp, -1.0_dp, 4.002602_dp, 0.000002_dp, 4.0026_dp, 0.0001_dp) He type( saw_type ), public, parameter :: Hf_saw = saw_type(-1.0_dp, -1.0_dp, 178.486_dp, 0.006_dp, 178.49_dp, 0.01_dp) Hf type( saw_type ), public, parameter :: Hg_saw = saw_type(-1.0_dp, -1.0_dp, 200.592_dp, 0.003_dp, 200.59_dp, 0.01_dp) Hg type( saw_type ), public, parameter :: Ho_saw = saw_type(-1.0_dp, -1.0_dp, 164.930329_dp, 0.000005_dp, 164.93_dp, 0.01_dp) Ho type( saw_type ), public, parameter :: Hs_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Hs type( saw_type ), public, parameter :: I_saw = saw_type(-1.0_dp, -1.0_dp, 126.90447_dp, 0.00003_dp, 126.90_dp, 0.01_dp) I type( saw_type ), public, parameter :: In_saw = saw_type(-1.0_dp, -1.0_dp, 114.818_dp, 0.001_dp, 114.82_dp, 0.01_dp) In type( saw_type ), public, parameter :: Ir_saw = saw_type(-1.0_dp, -1.0_dp, 192.217_dp, 0.002_dp, 192.22_dp, 0.01_dp) Ir type( saw_type ), public, parameter :: K_saw = saw_type(-1.0_dp, -1.0_dp, 39.0983_dp, 0.0001_dp, 39.098_dp, 0.001_dp) K type( saw_type ), public, parameter :: Kr_saw = saw_type(-1.0_dp, -1.0_dp, 83.798_dp, 0.002_dp, 83.798_dp, 0.002_dp) Kr type( saw_type ), public, parameter :: La_saw = saw_type(-1.0_dp, -1.0_dp, 138.90547_dp, 0.00007_dp, 138.91_dp, 0.01_dp) La type( saw_type ), public, parameter :: Li_saw = saw_type(6.938_dp, 6.997_dp, -1.0_dp, -1.0_dp, 6.94_dp, 0.06_dp) Li type( saw_type ), public, parameter :: Lr_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Lr type( saw_type ), public, parameter :: Lu_saw = saw_type(-1.0_dp, -1.0_dp, 174.9668_dp, 0.0001_dp, 174.97_dp, 0.01_dp) Lu type( saw_type ), public, parameter :: Lv_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Lv type( saw_type ), public, parameter :: Mc_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Mc type( saw_type ), public, parameter :: Md_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Md type( saw_type ), public, parameter :: Mg_saw = saw_type(24.304_dp, 24.307_dp, -1.0_dp, -1.0_dp, 24.305_dp, 0.002_dp) Mg type( saw_type ), public, parameter :: Mn_saw = saw_type(-1.0_dp, -1.0_dp, 54.938043_dp, 0.000002_dp, 54.938_dp, 0.001_dp) Mn type( saw_type ), public, parameter :: Mo_saw = saw_type(-1.0_dp, -1.0_dp, 95.95_dp, 0.01_dp, 95.95_dp, 0.01_dp) Mo type( saw_type ), public, parameter :: Mt_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Mt type( saw_type ), public, parameter :: N_saw = saw_type(14.00643_dp, 14.00728_dp, -1.0_dp, -1.0_dp, 14.007_dp, 0.001_dp) N type( saw_type ), public, parameter :: Na_saw = saw_type(-1.0_dp, -1.0_dp, 22.98976928_dp, 0.00000002_dp, 22.990_dp, 0.001_dp) Na type( saw_type ), public, parameter :: Nb_saw = saw_type(-1.0_dp, -1.0_dp, 92.90637_dp, 0.00001_dp, 92.906_dp, 0.001_dp) Nb type( saw_type ), public, parameter :: Nd_saw = saw_type(-1.0_dp, -1.0_dp, 144.242_dp, 0.003_dp, 144.24_dp, 0.01_dp) Nd type( saw_type ), public, parameter :: Ne_saw = saw_type(-1.0_dp, -1.0_dp, 20.1797_dp, 0.0006_dp, 20.180_dp, 0.001_dp) Ne type( saw_type ), public, parameter :: Nh_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Nh type( saw_type ), public, parameter :: Ni_saw = saw_type(-1.0_dp, -1.0_dp, 58.6934_dp, 0.0004_dp, 58.693_dp, 0.001_dp) Ni type( saw_type ), public, parameter :: No_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) No type( saw_type ), public, parameter :: Np_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Np type( saw_type ), public, parameter :: O_saw = saw_type(15.99903_dp, 15.99977_dp, -1.0_dp, -1.0_dp, 15.999_dp, 0.001_dp) O type( saw_type ), public, parameter :: Og_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Og type( saw_type ), public, parameter :: Os_saw = saw_type(-1.0_dp, -1.0_dp, 190.23_dp, 0.03_dp, 190.23_dp, 0.03_dp) Os type( saw_type ), public, parameter :: P_saw = saw_type(-1.0_dp, -1.0_dp, 30.973761998_dp, 0.000000005_dp, 30.974_dp, 0.001_dp) P type( saw_type ), public, parameter :: Pa_saw = saw_type(-1.0_dp, -1.0_dp, 231.03588_dp, 0.00001_dp, 231.04_dp, 0.01_dp) Pa type( saw_type ), public, parameter :: Pb_saw = saw_type(206.14_dp, 207.94_dp, -1.0_dp, -1.0_dp, 207.2_dp, 1.1_dp) Pb type( saw_type ), public, parameter :: Pd_saw = saw_type(-1.0_dp, -1.0_dp, 106.42_dp, 0.01_dp, 106.42_dp, 0.01_dp) Pd type( saw_type ), public, parameter :: Pm_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Pm type( saw_type ), public, parameter :: Po_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Po type( saw_type ), public, parameter :: Pr_saw = saw_type(-1.0_dp, -1.0_dp, 140.90766_dp, 0.00001_dp, 140.91_dp, 0.01_dp) Pr type( saw_type ), public, parameter :: Pt_saw = saw_type(-1.0_dp, -1.0_dp, 195.084_dp, 0.009_dp, 195.08_dp, 0.02_dp) Pt type( saw_type ), public, parameter :: Pu_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Pu type( saw_type ), public, parameter :: Ra_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Ra type( saw_type ), public, parameter :: Rb_saw = saw_type(-1.0_dp, -1.0_dp, 85.4678_dp, 0.0003_dp, 85.468_dp, 0.001_dp) Rb type( saw_type ), public, parameter :: Re_saw = saw_type(-1.0_dp, -1.0_dp, 186.207_dp, 0.001_dp, 186.21_dp, 0.01_dp) Re type( saw_type ), public, parameter :: Rf_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Rf type( saw_type ), public, parameter :: Rg_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Rg type( saw_type ), public, parameter :: Rh_saw = saw_type(-1.0_dp, -1.0_dp, 102.90549_dp, 0.00002_dp, 102.91_dp, 0.01_dp) Rh type( saw_type ), public, parameter :: Rn_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Rn type( saw_type ), public, parameter :: Ru_saw = saw_type(-1.0_dp, -1.0_dp, 101.07_dp, 0.02_dp, 101.07_dp, 0.02_dp) Ru type( saw_type ), public, parameter :: S_saw = saw_type(32.059_dp, 32.076_dp, -1.0_dp, -1.0_dp, 32.06_dp, 0.02_dp) S type( saw_type ), public, parameter :: Sb_saw = saw_type(-1.0_dp, -1.0_dp, 121.760_dp, 0.001_dp, 121.76_dp, 0.01_dp) Sb type( saw_type ), public, parameter :: Sc_saw = saw_type(-1.0_dp, -1.0_dp, 44.955907_dp, 0.000004_dp, 44.956_dp, 0.001_dp) Sc type( saw_type ), public, parameter :: Se_saw = saw_type(-1.0_dp, -1.0_dp, 78.971_dp, 0.008_dp, 78.971_dp, 0.008_dp) Se type( saw_type ), public, parameter :: Sg_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Sg type( saw_type ), public, parameter :: Si_saw = saw_type(28.084_dp, 28.086_dp, -1.0_dp, -1.0_dp, 28.085_dp, 0.001_dp) Si type( saw_type ), public, parameter :: Sm_saw = saw_type(-1.0_dp, -1.0_dp, 150.36_dp, 0.02_dp, 150.36_dp, 0.02_dp) Sm type( saw_type ), public, parameter :: Sn_saw = saw_type(-1.0_dp, -1.0_dp, 118.70_dp, 0.007_dp, 118.71_dp, 0.01_dp) Sn type( saw_type ), public, parameter :: Sr_saw = saw_type(-1.0_dp, -1.0_dp, 87.62_dp, 0.01_dp, 87.62_dp, 0.01_dp) Sr type( saw_type ), public, parameter :: Ta_saw = saw_type(-1.0_dp, -1.0_dp, 180.94788_dp, 0.00002_dp, 180.95_dp, 0.01_dp) Ta type( saw_type ), public, parameter :: Tb_saw = saw_type(-1.0_dp, -1.0_dp, 158.925354_dp, 0.000007_dp, 158.93_dp, 0.01_dp) Tb type( saw_type ), public, parameter :: Tc_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Tc type( saw_type ), public, parameter :: Te_saw = saw_type(-1.0_dp, -1.0_dp, 127.60_dp, 0.03_dp, 127.60_dp, 0.03_dp) Te type( saw_type ), public, parameter :: Th_saw = saw_type(-1.0_dp, -1.0_dp, 232.0377_dp, 0.0004_dp, 232.04_dp, 0.01_dp) Th type( saw_type ), public, parameter :: Ti_saw = saw_type(-1.0_dp, -1.0_dp, 47.867_dp, 0.001_dp, 47.867_dp, 0.001_dp) Ti type( saw_type ), public, parameter :: Tl_saw = saw_type(204.382_dp, 204.385_dp, -1.0_dp, -1.0_dp, 204.38_dp, 0.01_dp) Tl type( saw_type ), public, parameter :: Tm_saw = saw_type(-1.0_dp, -1.0_dp, 168.934219_dp, 0.000005_dp, 168.93_dp, 0.01_dp) Tm type( saw_type ), public, parameter :: Ts_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Ts type( saw_type ), public, parameter :: U_saw = saw_type(-1.0_dp, -1.0_dp, 238.02891_dp, 0.00003_dp, 238.03_dp, 0.01_dp) U type( saw_type ), public, parameter :: V_saw = saw_type(-1.0_dp, -1.0_dp, 50.9415_dp, 0.0001_dp, 50.942_dp, 0.001_dp) V type( saw_type ), public, parameter :: W_saw = saw_type(-1.0_dp, -1.0_dp, 183.84_dp, 0.01_dp, 183.84_dp, 0.01_dp) W type( saw_type ), public, parameter :: Xe_saw = saw_type(-1.0_dp, -1.0_dp, 131.293_dp, 0.006_dp, 131.29_dp, 0.01_dp) Xe type( saw_type ), public, parameter :: Y_saw = saw_type(-1.0_dp, -1.0_dp, 88.905838_dp, 0.000002_dp, 88.906_dp, 0.001_dp) Y type( saw_type ), public, parameter :: Yb_saw = saw_type(-1.0_dp, -1.0_dp, 173.045_dp, 0.010_dp, 173.05_dp, 0.02_dp) Yb type( saw_type ), public, parameter :: Zn_saw = saw_type(-1.0_dp, -1.0_dp, 65.38_dp, 0.02_dp, 65.38_dp, 0.02_dp) Zn type( saw_type ), public, parameter :: Zr_saw = saw_type(-1.0_dp, -1.0_dp, 91.224_dp, 0.002_dp, 91.224_dp, 0.002_dp) Zr","tags":"","loc":"module/ciaaw__saw.html"},{"title":"ciaaw__common – ciaaw","text":"Common parameters Uses stdlib_kinds stdlib_optval ieee_arithmetic module~~ciaaw__common~~UsesGraph module~ciaaw__common ciaaw__common ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__common~~UsedByGraph module~ciaaw__common ciaaw__common module~ciaaw__api ciaaw__api module~ciaaw__api->module~ciaaw__common module~ciaaw__pte ciaaw__pte module~ciaaw__api->module~ciaaw__pte module~ciaaw__types ciaaw__types module~ciaaw__api->module~ciaaw__types module~ciaaw__capi ciaaw__capi module~ciaaw__capi->module~ciaaw__common module~ciaaw__capi->module~ciaaw__api module~ciaaw__ice ciaaw__ice module~ciaaw__ice->module~ciaaw__common module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw ciaaw__naw module~ciaaw__naw->module~ciaaw__common module~ciaaw__naw->module~ciaaw__types module~ciaaw__pte->module~ciaaw__common module~ciaaw__pte->module~ciaaw__ice module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__pte->module~ciaaw__types module~ciaaw__saw->module~ciaaw__common module~ciaaw__saw->module~ciaaw__types module~ciaaw__types->module~ciaaw__common module~ciaaw ciaaw module~ciaaw->module~ciaaw__api module~ciaaw->module~ciaaw__capi module~ciaaw->module~ciaaw__pte Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"module/ciaaw__common.html"},{"title":"ciaaw__types – ciaaw","text":"Derived types for Standard Atomic Weights. Uses ciaaw__common stdlib_string_type module~~ciaaw__types~~UsesGraph module~ciaaw__types ciaaw__types module~ciaaw__common ciaaw__common module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__types~~UsedByGraph module~ciaaw__types ciaaw__types module~ciaaw__api ciaaw__api module~ciaaw__api->module~ciaaw__types module~ciaaw__pte ciaaw__pte module~ciaaw__api->module~ciaaw__pte module~ciaaw__ice ciaaw__ice module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw ciaaw__naw module~ciaaw__naw->module~ciaaw__types module~ciaaw__pte->module~ciaaw__types module~ciaaw__pte->module~ciaaw__ice module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__saw->module~ciaaw__types module~ciaaw ciaaw module~ciaaw->module~ciaaw__api module~ciaaw->module~ciaaw__pte module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial type( ice_type ), public, parameter :: ice_nan = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) Derived Types type, public :: element_type Derived type representing an element. Components Type Visibility Attributes Name Initial character(len=24), public :: element Element name. type( ice_type ), public :: ice Isotopic composition of the element type( naw_type ), public :: naw Atomic weight of the nuclide type( saw_type ), public :: saw Standard atomic weights character(len=8), public :: symbol Element symbol. integer(kind=int32), public :: z Element atomic number. type, public :: ice_type Derived type reprensenting the isotopic abundance. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: n Number of isotopic compositions real(kind=dp), public :: values (NROWS_ICE,3) Mass numbers, Abundance, Uncertainty type, public :: naw_type Derived type reprensenting the nuclide’s atomic weights. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: n Number of atomic weights real(kind=dp), public :: values (NROWS_NAW,3) Mass numbers, Atomic weight, Uncertainty type, public :: saw_type Derived type representing the standard atomic weight of an element. Components Type Visibility Attributes Name Initial real(kind=dp), public :: asaw Abridged value standard atomic weight. real(kind=dp), public :: asaw_u Abridged uncertainty standard atomic weight. real(kind=dp), public :: saw Value standard atomic weight. real(kind=dp), public :: saw_max Max standard atomic weight. real(kind=dp), public :: saw_min Min standard atomic weight. real(kind=dp), public :: saw_u Uncertainty standard atomic weight.","tags":"","loc":"module/ciaaw__types.html"},{"title":"ciaaw_pte.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_pte.f90~~EfferentGraph sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_pte.f90~~AfferentGraph sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__pte !! Ciaaw pte - Autogenerated !! See [specs](../page/specs/ciaaw_api.html) use ciaaw__common use ciaaw__types use ciaaw__saw use ciaaw__ice use ciaaw__naw private type ( element_type ), parameter , public :: pt ( 118 ) = [& element_type ( \"hydrogen\" , \"H\" , 1 , H_saw , H_ice , H_naw ),& element_type ( \"helium\" , \"He\" , 2 , He_saw , He_ice , He_naw ),& element_type ( \"lithium\" , \"Li\" , 3 , Li_saw , Li_ice , Li_naw ),& element_type ( \"beryllium\" , \"Be\" , 4 , Be_saw , Be_ice , Be_naw ),& element_type ( \"boron\" , \"B\" , 5 , B_saw , B_ice , B_naw ),& element_type ( \"carbon\" , \"C\" , 6 , C_saw , C_ice , C_naw ),& element_type ( \"nitrogen\" , \"N\" , 7 , N_saw , N_ice , N_naw ),& element_type ( \"oxygen\" , \"O\" , 8 , O_saw , O_ice , O_naw ),& element_type ( \"fluorine\" , \"F\" , 9 , F_saw , F_ice , F_naw ),& element_type ( \"neon\" , \"Ne\" , 10 , Ne_saw , Ne_ice , Ne_naw ),& element_type ( \"sodium\" , \"Na\" , 11 , Na_saw , Na_ice , Na_naw ),& element_type ( \"magnesium\" , \"Mg\" , 12 , Mg_saw , Mg_ice , Mg_naw ),& element_type ( \"aluminium\" , \"Al\" , 13 , Al_saw , Al_ice , Al_naw ),& element_type ( \"silicon\" , \"Si\" , 14 , Si_saw , Si_ice , Si_naw ),& element_type ( \"phosphorus\" , \"P\" , 15 , P_saw , P_ice , P_naw ),& element_type ( \"sulfur\" , \"S\" , 16 , S_saw , S_ice , S_naw ),& element_type ( \"chlorine\" , \"Cl\" , 17 , Cl_saw , Cl_ice , Cl_naw ),& element_type ( \"argon\" , \"Ar\" , 18 , Ar_saw , Ar_ice , Ar_naw ),& element_type ( \"potassium\" , \"K\" , 19 , K_saw , K_ice , K_naw ),& element_type ( \"calcium\" , \"Ca\" , 20 , Ca_saw , Ca_ice , Ca_naw ),& element_type ( \"scandium\" , \"Sc\" , 21 , Sc_saw , Sc_ice , Sc_naw ),& element_type ( \"titanium\" , \"Ti\" , 22 , Ti_saw , Ti_ice , Ti_naw ),& element_type ( \"vanadium\" , \"V\" , 23 , V_saw , V_ice , V_naw ),& element_type ( \"chromium\" , \"Cr\" , 24 , Cr_saw , Cr_ice , Cr_naw ),& element_type ( \"manganese\" , \"Mn\" , 25 , Mn_saw , Mn_ice , Mn_naw ),& element_type ( \"iron\" , \"Fe\" , 26 , Fe_saw , Fe_ice , Fe_naw ),& element_type ( \"cobalt\" , \"Co\" , 27 , Co_saw , Co_ice , Co_naw ),& element_type ( \"nickel\" , \"Ni\" , 28 , Ni_saw , Ni_ice , Ni_naw ),& element_type ( \"copper\" , \"Cu\" , 29 , Cu_saw , Cu_ice , Cu_naw ),& element_type ( \"zinc\" , \"Zn\" , 30 , Zn_saw , Zn_ice , Zn_naw ),& element_type ( \"gallium\" , \"Ga\" , 31 , Ga_saw , Ga_ice , Ga_naw ),& element_type ( \"germanium\" , \"Ge\" , 32 , Ge_saw , Ge_ice , Ge_naw ),& element_type ( \"arsenic\" , \"As\" , 33 , As_saw , As_ice , As_naw ),& element_type ( \"selenium\" , \"Se\" , 34 , Se_saw , Se_ice , Se_naw ),& element_type ( \"bromine\" , \"Br\" , 35 , Br_saw , Br_ice , Br_naw ),& element_type ( \"krypton\" , \"Kr\" , 36 , Kr_saw , Kr_ice , Kr_naw ),& element_type ( \"rubidium\" , \"Rb\" , 37 , Rb_saw , Rb_ice , Rb_naw ),& element_type ( \"strontium\" , \"Sr\" , 38 , Sr_saw , Sr_ice , Sr_naw ),& element_type ( \"yttrium\" , \"Y\" , 39 , Y_saw , Y_ice , Y_naw ),& element_type ( \"zirconium\" , \"Zr\" , 40 , Zr_saw , Zr_ice , Zr_naw ),& element_type ( \"nobium\" , \"Nb\" , 41 , Nb_saw , Nb_ice , Nb_naw ),& element_type ( \"molybdenum\" , \"Mo\" , 42 , Mo_saw , Mo_ice , Mo_naw ),& element_type ( \"technetium\" , \"Tc\" , 43 , Tc_saw , Tc_ice , Tc_naw ),& element_type ( \"ruthenium\" , \"Ru\" , 44 , Ru_saw , Ru_ice , Ru_naw ),& element_type ( \"rhodium\" , \"Rh\" , 45 , Rh_saw , Rh_ice , Rh_naw ),& element_type ( \"palladium\" , \"Pd\" , 46 , Pd_saw , Pd_ice , Pd_naw ),& element_type ( \"silver\" , \"Ag\" , 47 , Ag_saw , Ag_ice , Ag_naw ),& element_type ( \"cadmium\" , \"Cd\" , 48 , Cd_saw , Cd_ice , Cd_naw ),& element_type ( \"indium\" , \"In\" , 49 , In_saw , In_ice , In_naw ),& element_type ( \"tin\" , \"Sn\" , 50 , Sn_saw , Sn_ice , Sn_naw ),& element_type ( \"antimony\" , \"Sb\" , 51 , Sb_saw , Sb_ice , Sb_naw ),& element_type ( \"tellurium\" , \"Te\" , 52 , Te_saw , Te_ice , Te_naw ),& element_type ( \"iodine\" , \"I\" , 53 , I_saw , I_ice , I_naw ),& element_type ( \"xenon\" , \"Xe\" , 54 , Xe_saw , Xe_ice , Xe_naw ),& element_type ( \"caesium\" , \"Cs\" , 55 , Cs_saw , Cs_ice , Cs_naw ),& element_type ( \"barium\" , \"Ba\" , 56 , Ba_saw , Ba_ice , Ba_naw ),& element_type ( \"lanthanum\" , \"La\" , 57 , La_saw , La_ice , La_naw ),& element_type ( \"cerium\" , \"Ce\" , 58 , Ce_saw , Ce_ice , Ce_naw ),& element_type ( \"praseodymium\" , \"Pr\" , 59 , Pr_saw , Pr_ice , Pr_naw ),& element_type ( \"neodymium\" , \"Nd\" , 60 , Nd_saw , Nd_ice , Nd_naw ),& element_type ( \"promethium\" , \"Pm\" , 61 , Pm_saw , Pm_ice , Pm_naw ),& element_type ( \"samarium\" , \"Sm\" , 62 , Sm_saw , Sm_ice , Sm_naw ),& element_type ( \"europium\" , \"Eu\" , 63 , Eu_saw , Eu_ice , Eu_naw ),& element_type ( \"gadolinium\" , \"Gd\" , 64 , Gd_saw , Gd_ice , Gd_naw ),& element_type ( \"terbium\" , \"Tb\" , 65 , Tb_saw , Tb_ice , Tb_naw ),& element_type ( \"dysprosium\" , \"Dy\" , 66 , Dy_saw , Dy_ice , Dy_naw ),& element_type ( \"holmium\" , \"Ho\" , 67 , Ho_saw , Ho_ice , Ho_naw ),& element_type ( \"erbium\" , \"Er\" , 68 , Er_saw , Er_ice , Er_naw ),& element_type ( \"thulium\" , \"Tm\" , 69 , Tm_saw , Tm_ice , Tm_naw ),& element_type ( \"ytterbium\" , \"Yb\" , 70 , Yb_saw , Yb_ice , Yb_naw ),& element_type ( \"lutetium\" , \"Lu\" , 71 , Lu_saw , Lu_ice , Lu_naw ),& element_type ( \"hafnium\" , \"Hf\" , 72 , Hf_saw , Hf_ice , Hf_naw ),& element_type ( \"tantalum\" , \"Ta\" , 73 , Ta_saw , Ta_ice , Ta_naw ),& element_type ( \"tungsten\" , \"W\" , 74 , W_saw , W_ice , W_naw ),& element_type ( \"rhenium\" , \"Re\" , 75 , Re_saw , Re_ice , Re_naw ),& element_type ( \"osmium\" , \"Os\" , 76 , Os_saw , Os_ice , Os_naw ),& element_type ( \"iridium\" , \"Ir\" , 77 , Ir_saw , Ir_ice , Ir_naw ),& element_type ( \"platinum\" , \"Pt\" , 78 , Pt_saw , Pt_ice , Pt_naw ),& element_type ( \"gold\" , \"Au\" , 79 , Au_saw , Au_ice , Au_naw ),& element_type ( \"mercury\" , \"Hg\" , 80 , Hg_saw , Hg_ice , Hg_naw ),& element_type ( \"thallium\" , \"Tl\" , 81 , Tl_saw , Tl_ice , Tl_naw ),& element_type ( \"lead\" , \"Pb\" , 82 , Pb_saw , Pb_ice , Pb_naw ),& element_type ( \"bismuth\" , \"Bi\" , 83 , Bi_saw , Bi_ice , Bi_naw ),& element_type ( \"polonium\" , \"Po\" , 84 , Po_saw , Po_ice , Po_naw ),& element_type ( \"astatine\" , \"At\" , 85 , At_saw , At_ice , At_naw ),& element_type ( \"radon\" , \"Rn\" , 86 , Rn_saw , Rn_ice , Rn_naw ),& element_type ( \"francium\" , \"Fr\" , 87 , Fr_saw , Fr_ice , Fr_naw ),& element_type ( \"radium\" , \"Ra\" , 88 , Ra_saw , Ra_ice , Ra_naw ),& element_type ( \"actinium\" , \"Ac\" , 89 , Ac_saw , Ac_ice , Ac_naw ),& element_type ( \"thorium\" , \"Th\" , 90 , Th_saw , Th_ice , Th_naw ),& element_type ( \"protactinium\" , \"Pa\" , 91 , Pa_saw , Pa_ice , Pa_naw ),& element_type ( \"uranium\" , \"U\" , 92 , U_saw , U_ice , U_naw ),& element_type ( \"neptunium\" , \"Np\" , 93 , Np_saw , ice_nan , Np_naw ),& element_type ( \"plutonium\" , \"Pu\" , 94 , Pu_saw , ice_nan , Pu_naw ),& element_type ( \"americium\" , \"Am\" , 95 , Am_saw , ice_nan , Am_naw ),& element_type ( \"curium\" , \"Cm\" , 96 , Cm_saw , ice_nan , Cm_naw ),& element_type ( \"berkelium\" , \"Bk\" , 97 , Bk_saw , ice_nan , Bk_naw ),& element_type ( \"californium\" , \"Cf\" , 98 , Cf_saw , ice_nan , Cf_naw ),& element_type ( \"einsteinium\" , \"Es\" , 99 , Es_saw , ice_nan , Es_naw ),& element_type ( \"fermium\" , \"Fm\" , 100 , Fm_saw , ice_nan , Fm_naw ),& element_type ( \"mendelevium\" , \"Md\" , 101 , Md_saw , ice_nan , Md_naw ),& element_type ( \"nobelium\" , \"No\" , 102 , No_saw , ice_nan , No_naw ),& element_type ( \"lawrencium\" , \"Lr\" , 103 , Lr_saw , ice_nan , Lr_naw ),& element_type ( \"rutherfordium\" , \"Rf\" , 104 , Rf_saw , ice_nan , Rf_naw ),& element_type ( \"dubnium\" , \"Db\" , 105 , Db_saw , ice_nan , Db_naw ),& element_type ( \"seaborgium\" , \"Sg\" , 106 , Sg_saw , ice_nan , Sg_naw ),& element_type ( \"bohrium\" , \"Bh\" , 107 , Bh_saw , ice_nan , Bh_naw ),& element_type ( \"hassium\" , \"Hs\" , 108 , Hs_saw , ice_nan , Hs_naw ),& element_type ( \"meitnerium\" , \"Mt\" , 109 , Mt_saw , ice_nan , Mt_naw ),& element_type ( \"darmstadtium\" , \"Ds\" , 110 , Ds_saw , ice_nan , Ds_naw ),& element_type ( \"roentgenium\" , \"Rg\" , 111 , Rg_saw , ice_nan , Rg_naw ),& element_type ( \"copernicium\" , \"Cn\" , 112 , Cn_saw , ice_nan , Cn_naw ),& element_type ( \"nihonium\" , \"Nh\" , 113 , Nh_saw , ice_nan , Nh_naw ),& element_type ( \"flerovium\" , \"Fl\" , 114 , Fl_saw , ice_nan , Fl_naw ),& element_type ( \"moscovium\" , \"Mc\" , 115 , Mc_saw , ice_nan , Mc_naw ),& element_type ( \"livermorium\" , \"Lv\" , 116 , Lv_saw , ice_nan , Lv_naw ),& element_type ( \"tennesine\" , \"Ts\" , 117 , Ts_saw , ice_nan , Ts_naw ),& element_type ( \"organesson\" , \"Og\" , 118 , Og_saw , ice_nan , Og_naw )& ] end module ciaaw__pte","tags":"","loc":"sourcefile/ciaaw_pte.f90.html"},{"title":"ciaaw_ice.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_ice.f90~~EfferentGraph sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_ice.f90~~AfferentGraph sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__ice !! Ciaaw ice - Autogenerated !! See [specs](../page/specs/ciaaw_api.html) use ciaaw__common use ciaaw__types private type ( ice_type ), parameter , public :: H_ice = & ice_type ( 2 , transpose ( reshape ([& 1.0_dp , 0.99984426_dp , 5e-8_dp ,& 2.0_dp , 0.00015574_dp , 5e-8_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: He_ice = & ice_type ( 2 , transpose ( reshape ([& 3.0_dp , 0.000001343_dp , 1 3e-9_dp ,& 4.0_dp , 0.999998657_dp , 1 3e-9_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Li_ice = & ice_type ( 2 , transpose ( reshape ([& 6.0_dp , 0.07589_dp , 2 4e-5_dp ,& 7.0_dp , 0.92411_dp , 2 4e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Be_ice = & ice_type ( 1 , transpose ( reshape ([& 9.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: B_ice = & ice_type ( 2 , transpose ( reshape ([& 1 0.0_dp , 0.1982_dp , 2e-4_dp ,& 1 1.0_dp , 0.8018_dp , 2e-4_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: C_ice = & ice_type ( 2 , transpose ( reshape ([& 1 2.0_dp , 0.988922_dp , 2 8e-6_dp ,& 1 3.0_dp , 0.011078_dp , 2 8e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: N_ice = & ice_type ( 2 , transpose ( reshape ([& 1 4.0_dp , 0.996337_dp , 4e-6_dp ,& 1 5.0_dp , 0.003663_dp , 4e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: O_ice = & ice_type ( 3 , transpose ( reshape ([& 1 6.0_dp , 0.9976206_dp , 9e-7_dp ,& 1 7.0_dp , 0.0003790_dp , 9e-7_dp ,& 1 8.0_dp , 0.0020004_dp , 5e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: F_ice = & ice_type ( 1 , transpose ( reshape ([& 1 9.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ne_ice = & ice_type ( 3 , transpose ( reshape ([& 2 0.0_dp , 0.904838_dp , 9 0e-6_dp ,& 2 1.0_dp , 0.002696_dp , 5e-6_dp ,& 2 2.0_dp , 0.092465_dp , 9 0e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Na_ice = & ice_type ( 1 , transpose ( reshape ([& 2 3.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Mg_ice = & ice_type ( 3 , transpose ( reshape ([& 2 4.0_dp , 0.78951_dp , 1 2e-5_dp ,& 2 5.0_dp , 0.10020_dp , 8e-5_dp ,& 2 6.0_dp , 0.11029_dp , 1 0e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Al_ice = & ice_type ( 1 , transpose ( reshape ([& 2 7.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Si_ice = & ice_type ( 3 , transpose ( reshape ([& 2 8.0_dp , 0.9222968_dp , 4 4e-7_dp ,& 2 9.0_dp , 0.0468316_dp , 3 2e-7_dp ,& 3 0.0_dp , 0.0308716_dp , 3 2e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: P_ice = & ice_type ( 1 , transpose ( reshape ([& 3 1.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: S_ice = & ice_type ( 4 , transpose ( reshape ([& 3 2.0_dp , 0.9504074_dp , 8 8e-7_dp ,& 3 3.0_dp , 0.0074869_dp , 6 0e-7_dp ,& 3 4.0_dp , 0.0419599_dp , 6 6e-7_dp ,& 3 6.0_dp , 0.0001458_dp , 9e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Cl_ice = & ice_type ( 2 , transpose ( reshape ([& 3 5.0_dp , 0.757647_dp , 3 8e-7_dp ,& 3 7.0_dp , 0.242353_dp , 3 8e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ar_ice = & ice_type ( 3 , transpose ( reshape ([& 3 6.0_dp , 0.0033361_dp , 3 5e-7_dp ,& 3 8.0_dp , 0.0006289_dp , 1 2e-7_dp ,& 4 0.0_dp , 0.9960350_dp , 4 2e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: K_ice = & ice_type ( 3 , transpose ( reshape ([& 3 9.0_dp , 0.932581_dp , 2 9e-6_dp ,& 4 0.0_dp , 0.0001167_dp , 4e-7_dp ,& 4 1.0_dp , 0.067302_dp , 2 9e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ca_ice = & ice_type ( 6 , transpose ( reshape ([& 4 0.0_dp , 0.96941_dp , 6e-5_dp ,& 4 2.0_dp , 0.00647_dp , 3e-5_dp ,& 4 3.0_dp , 0.00135_dp , 2e-5_dp ,& 4 4.0_dp , 0.02086_dp , 4e-5_dp ,& 4 6.0_dp , 0.00004_dp , 1e-5_dp ,& 4 8.0_dp , 0.00187_dp , 1e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Sc_ice = & ice_type ( 1 , transpose ( reshape ([& 4 5.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ti_ice = & ice_type ( 5 , transpose ( reshape ([& 4 6.0_dp , 0.08249_dp , 2 1e-5_dp ,& 4 7.0_dp , 0.07437_dp , 1 4e-5_dp ,& 4 8.0_dp , 0.73720_dp , 2 0e-5_dp ,& 4 9.0_dp , 0.05409_dp , 1 0e-5_dp ,& 5 0.0_dp , 0.05185_dp , 1 3e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: V_ice = & ice_type ( 2 , transpose ( reshape ([& 5 0.0_dp , 0.002497_dp , 6e-6_dp ,& 5 1.0_dp , 0.997503_dp , 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Cr_ice = & ice_type ( 4 , transpose ( reshape ([& 5 0.0_dp , 0.043452_dp , 8 5e-6_dp ,& 5 2.0_dp , 0.837895_dp , 11 7e-6_dp ,& 5 3.0_dp , 0.095006_dp , 11 0e-6_dp ,& 5 4.0_dp , 0.023647_dp , 4 8e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Mn_ice = & ice_type ( 1 , transpose ( reshape ([& 5 5.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Fe_ice = & ice_type ( 4 , transpose ( reshape ([& 5 4.0_dp , 0.058450_dp , 23 0e-6_dp ,& 5 6.0_dp , 0.917540_dp , 24 0e-6_dp ,& 5 7.0_dp , 0.021191_dp , 6 5e-6_dp ,& 5 8.0_dp , 0.002819_dp , 2 7e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Co_ice = & ice_type ( 1 , transpose ( reshape ([& 5 9.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ni_ice = & ice_type ( 5 , transpose ( reshape ([& 5 8.0_dp , 0.680769_dp , 5 9e-6_dp ,& 6 0.0_dp , 0.262231_dp , 5 1e-6_dp ,& 6 1.0_dp , 0.011399_dp , 4e-6_dp ,& 6 2.0_dp , 0.036345_dp , 1 1e-6_dp ,& 6 4.0_dp , 0.009256_dp , 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Cu_ice = & ice_type ( 2 , transpose ( reshape ([& 6 3.0_dp , 0.69174_dp , 2 0e-5_dp ,& 6 5.0_dp , 0.30826_dp , 2 0e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Zn_ice = & ice_type ( 5 , transpose ( reshape ([& 6 4.0_dp , 0.491704_dp , 8 3e-6_dp ,& 6 6.0_dp , 0.277306_dp , 11 0e-6_dp ,& 6 7.0_dp , 0.040401_dp , 1 8e-6_dp ,& 6 8.0_dp , 0.184483_dp , 6 9e-6_dp ,& 7 0.0_dp , 0.006106_dp , 1 1e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ga_ice = & ice_type ( 2 , transpose ( reshape ([& 6 9.0_dp , 0.601079_dp , 6 2e-6_dp ,& 7 1.0_dp , 0.398921_dp , 6 2e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ge_ice = & ice_type ( 5 , transpose ( reshape ([& 7 0.0_dp , 0.20526_dp , 4 6e-5_dp ,& 7 2.0_dp , 0.27446_dp , 1 5e-5_dp ,& 7 3.0_dp , 0.07760_dp , 2 5e-5_dp ,& 7 4.0_dp , 0.36523_dp , 6 3e-5_dp ,& 7 6.0_dp , 0.07745_dp , 3 5e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: As_ice = & ice_type ( 1 , transpose ( reshape ([& 7 5.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Se_ice = & ice_type ( 6 , transpose ( reshape ([& 7 4.0_dp , 0.00863_dp , 3e-5_dp ,& 7 6.0_dp , 0.09220_dp , 6e-5_dp ,& 7 7.0_dp , 0.07594_dp , 4e-5_dp ,& 7 8.0_dp , 0.23685_dp , 1 4e-5_dp ,& 8 0.0_dp , 0.49813_dp , 1 6e-5_dp ,& 8 2.0_dp , 0.08825_dp , 8e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Br_ice = & ice_type ( 2 , transpose ( reshape ([& 7 9.0_dp , 0.50686_dp , 2 5e-5_dp ,& 8 1.0_dp , 0.49314_dp , 3 6e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Kr_ice = & ice_type ( 6 , transpose ( reshape ([& 7 8.0_dp , 0.0035518_dp , 3 2e-7_dp ,& 8 0.0_dp , 0.0228560_dp , 9 6e-7_dp ,& 8 2.0_dp , 0.115930_dp , 6 2e-6_dp ,& 8 3.0_dp , 0.114996_dp , 5 8e-6_dp ,& 8 4.0_dp , 0.569877_dp , 5 8e-6_dp ,& 8 6.0_dp , 0.172790_dp , 3 2e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Rb_ice = & ice_type ( 2 , transpose ( reshape ([& 8 5.0_dp , 0.721654_dp , 13 2e-6_dp ,& 8 7.0_dp , 0.278346_dp , 13 2e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Sr_ice = & ice_type ( 4 , transpose ( reshape ([& 8 4.0_dp , 0.005574_dp , 1 6e-6_dp ,& 8 6.0_dp , 0.098566_dp , 3 4e-6_dp ,& 8 7.0_dp , 0.070015_dp , 2 6e-6_dp ,& 8 8.0_dp , 0.825845_dp , 6 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Y_ice = & ice_type ( 1 , transpose ( reshape ([& 8 9.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Zr_ice = & ice_type ( 5 , transpose ( reshape ([& 9 0.0_dp , 0.51452_dp , 9e-5_dp ,& 9 1.0_dp , 0.11223_dp , 1 2e-5_dp ,& 9 2.0_dp , 0.17146_dp , 7e-5_dp ,& 9 4.0_dp , 0.17380_dp , 1 2e-5_dp ,& 9 6.0_dp , 0.02799_dp , 5e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Nb_ice = & ice_type ( 1 , transpose ( reshape ([& 9 3.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Mo_ice = & ice_type ( 7 , transpose ( reshape ([& 9 2.0_dp , 0.14649_dp , 1 7e-5_dp ,& 9 4.0_dp , 0.09187_dp , 5e-5_dp ,& 9 5.0_dp , 0.15873_dp , 5e-5_dp ,& 9 6.0_dp , 0.16673_dp , 2e-5_dp ,& 9 7.0_dp , 0.09582_dp , 3e-5_dp ,& 9 8.0_dp , 0.24292_dp , 1 4e-5_dp ,& 10 0.0_dp , 0.09744_dp , 1 0e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Tc_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ru_ice = & ice_type ( 7 , transpose ( reshape ([& 9 6.0_dp , 0.055420_dp , 1e-6_dp ,& 9 8.0_dp , 0.018688_dp , 2e-6_dp ,& 9 9.0_dp , 0.127579_dp , 6e-6_dp ,& 10 0.0_dp , 0.125985_dp , 4e-6_dp ,& 10 1.0_dp , 0.170600_dp , 1 0e-6_dp ,& 10 2.0_dp , 0.315519_dp , 1 1e-6_dp ,& 10 4.0_dp , 0.186210_dp , 1 1e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Rh_ice = & ice_type ( 1 , transpose ( reshape ([& 10 3.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pd_ice = & ice_type ( 6 , transpose ( reshape ([& 10 2.0_dp , 0.0102_dp , 1e-4_dp ,& 10 4.0_dp , 0.1114_dp , 5e-4_dp ,& 10 5.0_dp , 0.2233_dp , 5e-4_dp ,& 10 6.0_dp , 0.2733_dp , 2e-6_dp ,& 10 8.0_dp , 0.2646_dp , 6e-6_dp ,& 11 0.0_dp , 0.1172_dp , 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ag_ice = & ice_type ( 2 , transpose ( reshape ([& 10 7.0_dp , 0.518392_dp , 5 1e-6_dp ,& 10 9.0_dp , 0.481608_dp , 6 1e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Cd_ice = & ice_type ( 8 , transpose ( reshape ([& 10 6.0_dp , 0.01249_dp , 5e-5_dp ,& 10 8.0_dp , 0.00890_dp , 2e-5_dp ,& 11 0.0_dp , 0.12485_dp , 1 4e-5_dp ,& 11 1.0_dp , 0.12804_dp , 8e-5_dp ,& 11 2.0_dp , 0.24117_dp , 3e-5_dp ,& 11 3.0_dp , 0.12225_dp , 1e-5_dp ,& 11 4.0_dp , 0.28729_dp , 1 8e-5_dp ,& 11 6.0_dp , 0.07501_dp , 1 8e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: In_ice = & ice_type ( 2 , transpose ( reshape ([& 11 3.0_dp , 0.04271_dp , 1 7e-5_dp ,& 11 5.0_dp , 0.95719_dp , 1 7e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Sn_ice = & ice_type ( 10 , transpose ( reshape ([& 11 2.0_dp , 0.00973_dp , 3e-5_dp ,& 11 4.0_dp , 0.00659_dp , 3e-5_dp ,& 11 5.0_dp , 0.00339_dp , 3e-5_dp ,& 11 6.0_dp , 0.14536_dp , 3 1e-5_dp ,& 11 7.0_dp , 0.07676_dp , 2 2e-5_dp ,& 11 8.0_dp , 0.24223_dp , 3 0e-5_dp ,& 11 9.0_dp , 0.08585_dp , 1 3e-5_dp ,& 12 0.0_dp , 0.32593_dp , 2 0e-5_dp ,& 12 2.0_dp , 0.04629_dp , 9e-5_dp ,& 12 4.0_dp , 0.05789_dp , 1 7e-5_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Sb_ice = & ice_type ( 2 , transpose ( reshape ([& 12 1.0_dp , 0.57213_dp , 3 2e-5_dp ,& 12 3.0_dp , 0.42787_dp , 3 2e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Te_ice = & ice_type ( 8 , transpose ( reshape ([& 12 0.0_dp , 0.00096_dp , 1e-5_dp ,& 12 2.0_dp , 0.02603_dp , 1e-5_dp ,& 12 3.0_dp , 0.00908_dp , 1e-5_dp ,& 12 4.0_dp , 0.04816_dp , 2e-5_dp ,& 12 5.0_dp , 0.07139_dp , 2e-5_dp ,& 12 6.0_dp , 0.18952_dp , 4e-5_dp ,& 12 8.0_dp , 0.31687_dp , 4e-5_dp ,& 13 0.0_dp , 0.33799_dp , 3e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: I_ice = & ice_type ( 1 , transpose ( reshape ([& 12 7.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Xe_ice = & ice_type ( 9 , transpose ( reshape ([& 12 4.0_dp , 0.000952_dp , 3e-6_dp ,& 12 6.0_dp , 0.000890_dp , 2e-6_dp ,& 12 8.0_dp , 0.019102_dp , 8e-6_dp ,& 12 9.0_dp , 0.264006_dp , 8 2e-6_dp ,& 13 0.0_dp , 0.040710_dp , 1 3e-6_dp ,& 13 1.0_dp , 0.212324_dp , 3 0e-6_dp ,& 13 2.0_dp , 0.269086_dp , 3 3e-6_dp ,& 13 4.0_dp , 0.104357_dp , 2 1e-6_dp ,& 13 6.0_dp , 0.088573_dp , 4 4e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Cs_ice = & ice_type ( 1 , transpose ( reshape ([& 13 3.0_dp , 1.000000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ba_ice = & ice_type ( 7 , transpose ( reshape ([& 13 0.0_dp , 0.001058_dp , 2e-6_dp ,& 13 2.0_dp , 0.001012_dp , 2e-6_dp ,& 13 4.0_dp , 0.024170_dp , 3 0e-6_dp ,& 13 5.0_dp , 0.065920_dp , 2 0e-6_dp ,& 13 6.0_dp , 0.078532_dp , 4 0e-6_dp ,& 13 7.0_dp , 0.112317_dp , 4 0e-6_dp ,& 13 8.0_dp , 0.716991_dp , 7 0e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: La_ice = & ice_type ( 2 , transpose ( reshape ([& 13 8.0_dp , 0.0008881_dp , 2 4e-7_dp ,& 13 9.0_dp , 0.9991119_dp , 2 4e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ce_ice = & ice_type ( 4 , transpose ( reshape ([& 13 6.0_dp , 0.00186_dp , 1e-5_dp ,& 13 8.0_dp , 0.00251_dp , 1e-5_dp ,& 14 0.0_dp , 0.88449_dp , 3 4e-5_dp ,& 14 2.0_dp , 0.11114_dp , 3 4e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pr_ice = & ice_type ( 1 , transpose ( reshape ([& 14 1.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Nd_ice = & ice_type ( 7 , transpose ( reshape ([& 14 2.0_dp , 0.27153_dp , 1 9e-5_dp ,& 14 3.0_dp , 0.12173_dp , 1 8e-5_dp ,& 14 4.0_dp , 0.23798_dp , 1 2e-5_dp ,& 14 5.0_dp , 0.08293_dp , 7e-5_dp ,& 14 6.0_dp , 0.17189_dp , 1 7e-5_dp ,& 14 8.0_dp , 0.05756_dp , 8e-5_dp ,& 15 0.0_dp , 0.05638_dp , 9e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pm_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Sm_ice = & ice_type ( 7 , transpose ( reshape ([& 14 4.0_dp , 0.03078_dp , 1 4e-5_dp ,& 14 7.0_dp , 0.15004_dp , 5 4e-5_dp ,& 14 8.0_dp , 0.11248_dp , 3 6e-5_dp ,& 14 9.0_dp , 0.13824_dp , 4 0e-5_dp ,& 15 0.0_dp , 0.07365_dp , 3 4e-5_dp ,& 15 2.0_dp , 0.26740_dp , 3 6e-5_dp ,& 15 4.0_dp , 0.22741_dp , 5 6e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Eu_ice = & ice_type ( 2 , transpose ( reshape ([& 15 1.0_dp , 0.47810_dp , 4 2e-5_dp ,& 15 3.0_dp , 0.52190_dp , 4 2e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Gd_ice = & ice_type ( 7 , transpose ( reshape ([& 15 2.0_dp , 0.002029_dp , 4e-6_dp ,& 15 4.0_dp , 0.021809_dp , 4e-6_dp ,& 15 5.0_dp , 0.147998_dp , 1 7e-6_dp ,& 15 6.0_dp , 0.204664_dp , 6e-6_dp ,& 15 7.0_dp , 0.156518_dp , 9e-6_dp ,& 15 8.0_dp , 0.248347_dp , 1 6e-6_dp ,& 16 0.0_dp , 0.218635_dp , 7e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Tb_ice = & ice_type ( 1 , transpose ( reshape ([& 15 9.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Dy_ice = & ice_type ( 7 , transpose ( reshape ([& 15 6.0_dp , 0.00056_dp , 2e-5_dp ,& 15 8.0_dp , 0.00095_dp , 2e-5_dp ,& 16 0.0_dp , 0.02329_dp , 1 2e-5_dp ,& 16 1.0_dp , 0.18889_dp , 2 8e-5_dp ,& 16 2.0_dp , 0.25475_dp , 2 4e-5_dp ,& 16 3.0_dp , 0.24896_dp , 2 8e-5_dp ,& 16 4.0_dp , 0.28260_dp , 3 6e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ho_ice = & ice_type ( 1 , transpose ( reshape ([& 16 5.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Er_ice = & ice_type ( 6 , transpose ( reshape ([& 16 2.0_dp , 0.001391_dp , 3 0e-6_dp ,& 16 4.0_dp , 0.016006_dp , 2 0e-6_dp ,& 16 6.0_dp , 0.335014_dp , 24 0e-6_dp ,& 16 7.0_dp , 0.228724_dp , 6 0e-6_dp ,& 16 8.0_dp , 0.269852_dp , 12 0e-6_dp ,& 17 0.0_dp , 0.149013_dp , 24 0e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Tm_ice = & ice_type ( 1 , transpose ( reshape ([& 16 9.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Yb_ice = & ice_type ( 7 , transpose ( reshape ([& 16 8.0_dp , 0.00123_dp , 1e-5_dp ,& 17 0.0_dp , 0.02982_dp , 6e-5_dp ,& 17 1.0_dp , 0.14086_dp , 2 0e-5_dp ,& 17 2.0_dp , 0.21686_dp , 1 9e-5_dp ,& 17 3.0_dp , 0.16103_dp , 9e-5_dp ,& 17 4.0_dp , 0.32025_dp , 1 2e-5_dp ,& 17 6.0_dp , 0.12995_dp , 1 3e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Lu_ice = & ice_type ( 2 , transpose ( reshape ([& 17 5.0_dp , 0.974013_dp , 1 2e-5_dp ,& 17 6.0_dp , 0.025987_dp , 1 2e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Hf_ice = & ice_type ( 6 , transpose ( reshape ([& 17 4.0_dp , 0.001620_dp , 9e-5_dp ,& 17 6.0_dp , 0.052604_dp , 5 6e-6_dp ,& 17 7.0_dp , 0.185953_dp , 1 2e-6_dp ,& 17 8.0_dp , 0.272811_dp , 2 2e-6_dp ,& 17 9.0_dp , 0.136210_dp , 9e-6_dp ,& 18 0.0_dp , 0.350802_dp , 2 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ta_ice = & ice_type ( 2 , transpose ( reshape ([& 18 0.0_dp , 0.0001201_dp , 8e-7_dp ,& 18 1.0_dp , 0.9998799_dp , 8e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: W_ice = & ice_type ( 5 , transpose ( reshape ([& 18 0.0_dp , 0.001198_dp , 2e-6_dp ,& 18 2.0_dp , 0.264985_dp , 4 9e-6_dp ,& 18 3.0_dp , 0.143136_dp , 6e-6_dp ,& 18 4.0_dp , 0.306422_dp , 1 3e-6_dp ,& 18 6.0_dp , 0.284259_dp , 6 2e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Re_ice = & ice_type ( 2 , transpose ( reshape ([& 18 5.0_dp , 0.37398_dp , 1 6e-5_dp ,& 18 7.0_dp , 0.62602_dp , 1 6e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Os_ice = & ice_type ( 7 , transpose ( reshape ([& 18 4.0_dp , 0.000197_dp , 5e-6_dp ,& 18 6.0_dp , 0.015859_dp , 4 4e-6_dp ,& 18 7.0_dp , 0.019644_dp , 1 2e-6_dp ,& 18 8.0_dp , 0.132434_dp , 1 9e-6_dp ,& 18 9.0_dp , 0.161466_dp , 1 6e-6_dp ,& 19 0.0_dp , 0.262584_dp , 1 4e-6_dp ,& 19 2.0_dp , 0.407815_dp , 2 2e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ir_ice = & ice_type ( 2 , transpose ( reshape ([& 19 1.0_dp , 0.37272_dp , 1 5e-5_dp ,& 19 3.0_dp , 0.62728_dp , 1 5e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pt_ice = & ice_type ( 6 , transpose ( reshape ([& 19 0.0_dp , 0.00012_dp , 1e-5_dp ,& 19 2.0_dp , 0.00782_dp , 8e-5_dp ,& 19 4.0_dp , 0.32864_dp , 14 0e-5_dp ,& 19 5.0_dp , 0.33775_dp , 7 9e-5_dp ,& 19 6.0_dp , 0.25211_dp , 11 0e-5_dp ,& 19 8.0_dp , 0.07357_dp , 4 3e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Au_ice = & ice_type ( 1 , transpose ( reshape ([& 19 7.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Hg_ice = & ice_type ( 7 , transpose ( reshape ([& 19 6.0_dp , 0.00155_dp , 4e-5_dp ,& 19 8.0_dp , 0.10038_dp , 1 0e-5_dp ,& 19 9.0_dp , 0.16938_dp , 9e-5_dp ,& 20 0.0_dp , 0.23138_dp , 6e-5_dp ,& 20 1.0_dp , 0.13170_dp , 7 0e-5_dp ,& 20 2.0_dp , 0.29743_dp , 9e-5_dp ,& 20 4.0_dp , 0.06818_dp , 6e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Tl_ice = & ice_type ( 2 , transpose ( reshape ([& 20 3.0_dp , 0.29524_dp , 9e-5_dp ,& 20 5.0_dp , 0.70476_dp , 9e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pb_ice = & ice_type ( 4 , transpose ( reshape ([& 20 4.0_dp , 0.014245_dp , 1 2e-6_dp ,& 20 6.0_dp , 0.241447_dp , 5 7e-6_dp ,& 20 7.0_dp , 0.220827_dp , 2 7e-6_dp ,& 20 8.0_dp , 0.523481_dp , 8 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Bi_ice = & ice_type ( 1 , transpose ( reshape ([& 20 9.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Po_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: At_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Rn_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Fr_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ra_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ac_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Th_ice = & ice_type ( 2 , transpose ( reshape ([& 23 0.0_dp , 0.00001138_dp , 2e-8_dp ,& 23 2.0_dp , 0.99998862_dp , 2e-8_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pa_ice = & ice_type ( 1 , transpose ( reshape ([& 23 1.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: U_ice = & ice_type ( 3 , transpose ( reshape ([& 23 4.0_dp , 0.0000542_dp , 4e-7_dp ,& 23 5.0_dp , 0.0072041_dp , 3 6e-7_dp ,& 23 8.0_dp , 0.9927417_dp , 3 6e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) end module ciaaw__ice","tags":"","loc":"sourcefile/ciaaw_ice.f90.html"},{"title":"ciaaw_capi.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_capi.f90~~EfferentGraph sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_version.f90 ciaaw_version.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_version.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_capi.f90~~AfferentGraph sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__capi !! C API. !! See [specs](../page/specs/capi.html) use iso_c_binding , only : c_ptr , c_null_char , c_loc , c_double , c_int , c_bool , c_f_pointer use ciaaw__common use ciaaw__api implicit none private character ( len = :), allocatable , target :: version_c public :: capi_get_version public :: capi_get_saw public :: capi_get_ice , capi_get_nice public :: capi_get_naw , capi_get_nnaw public :: capi_get_ice_values contains ! ------------------------------------------------------------------------------ ! VERSION function capi_get_version () bind ( c , name = 'ciaaw_get_version' ) result ( cptr ) !! C API for [[ciaaw__api(module):get_version(function)]]. type ( c_ptr ) :: cptr !! C pointer to a string indicating the version. character ( len = :), pointer :: fptr fptr => get_version () if ( allocated ( version_c )) then deallocate ( version_c ) endif allocate ( character ( len = len ( fptr ) + 1 ) :: version_c ) version_c = fptr // c_null_char cptr = c_loc ( version_c ) end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! SAW function capi_get_saw ( s , n , abridged , uncertainty ) bind ( C , name = \"ciaaw_get_saw\" ) result ( res ) !! C API for [[ciaaw__api(module):get_saw(function)]]. ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. logical ( c_bool ), intent ( in ), value :: abridged !! Flag for setting if abridged value is desired. logical ( c_bool ), intent ( in ), value :: uncertainty !! Flag for setting if the uncertainty is desired instead of the value. ! Returns real ( c_double ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs logical :: f_abridged , f_uncertainty call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo f_abridged = logical ( abridged ) f_uncertainty = logical ( uncertainty ) res = get_saw ( fs , f_abridged , f_uncertainty ) end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! ICE function capi_get_ice ( s , n , A , uncertainty ) bind ( C , name = \"ciaaw_get_ice\" ) result ( res ) !! C API for [[ciaaw__api(module):get_ice(function)]] ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Element symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. integer ( c_int ), intent ( in ), value :: A !! Mass number. logical ( c_bool ), intent ( in ), value :: uncertainty !! Flag for returning the uncertainty instead of the value. Default to FALSE. ! Returns real ( c_double ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs logical :: f_uncertainty call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo f_uncertainty = logical ( uncertainty ) res = get_ice ( fs , A , f_uncertainty ) end function function capi_get_nice ( s , n ) bind ( C , name = \"ciaaw_get_nice\" ) result ( res ) !! C API for [[ciaaw__api(module):get_nice(function)]] ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Element symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. ! Returns integer ( c_int ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo res = get_nice ( fs ) end function function capi_get_ice_values ( s , n ) bind ( C , name = \"ciaaw_get_ice_values\" ) result ( res ) !! C API for [[ciaaw__api(module):get_ice_values(function)]] ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Element symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. ! Returns type ( c_ptr ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs real ( dp ), pointer , contiguous :: fptr (:,:) call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo fptr => get_ice_values ( fs ) res = c_loc ( fptr ) end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! NAW function capi_get_naw ( s , n , A , uncertainty ) bind ( C , name = \"ciaaw_get_naw\" ) result ( res ) !! C API for [[ciaaw__api(module):get_naw(function)]] ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Element symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. integer ( c_int ), intent ( in ), value :: A !! Mass number. logical ( c_bool ), intent ( in ), value :: uncertainty !! Flag for returning the uncertainty instead of the value. Default to FALSE. ! Returns real ( c_double ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs logical :: f_uncertainty call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo f_uncertainty = logical ( uncertainty ) res = get_naw ( fs , A , f_uncertainty ) end function function capi_get_nnaw ( s , n ) bind ( C , name = \"ciaaw_get_nnaw\" ) result ( res ) !! C API for [[ciaaw__api(module):get_nnaw(function)]] ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Element symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. ! Returns integer ( c_int ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo res = get_nnaw ( fs ) end function ! ------------------------------------------------------------------------------ end module ciaaw__capi","tags":"","loc":"sourcefile/ciaaw_capi.f90.html"},{"title":"ciaaw_naw.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_naw.f90~~EfferentGraph sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_naw.f90~~AfferentGraph sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__naw !! Ciaaw naw - Autogenerated !! See [specs](../page/specs/ciaaw_api.html) use ciaaw__common use ciaaw__types private type ( naw_type ), parameter , public :: H_naw = & naw_type ( 7 , transpose ( reshape ([& 1.0_dp , 1.007825031898_dp , 0.000000000014_dp ,& 2.0_dp , 2.014101777844_dp , 0.000000000015_dp ,& 3.0_dp , 3.01604928132_dp , 0.00000000008_dp ,& 4.0_dp , 4.026431867_dp , 0.000107354_dp ,& 5.0_dp , 5.035311492_dp , 0.000096020_dp ,& 6.0_dp , 6.044955437_dp , 0.000272816_dp ,& 7.0_dp , 7.052749_dp , 0.001078_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: He_naw = & naw_type ( 8 , transpose ( reshape ([& 3.0_dp , 3.01602932197_dp , 0.00000000006_dp ,& 4.0_dp , 4.00260325413_dp , 0.00000000016_dp ,& 5.0_dp , 5.012057224_dp , 0.000021470_dp ,& 6.0_dp , 6.018885889_dp , 0.000000057_dp ,& 7.0_dp , 7.027990652_dp , 0.000008115_dp ,& 8.0_dp , 8.033934388_dp , 0.000000095_dp ,& 9.0_dp , 9.043946414_dp , 0.000050259_dp ,& 1 0.0_dp , 1 0.052815306_dp , 0.000099676_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Li_naw = & naw_type ( 11 , transpose ( reshape ([& 3.0_dp , 3.030775_dp , 0.002147_dp ,& 4.0_dp , 4.027185561_dp , 0.000227733_dp ,& 5.0_dp , 5.012537800_dp , 0.000053677_dp ,& 6.0_dp , 6.01512288742_dp , 0.00000000155_dp ,& 7.0_dp , 7.01600343426_dp , 0.00000000450_dp ,& 8.0_dp , 8.022486244_dp , 0.000000050_dp ,& 9.0_dp , 9.026790191_dp , 0.000000200_dp ,& 1 0.0_dp , 1 0.035483453_dp , 0.000013656_dp ,& 1 1.0_dp , 1 1.043723581_dp , 0.000000660_dp ,& 1 2.0_dp , 1 2.052613942_dp , 0.000032213_dp ,& 1 3.0_dp , 1 3.061171503_dp , 0.000075150_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Be_naw = & naw_type ( 12 , transpose ( reshape ([& 5.0_dp , 5.039870_dp , 0.002150_dp ,& 6.0_dp , 6.019726409_dp , 0.000005848_dp ,& 7.0_dp , 7.016928714_dp , 0.000000076_dp ,& 8.0_dp , 8.005305102_dp , 0.000000037_dp ,& 9.0_dp , 9.012183062_dp , 0.000000082_dp ,& 1 0.0_dp , 1 0.013534692_dp , 0.000000086_dp ,& 1 1.0_dp , 1 1.021661080_dp , 0.000000255_dp ,& 1 2.0_dp , 1 2.026922082_dp , 0.000002048_dp ,& 1 3.0_dp , 1 3.036134506_dp , 0.000010929_dp ,& 1 4.0_dp , 1 4.042892920_dp , 0.000141970_dp ,& 1 5.0_dp , 1 5.053490215_dp , 0.000177990_dp ,& 1 6.0_dp , 1 6.061672036_dp , 0.000177990_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: B_naw = & naw_type ( 16 , transpose ( reshape ([& 6.0_dp , 6.050800_dp , 0.002150_dp ,& 7.0_dp , 7.029712000_dp , 0.000027000_dp ,& 8.0_dp , 8.024607315_dp , 0.000001073_dp ,& 9.0_dp , 9.013329645_dp , 0.000000969_dp ,& 1 0.0_dp , 1 0.012936862_dp , 0.000000016_dp ,& 1 1.0_dp , 1 1.009305166_dp , 0.000000013_dp ,& 1 2.0_dp , 1 2.014352638_dp , 0.000001418_dp ,& 1 3.0_dp , 1 3.017779981_dp , 0.000001073_dp ,& 1 4.0_dp , 1 4.025404010_dp , 0.000022773_dp ,& 1 5.0_dp , 1 5.031087023_dp , 0.000022575_dp ,& 1 6.0_dp , 1 6.039841045_dp , 0.000026373_dp ,& 1 7.0_dp , 1 7.046931399_dp , 0.000219114_dp ,& 1 8.0_dp , 1 8.055601683_dp , 0.000219180_dp ,& 1 9.0_dp , 1 9.064166000_dp , 0.000564000_dp ,& 2 0.0_dp , 2 0.074505644_dp , 0.000586538_dp ,& 2 1.0_dp , 2 1.084147485_dp , 0.000599750_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: C_naw = & naw_type ( 16 , transpose ( reshape ([& 8.0_dp , 8.037643039_dp , 0.000019584_dp ,& 9.0_dp , 9.031037202_dp , 0.000002293_dp ,& 1 0.0_dp , 1 0.016853217_dp , 0.000000075_dp ,& 1 1.0_dp , 1 1.011432597_dp , 0.000000064_dp ,& 1 2.0_dp , 1 2.0000000_dp , 0.0000000_dp ,& 1 3.0_dp , 1 3.00335483534_dp , 0.00000000025_dp ,& 1 4.0_dp , 1 4.00324198862_dp , 0.00000000403_dp ,& 1 5.0_dp , 1 5.010599256_dp , 0.000000858_dp ,& 1 6.0_dp , 1 6.014701255_dp , 0.000003840_dp ,& 1 7.0_dp , 1 7.022578650_dp , 0.000018641_dp ,& 1 8.0_dp , 1 8.026751930_dp , 0.000032206_dp ,& 1 9.0_dp , 1 9.034797594_dp , 0.000105625_dp ,& 2 0.0_dp , 2 0.040261732_dp , 0.000247585_dp ,& 2 1.0_dp , 2 1.049000_dp , 0.000640_dp ,& 2 2.0_dp , 2 2.057553990_dp , 0.000248515_dp ,& 2 3.0_dp , 2 3.068890_dp , 0.001070_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: N_naw = & naw_type ( 16 , transpose ( reshape ([& 1 0.0_dp , 1 0.041653540_dp , 0.000429417_dp ,& 1 1.0_dp , 1 1.026157593_dp , 0.000005368_dp ,& 1 2.0_dp , 1 2.018613180_dp , 0.000001073_dp ,& 1 3.0_dp , 1 3.005738609_dp , 0.000000289_dp ,& 1 4.0_dp , 1 4.00307400425_dp , 0.00000000024_dp ,& 1 5.0_dp , 1 5.00010889827_dp , 0.00000000062_dp ,& 1 6.0_dp , 1 6.006101925_dp , 0.000002470_dp ,& 1 7.0_dp , 1 7.008448876_dp , 0.000016103_dp ,& 1 8.0_dp , 1 8.014077563_dp , 0.000019935_dp ,& 1 9.0_dp , 1 9.017022389_dp , 0.000017610_dp ,& 2 0.0_dp , 2 0.023367295_dp , 0.000084696_dp ,& 2 1.0_dp , 2 1.027087573_dp , 0.000143906_dp ,& 2 2.0_dp , 2 2.034100918_dp , 0.000223060_dp ,& 2 3.0_dp , 2 3.039421000_dp , 0.000451500_dp ,& 2 4.0_dp , 2 4.050390_dp , 0.000430_dp ,& 2 5.0_dp , 2 5.060100_dp , 0.000540_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: O_naw = & naw_type ( 18 , transpose ( reshape ([& 1 1.0_dp , 1 1.051249828_dp , 0.000064453_dp ,& 1 2.0_dp , 1 2.034367726_dp , 0.000012882_dp ,& 1 3.0_dp , 1 3.024815435_dp , 0.000010226_dp ,& 1 4.0_dp , 1 4.008596706_dp , 0.000000027_dp ,& 1 5.0_dp , 1 5.003065636_dp , 0.000000526_dp ,& 1 6.0_dp , 1 5.99491461926_dp , 0.00000000032_dp ,& 1 7.0_dp , 1 6.99913175595_dp , 0.00000000069_dp ,& 1 8.0_dp , 1 7.99915961214_dp , 0.00000000069_dp ,& 1 9.0_dp , 1 9.003577969_dp , 0.000002830_dp ,& 2 0.0_dp , 2 0.004075357_dp , 0.000000950_dp ,& 2 1.0_dp , 2 1.008654948_dp , 0.000012882_dp ,& 2 2.0_dp , 2 2.009965744_dp , 0.000061107_dp ,& 2 3.0_dp , 2 3.015696686_dp , 0.000130663_dp ,& 2 4.0_dp , 2 4.019861000_dp , 0.000177000_dp ,& 2 5.0_dp , 2 5.029338919_dp , 0.000177225_dp ,& 2 6.0_dp , 2 6.037210155_dp , 0.000177081_dp ,& 2 7.0_dp , 2 7.047955_dp , 0.000537_dp ,& 2 8.0_dp , 2 8.055910_dp , 0.000750_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: F_naw = & naw_type ( 19 , transpose ( reshape ([& 1 3.0_dp , 1 3.045121_dp , 0.000537_dp ,& 1 4.0_dp , 1 4.034315196_dp , 0.000044142_dp ,& 1 5.0_dp , 1 5.017785139_dp , 0.000015029_dp ,& 1 6.0_dp , 1 6.011460278_dp , 0.000005758_dp ,& 1 7.0_dp , 1 7.002095237_dp , 0.000000266_dp ,& 1 8.0_dp , 1 8.000937324_dp , 0.000000497_dp ,& 1 9.0_dp , 1 8.99840316207_dp , 0.00000000088_dp ,& 2 0.0_dp , 1 9.999981252_dp , 0.000000031_dp ,& 2 1.0_dp , 2 0.999948893_dp , 0.000001932_dp ,& 2 2.0_dp , 2 2.002998812_dp , 0.000013310_dp ,& 2 3.0_dp , 2 3.003526875_dp , 0.000035770_dp ,& 2 4.0_dp , 2 4.008099370_dp , 0.000104853_dp ,& 2 5.0_dp , 2 5.012167727_dp , 0.000103535_dp ,& 2 6.0_dp , 2 6.020048065_dp , 0.000114898_dp ,& 2 7.0_dp , 2 7.026981897_dp , 0.000129037_dp ,& 2 8.0_dp , 2 8.035860448_dp , 0.000129198_dp ,& 2 9.0_dp , 2 9.043103000_dp , 0.000564000_dp ,& 3 0.0_dp , 3 0.052561_dp , 0.000537_dp ,& 3 1.0_dp , 3 1.061023_dp , 0.000574_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ne_naw = & naw_type ( 20 , transpose ( reshape ([& 1 5.0_dp , 1 5.043172977_dp , 0.000071588_dp ,& 1 6.0_dp , 1 6.025750860_dp , 0.000021986_dp ,& 1 7.0_dp , 1 7.017713962_dp , 0.000000380_dp ,& 1 8.0_dp , 1 8.005708696_dp , 0.000000390_dp ,& 1 9.0_dp , 1 9.001880906_dp , 0.000000171_dp ,& 2 0.0_dp , 1 9.99244017525_dp , 0.00000000165_dp ,& 2 1.0_dp , 2 0.993846685_dp , 0.000000041_dp ,& 2 2.0_dp , 2 1.991385113_dp , 0.000000018_dp ,& 2 3.0_dp , 2 2.994466905_dp , 0.000000112_dp ,& 2 4.0_dp , 2 3.993610649_dp , 0.000000550_dp ,& 2 5.0_dp , 2 4.997814797_dp , 0.000031181_dp ,& 2 6.0_dp , 2 6.000516496_dp , 0.000019784_dp ,& 2 7.0_dp , 2 7.007569462_dp , 0.000097445_dp ,& 2 8.0_dp , 2 8.012130767_dp , 0.000135339_dp ,& 2 9.0_dp , 2 9.019753000_dp , 0.000160500_dp ,& 3 0.0_dp , 3 0.024992235_dp , 0.000271875_dp ,& 3 1.0_dp , 3 1.033474816_dp , 0.000285772_dp ,& 3 2.0_dp , 3 2.039720_dp , 0.000540_dp ,& 3 3.0_dp , 3 3.049523_dp , 0.000644_dp ,& 3 4.0_dp , 3 4.056728_dp , 0.000551_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Na_naw = & naw_type ( 23 , transpose ( reshape ([& 1 7.0_dp , 1 7.037273000_dp , 0.000064000_dp ,& 1 8.0_dp , 1 8.026879388_dp , 0.000100785_dp ,& 1 9.0_dp , 1 9.013880264_dp , 0.000011309_dp ,& 2 0.0_dp , 2 0.007354301_dp , 0.000001190_dp ,& 2 1.0_dp , 2 0.997654459_dp , 0.000000045_dp ,& 2 2.0_dp , 2 1.994437547_dp , 0.000000141_dp ,& 2 3.0_dp , 2 2.98976928195_dp , 0.00000000194_dp ,& 2 4.0_dp , 2 3.990963012_dp , 0.000000017_dp ,& 2 5.0_dp , 2 4.989953974_dp , 0.000001288_dp ,& 2 6.0_dp , 2 5.992634649_dp , 0.000003759_dp ,& 2 7.0_dp , 2 6.994076408_dp , 0.000004000_dp ,& 2 8.0_dp , 2 7.998939000_dp , 0.000011000_dp ,& 2 9.0_dp , 2 9.002877091_dp , 0.000007876_dp ,& 3 0.0_dp , 3 0.009097931_dp , 0.000005074_dp ,& 3 1.0_dp , 3 1.013146654_dp , 0.000015000_dp ,& 3 2.0_dp , 3 2.020011024_dp , 0.000040000_dp ,& 3 3.0_dp , 3 3.025529000_dp , 0.000483000_dp ,& 3 4.0_dp , 3 4.034010000_dp , 0.000643500_dp ,& 3 5.0_dp , 3 5.040614_dp , 0.000720_dp ,& 3 6.0_dp , 3 6.049279_dp , 0.000737_dp ,& 3 7.0_dp , 3 7.057042_dp , 0.000737_dp ,& 3 8.0_dp , 3 8.066458_dp , 0.000768_dp ,& 3 9.0_dp , 3 9.075123_dp , 0.000797_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Mg_naw = & naw_type ( 23 , transpose ( reshape ([& 1 9.0_dp , 1 9.034179920_dp , 0.000064413_dp ,& 2 0.0_dp , 2 0.018763075_dp , 0.000002000_dp ,& 2 1.0_dp , 2 1.011705764_dp , 0.000000810_dp ,& 2 2.0_dp , 2 1.999570597_dp , 0.000000170_dp ,& 2 3.0_dp , 2 2.994123768_dp , 0.000000034_dp ,& 2 4.0_dp , 2 3.985041689_dp , 0.000000013_dp ,& 2 5.0_dp , 2 4.985836966_dp , 0.000000050_dp ,& 2 6.0_dp , 2 5.982592972_dp , 0.000000031_dp ,& 2 7.0_dp , 2 6.984340647_dp , 0.000000050_dp ,& 2 8.0_dp , 2 7.983875426_dp , 0.000000280_dp ,& 2 9.0_dp , 2 8.988607163_dp , 0.000000369_dp ,& 3 0.0_dp , 2 9.990465454_dp , 0.000001390_dp ,& 3 1.0_dp , 3 0.996648232_dp , 0.000003300_dp ,& 3 2.0_dp , 3 1.999110138_dp , 0.000003500_dp ,& 3 3.0_dp , 3 3.005327862_dp , 0.000002859_dp ,& 3 4.0_dp , 3 4.008935455_dp , 0.000007400_dp ,& 3 5.0_dp , 3 5.016790000_dp , 0.000289500_dp ,& 3 6.0_dp , 3 6.021879000_dp , 0.000741000_dp ,& 3 7.0_dp , 3 7.030286265_dp , 0.000750350_dp ,& 3 8.0_dp , 3 8.036580_dp , 0.000540_dp ,& 3 9.0_dp , 3 9.045921_dp , 0.000551_dp ,& 4 0.0_dp , 4 0.053194_dp , 0.000537_dp ,& 4 1.0_dp , 4 1.062373_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Al_naw = & naw_type ( 23 , transpose ( reshape ([& 2 1.0_dp , 2 1.029082_dp , 0.000644_dp ,& 2 2.0_dp , 2 2.019540_dp , 0.000430_dp ,& 2 3.0_dp , 2 3.007244351_dp , 0.000000370_dp ,& 2 4.0_dp , 2 3.999947598_dp , 0.000000244_dp ,& 2 5.0_dp , 2 4.990428308_dp , 0.000000069_dp ,& 2 6.0_dp , 2 5.986891876_dp , 0.000000071_dp ,& 2 7.0_dp , 2 6.981538408_dp , 0.000000050_dp ,& 2 8.0_dp , 2 7.981910009_dp , 0.000000052_dp ,& 2 9.0_dp , 2 8.980453164_dp , 0.000000370_dp ,& 3 0.0_dp , 2 9.982969171_dp , 0.000002077_dp ,& 3 1.0_dp , 3 0.983949754_dp , 0.000002400_dp ,& 3 2.0_dp , 3 1.988084338_dp , 0.000007700_dp ,& 3 3.0_dp , 3 2.990877685_dp , 0.000007500_dp ,& 3 4.0_dp , 3 3.996781924_dp , 0.000002259_dp ,& 3 5.0_dp , 3 4.999759816_dp , 0.000007900_dp ,& 3 6.0_dp , 3 6.006388000_dp , 0.000160500_dp ,& 3 7.0_dp , 3 7.010531000_dp , 0.000193500_dp ,& 3 8.0_dp , 3 8.017681_dp , 0.000161_dp ,& 3 9.0_dp , 3 9.023070_dp , 0.000322_dp ,& 4 0.0_dp , 4 0.030940_dp , 0.000322_dp ,& 4 1.0_dp , 4 1.037134_dp , 0.000429_dp ,& 4 2.0_dp , 4 2.045078_dp , 0.000537_dp ,& 4 3.0_dp , 4 3.051820_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Si_naw = & naw_type ( 24 , transpose ( reshape ([& 2 2.0_dp , 2 2.036114_dp , 0.000537_dp ,& 2 3.0_dp , 2 3.025711_dp , 0.000537_dp ,& 2 4.0_dp , 2 4.011535430_dp , 0.000020904_dp ,& 2 5.0_dp , 2 5.004108798_dp , 0.000010735_dp ,& 2 6.0_dp , 2 5.992333818_dp , 0.000000115_dp ,& 2 7.0_dp , 2 6.986704687_dp , 0.000000115_dp ,& 2 8.0_dp , 2 7.97692653442_dp , 0.00000000055_dp ,& 2 9.0_dp , 2 8.97649466434_dp , 0.00000000060_dp ,& 3 0.0_dp , 2 9.973770137_dp , 0.000000023_dp ,& 3 1.0_dp , 3 0.975363196_dp , 0.000000046_dp ,& 3 2.0_dp , 3 1.974151538_dp , 0.000000320_dp ,& 3 3.0_dp , 3 2.977976964_dp , 0.000000750_dp ,& 3 4.0_dp , 3 3.978538045_dp , 0.000000860_dp ,& 3 5.0_dp , 3 4.984550111_dp , 0.000038494_dp ,& 3 6.0_dp , 3 5.986649271_dp , 0.000077077_dp ,& 3 7.0_dp , 3 6.992945191_dp , 0.000122179_dp ,& 3 8.0_dp , 3 7.995523000_dp , 0.000112500_dp ,& 3 9.0_dp , 3 9.002491000_dp , 0.000145500_dp ,& 4 0.0_dp , 4 0.006083641_dp , 0.000130962_dp ,& 4 1.0_dp , 4 1.014171_dp , 0.000322_dp ,& 4 2.0_dp , 4 2.018078_dp , 0.000322_dp ,& 4 3.0_dp , 4 3.026119_dp , 0.000429_dp ,& 4 4.0_dp , 4 4.031466_dp , 0.000537_dp ,& 4 5.0_dp , 4 5.039818_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: P_naw = & naw_type ( 24 , transpose ( reshape ([& 2 4.0_dp , 2 4.036522_dp , 0.000537_dp ,& 2 5.0_dp , 2 5.021675_dp , 0.000429_dp ,& 2 6.0_dp , 2 6.011780_dp , 0.000210_dp ,& 2 7.0_dp , 2 6.999292499_dp , 0.000009662_dp ,& 2 8.0_dp , 2 7.992326460_dp , 0.000001231_dp ,& 2 9.0_dp , 2 8.981800368_dp , 0.000000385_dp ,& 3 0.0_dp , 2 9.978313490_dp , 0.000000069_dp ,& 3 1.0_dp , 3 0.97376199768_dp , 0.00000000080_dp ,& 3 2.0_dp , 3 1.973907643_dp , 0.000000042_dp ,& 3 3.0_dp , 3 2.971725692_dp , 0.000001170_dp ,& 3 4.0_dp , 3 3.973645886_dp , 0.000000870_dp ,& 3 5.0_dp , 3 4.973314045_dp , 0.000002003_dp ,& 3 6.0_dp , 3 5.978259610_dp , 0.000014078_dp ,& 3 7.0_dp , 3 6.979606942_dp , 0.000040738_dp ,& 3 8.0_dp , 3 7.984303105_dp , 0.000077918_dp ,& 3 9.0_dp , 3 8.986285865_dp , 0.000120929_dp ,& 4 0.0_dp , 3 9.991262221_dp , 0.000089755_dp ,& 4 1.0_dp , 4 0.994654000_dp , 0.000129000_dp ,& 4 2.0_dp , 4 2.001172140_dp , 0.000101996_dp ,& 4 3.0_dp , 4 3.005411_dp , 0.000322_dp ,& 4 4.0_dp , 4 4.011927_dp , 0.000429_dp ,& 4 5.0_dp , 4 5.017134_dp , 0.000537_dp ,& 4 6.0_dp , 4 6.024520_dp , 0.000537_dp ,& 4 7.0_dp , 4 7.030929_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: S_naw = & naw_type ( 24 , transpose ( reshape ([& 2 6.0_dp , 2 6.029716_dp , 0.000644_dp ,& 2 7.0_dp , 2 7.018777_dp , 0.000430_dp ,& 2 8.0_dp , 2 8.004372762_dp , 0.000171767_dp ,& 2 9.0_dp , 2 8.996678000_dp , 0.000014000_dp ,& 3 0.0_dp , 2 9.984906770_dp , 0.000000221_dp ,& 3 1.0_dp , 3 0.979557002_dp , 0.000000246_dp ,& 3 2.0_dp , 3 1.97207117354_dp , 0.00000000141_dp ,& 3 3.0_dp , 3 2.97145890862_dp , 0.00000000144_dp ,& 3 4.0_dp , 3 3.967867011_dp , 0.000000047_dp ,& 3 5.0_dp , 3 4.969032321_dp , 0.000000043_dp ,& 3 6.0_dp , 3 5.967080692_dp , 0.000000201_dp ,& 3 7.0_dp , 3 6.971125500_dp , 0.000000212_dp ,& 3 8.0_dp , 3 7.971163300_dp , 0.000007699_dp ,& 3 9.0_dp , 3 8.975133850_dp , 0.000053677_dp ,& 4 0.0_dp , 3 9.975482561_dp , 0.000004274_dp ,& 4 1.0_dp , 4 0.979593451_dp , 0.000004400_dp ,& 4 2.0_dp , 4 1.981065100_dp , 0.000003000_dp ,& 4 3.0_dp , 4 2.986907635_dp , 0.000005335_dp ,& 4 4.0_dp , 4 3.990118846_dp , 0.000005600_dp ,& 4 5.0_dp , 4 4.996414_dp , 0.000322_dp ,& 4 6.0_dp , 4 6.000687_dp , 0.000429_dp ,& 4 7.0_dp , 4 7.007730_dp , 0.000429_dp ,& 4 8.0_dp , 4 8.013301_dp , 0.000537_dp ,& 4 9.0_dp , 4 9.021891_dp , 0.000626_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cl_naw = & naw_type ( 25 , transpose ( reshape ([& 2 8.0_dp , 2 8.030349_dp , 0.000537_dp ,& 2 9.0_dp , 2 9.015053_dp , 0.000203_dp ,& 3 0.0_dp , 3 0.005018333_dp , 0.000025631_dp ,& 3 1.0_dp , 3 0.992448097_dp , 0.000003700_dp ,& 3 2.0_dp , 3 1.985684605_dp , 0.000000603_dp ,& 3 3.0_dp , 3 2.977451988_dp , 0.000000419_dp ,& 3 4.0_dp , 3 3.973762490_dp , 0.000000052_dp ,& 3 5.0_dp , 3 4.968852694_dp , 0.000000038_dp ,& 3 6.0_dp , 3 5.968306822_dp , 0.000000038_dp ,& 3 7.0_dp , 3 6.965902573_dp , 0.000000055_dp ,& 3 8.0_dp , 3 7.968010408_dp , 0.000000105_dp ,& 3 9.0_dp , 3 8.968008151_dp , 0.000001859_dp ,& 4 0.0_dp , 3 9.970415466_dp , 0.000034423_dp ,& 4 1.0_dp , 4 0.970684525_dp , 0.000073777_dp ,& 4 2.0_dp , 4 1.973342000_dp , 0.000064000_dp ,& 4 3.0_dp , 4 2.974063700_dp , 0.000066407_dp ,& 4 4.0_dp , 4 3.978014918_dp , 0.000091859_dp ,& 4 5.0_dp , 4 4.980394353_dp , 0.000146177_dp ,& 4 6.0_dp , 4 5.985254926_dp , 0.000104400_dp ,& 4 7.0_dp , 4 6.989715_dp , 0.000215_dp ,& 4 8.0_dp , 4 7.995405_dp , 0.000537_dp ,& 4 9.0_dp , 4 9.000794_dp , 0.000429_dp ,& 5 0.0_dp , 5 0.008266_dp , 0.000429_dp ,& 5 1.0_dp , 5 1.015341_dp , 0.000751_dp ,& 5 2.0_dp , 5 2.024004_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ar_naw = & naw_type ( 26 , transpose ( reshape ([& 2 9.0_dp , 2 9.040761_dp , 0.000471_dp ,& 3 0.0_dp , 3 0.023694_dp , 0.000192_dp ,& 3 1.0_dp , 3 1.012158_dp , 0.000215_dp ,& 3 2.0_dp , 3 1.997637824_dp , 0.000001900_dp ,& 3 3.0_dp , 3 2.989925545_dp , 0.000000430_dp ,& 3 4.0_dp , 3 3.980270092_dp , 0.000000083_dp ,& 3 5.0_dp , 3 4.975257719_dp , 0.000000730_dp ,& 3 6.0_dp , 3 5.967545106_dp , 0.000000028_dp ,& 3 7.0_dp , 3 6.966776301_dp , 0.000000221_dp ,& 3 8.0_dp , 3 7.962732102_dp , 0.000000209_dp ,& 3 9.0_dp , 3 8.964313037_dp , 0.000005367_dp ,& 4 0.0_dp , 3 9.96238312204_dp , 0.00000000234_dp ,& 4 1.0_dp , 4 0.964500570_dp , 0.000000372_dp ,& 4 2.0_dp , 4 1.963045737_dp , 0.000006200_dp ,& 4 3.0_dp , 4 2.965636056_dp , 0.000005700_dp ,& 4 4.0_dp , 4 3.964923814_dp , 0.000001700_dp ,& 4 5.0_dp , 4 4.968039731_dp , 0.000000550_dp ,& 4 6.0_dp , 4 5.968039244_dp , 0.000002500_dp ,& 4 7.0_dp , 4 6.972767112_dp , 0.000001300_dp ,& 4 8.0_dp , 4 7.976001000_dp , 0.000018000_dp ,& 4 9.0_dp , 4 8.981685_dp , 0.000429_dp ,& 5 0.0_dp , 4 9.985797_dp , 0.000537_dp ,& 5 1.0_dp , 5 0.993033_dp , 0.000429_dp ,& 5 2.0_dp , 5 1.998519_dp , 0.000644_dp ,& 5 3.0_dp , 5 3.007290_dp , 0.000750_dp ,& 5 4.0_dp , 5 4.013484_dp , 0.000859_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: K_naw = & naw_type ( 29 , transpose ( reshape ([& 3 1.0_dp , 3 1.036780_dp , 0.000322_dp ,& 3 2.0_dp , 3 2.023607_dp , 0.000429_dp ,& 3 3.0_dp , 3 3.008095_dp , 0.000215_dp ,& 3 4.0_dp , 3 3.998690_dp , 0.000210_dp ,& 3 5.0_dp , 3 4.988005406_dp , 0.000000550_dp ,& 3 6.0_dp , 3 5.981301887_dp , 0.000000349_dp ,& 3 7.0_dp , 3 6.973375890_dp , 0.000000100_dp ,& 3 8.0_dp , 3 7.969081114_dp , 0.000000209_dp ,& 3 9.0_dp , 3 8.96370648482_dp , 0.00000000489_dp ,& 4 0.0_dp , 3 9.963998165_dp , 0.000000060_dp ,& 4 1.0_dp , 4 0.96182525611_dp , 0.00000000403_dp ,& 4 2.0_dp , 4 1.962402305_dp , 0.000000113_dp ,& 4 3.0_dp , 4 2.960734701_dp , 0.000000440_dp ,& 4 4.0_dp , 4 3.961586984_dp , 0.000000450_dp ,& 4 5.0_dp , 4 4.960691491_dp , 0.000000560_dp ,& 4 6.0_dp , 4 5.961981584_dp , 0.000000780_dp ,& 4 7.0_dp , 4 6.961661612_dp , 0.000001500_dp ,& 4 8.0_dp , 4 7.965341184_dp , 0.000000830_dp ,& 4 9.0_dp , 4 8.968210753_dp , 0.000000860_dp ,& 5 0.0_dp , 4 9.972380015_dp , 0.000008300_dp ,& 5 1.0_dp , 5 0.975828664_dp , 0.000014000_dp ,& 5 2.0_dp , 5 1.981602000_dp , 0.000036000_dp ,& 5 3.0_dp , 5 2.986800000_dp , 0.000120000_dp ,& 5 4.0_dp , 5 3.994471_dp , 0.000429_dp ,& 5 5.0_dp , 5 5.000505_dp , 0.000537_dp ,& 5 6.0_dp , 5 6.008567_dp , 0.000644_dp ,& 5 7.0_dp , 5 7.015169_dp , 0.000644_dp ,& 5 8.0_dp , 5 8.023543_dp , 0.000751_dp ,& 5 9.0_dp , 5 9.030864_dp , 0.000859_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ca_naw = & naw_type ( 29 , transpose ( reshape ([& 3 3.0_dp , 3 3.033312_dp , 0.000429_dp ,& 3 4.0_dp , 3 4.015985_dp , 0.000322_dp ,& 3 5.0_dp , 3 5.005572_dp , 0.000215_dp ,& 3 6.0_dp , 3 5.993074388_dp , 0.000042941_dp ,& 3 7.0_dp , 3 6.985897849_dp , 0.000000680_dp ,& 3 8.0_dp , 3 7.976319223_dp , 0.000000208_dp ,& 3 9.0_dp , 3 8.970710811_dp , 0.000000640_dp ,& 4 0.0_dp , 3 9.962590850_dp , 0.000000022_dp ,& 4 1.0_dp , 4 0.962277905_dp , 0.000000147_dp ,& 4 2.0_dp , 4 1.958617780_dp , 0.000000159_dp ,& 4 3.0_dp , 4 2.958766381_dp , 0.000000244_dp ,& 4 4.0_dp , 4 3.955481489_dp , 0.000000348_dp ,& 4 5.0_dp , 4 4.956186270_dp , 0.000000392_dp ,& 4 6.0_dp , 4 5.953687726_dp , 0.000002398_dp ,& 4 7.0_dp , 4 6.954541134_dp , 0.000002384_dp ,& 4 8.0_dp , 4 7.952522654_dp , 0.000000018_dp ,& 4 9.0_dp , 4 8.955662625_dp , 0.000000190_dp ,& 5 0.0_dp , 4 9.957499215_dp , 0.000001700_dp ,& 5 1.0_dp , 5 0.960995663_dp , 0.000000560_dp ,& 5 2.0_dp , 5 1.963213646_dp , 0.000000720_dp ,& 5 3.0_dp , 5 2.968451000_dp , 0.000047000_dp ,& 5 4.0_dp , 5 3.972989000_dp , 0.000052000_dp ,& 5 5.0_dp , 5 4.979978000_dp , 0.000172000_dp ,& 5 6.0_dp , 5 5.985496000_dp , 0.000268000_dp ,& 5 7.0_dp , 5 6.992958_dp , 0.000429_dp ,& 5 8.0_dp , 5 7.998357_dp , 0.000537_dp ,& 5 9.0_dp , 5 9.006237_dp , 0.000644_dp ,& 6 0.0_dp , 6 0.011809_dp , 0.000751_dp ,& 6 1.0_dp , 6 1.020408_dp , 0.000859_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sc_naw = & naw_type ( 29 , transpose ( reshape ([& 3 5.0_dp , 3 5.029093_dp , 0.000429_dp ,& 3 6.0_dp , 3 6.017338_dp , 0.000322_dp ,& 3 7.0_dp , 3 7.004058_dp , 0.000322_dp ,& 3 8.0_dp , 3 7.995438_dp , 0.000215_dp ,& 3 9.0_dp , 3 8.984784953_dp , 0.000025765_dp ,& 4 0.0_dp , 3 9.977967275_dp , 0.000003036_dp ,& 4 1.0_dp , 4 0.969251163_dp , 0.000000083_dp ,& 4 2.0_dp , 4 1.965516686_dp , 0.000000165_dp ,& 4 3.0_dp , 4 2.961150425_dp , 0.000001999_dp ,& 4 4.0_dp , 4 3.959402818_dp , 0.000001884_dp ,& 4 5.0_dp , 4 4.955907051_dp , 0.000000712_dp ,& 4 6.0_dp , 4 5.955167034_dp , 0.000000720_dp ,& 4 7.0_dp , 4 6.952402444_dp , 0.000002072_dp ,& 4 8.0_dp , 4 7.952222903_dp , 0.000005313_dp ,& 4 9.0_dp , 4 8.950013159_dp , 0.000002434_dp ,& 5 0.0_dp , 4 9.952187437_dp , 0.000002700_dp ,& 5 1.0_dp , 5 0.953568838_dp , 0.000002700_dp ,& 5 2.0_dp , 5 1.956496170_dp , 0.000003300_dp ,& 5 3.0_dp , 5 2.958379173_dp , 0.000019000_dp ,& 5 4.0_dp , 5 3.963029359_dp , 0.000015000_dp ,& 5 5.0_dp , 5 4.966889637_dp , 0.000067000_dp ,& 5 6.0_dp , 5 5.972607611_dp , 0.000278761_dp ,& 5 7.0_dp , 5 6.977048000_dp , 0.000193000_dp ,& 5 8.0_dp , 5 7.983382000_dp , 0.000204000_dp ,& 5 9.0_dp , 5 8.988374000_dp , 0.000268000_dp ,& 6 0.0_dp , 5 9.995115_dp , 0.000537_dp ,& 6 1.0_dp , 6 1.000537_dp , 0.000644_dp ,& 6 2.0_dp , 6 2.007848_dp , 0.000644_dp ,& 6 3.0_dp , 6 3.014031_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ti_naw = & naw_type ( 29 , transpose ( reshape ([& 3 7.0_dp , 3 7.027021_dp , 0.000429_dp ,& 3 8.0_dp , 3 8.012206_dp , 0.000322_dp ,& 3 9.0_dp , 3 9.002684_dp , 0.000215_dp ,& 4 0.0_dp , 3 9.990345146_dp , 0.000073262_dp ,& 4 1.0_dp , 4 0.983148000_dp , 0.000030000_dp ,& 4 2.0_dp , 4 1.973049369_dp , 0.000000289_dp ,& 4 3.0_dp , 4 2.968528420_dp , 0.000006139_dp ,& 4 4.0_dp , 4 3.959689936_dp , 0.000000751_dp ,& 4 5.0_dp , 4 4.958120758_dp , 0.000000897_dp ,& 4 6.0_dp , 4 5.952626356_dp , 0.000000097_dp ,& 4 7.0_dp , 4 6.951757491_dp , 0.000000085_dp ,& 4 8.0_dp , 4 7.947940677_dp , 0.000000079_dp ,& 4 9.0_dp , 4 8.947864391_dp , 0.000000084_dp ,& 5 0.0_dp , 4 9.944785622_dp , 0.000000088_dp ,& 5 1.0_dp , 5 0.946609468_dp , 0.000000519_dp ,& 5 2.0_dp , 5 1.946883509_dp , 0.000002948_dp ,& 5 3.0_dp , 5 2.949670714_dp , 0.000003100_dp ,& 5 4.0_dp , 5 3.950892000_dp , 0.000017000_dp ,& 5 5.0_dp , 5 4.955091000_dp , 0.000031000_dp ,& 5 6.0_dp , 5 5.957677675_dp , 0.000107569_dp ,& 5 7.0_dp , 5 6.963068098_dp , 0.000221020_dp ,& 5 8.0_dp , 5 7.966808519_dp , 0.000196823_dp ,& 5 9.0_dp , 5 8.972217_dp , 0.000322_dp ,& 6 0.0_dp , 5 9.976275000_dp , 0.000258000_dp ,& 6 1.0_dp , 6 0.982426_dp , 0.000322_dp ,& 6 2.0_dp , 6 1.986903_dp , 0.000429_dp ,& 6 3.0_dp , 6 2.993709_dp , 0.000537_dp ,& 6 4.0_dp , 6 3.998411_dp , 0.000644_dp ,& 6 5.0_dp , 6 5.005593_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: V_naw = & naw_type ( 29 , transpose ( reshape ([& 3 9.0_dp , 3 9.024230_dp , 0.000429_dp ,& 4 0.0_dp , 4 0.013387_dp , 0.000322_dp ,& 4 1.0_dp , 4 1.000333_dp , 0.000215_dp ,& 4 2.0_dp , 4 1.991820_dp , 0.000210_dp ,& 4 3.0_dp , 4 2.980766000_dp , 0.000046000_dp ,& 4 4.0_dp , 4 3.974440977_dp , 0.000007799_dp ,& 4 5.0_dp , 4 4.965768498_dp , 0.000000926_dp ,& 4 6.0_dp , 4 5.960197389_dp , 0.000000143_dp ,& 4 7.0_dp , 4 6.954903558_dp , 0.000000118_dp ,& 4 8.0_dp , 4 7.952250900_dp , 0.000001043_dp ,& 4 9.0_dp , 4 8.948510509_dp , 0.000000884_dp ,& 5 0.0_dp , 4 9.947156681_dp , 0.000000099_dp ,& 5 1.0_dp , 5 0.943957664_dp , 0.000000104_dp ,& 5 2.0_dp , 5 1.944773636_dp , 0.000000170_dp ,& 5 3.0_dp , 5 2.944334940_dp , 0.000003331_dp ,& 5 4.0_dp , 5 3.946432009_dp , 0.000012001_dp ,& 5 5.0_dp , 5 4.947262000_dp , 0.000029000_dp ,& 5 6.0_dp , 5 5.950420082_dp , 0.000188819_dp ,& 5 7.0_dp , 5 6.952297000_dp , 0.000091000_dp ,& 5 8.0_dp , 5 7.956595985_dp , 0.000102862_dp ,& 5 9.0_dp , 5 8.959623343_dp , 0.000147505_dp ,& 6 0.0_dp , 5 9.964479215_dp , 0.000195327_dp ,& 6 1.0_dp , 6 0.967603529_dp , 0.000252196_dp ,& 6 2.0_dp , 6 1.972932556_dp , 0.000283723_dp ,& 6 3.0_dp , 6 2.976661000_dp , 0.000365000_dp ,& 6 4.0_dp , 6 3.982480_dp , 0.000429_dp ,& 6 5.0_dp , 6 4.986999_dp , 0.000537_dp ,& 6 6.0_dp , 6 5.993237_dp , 0.000537_dp ,& 6 7.0_dp , 6 6.998128_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cr_naw = & naw_type ( 30 , transpose ( reshape ([& 4 1.0_dp , 4 1.021911_dp , 0.000429_dp ,& 4 2.0_dp , 4 2.007579_dp , 0.000322_dp ,& 4 3.0_dp , 4 2.997885_dp , 0.000215_dp ,& 4 4.0_dp , 4 3.985591000_dp , 0.000055000_dp ,& 4 5.0_dp , 4 4.979050000_dp , 0.000038000_dp ,& 4 6.0_dp , 4 5.968360969_dp , 0.000012295_dp ,& 4 7.0_dp , 4 6.962894995_dp , 0.000005578_dp ,& 4 8.0_dp , 4 7.954029431_dp , 0.000007848_dp ,& 4 9.0_dp , 4 8.951333720_dp , 0.000002363_dp ,& 5 0.0_dp , 4 9.946042209_dp , 0.000000100_dp ,& 5 1.0_dp , 5 0.944765388_dp , 0.000000178_dp ,& 5 2.0_dp , 5 1.940504714_dp , 0.000000120_dp ,& 5 3.0_dp , 5 2.940646304_dp , 0.000000124_dp ,& 5 4.0_dp , 5 3.938877359_dp , 0.000000142_dp ,& 5 5.0_dp , 5 4.940836637_dp , 0.000000245_dp ,& 5 6.0_dp , 5 5.940648977_dp , 0.000000620_dp ,& 5 7.0_dp , 5 6.943612112_dp , 0.000002000_dp ,& 5 8.0_dp , 5 7.944184501_dp , 0.000003200_dp ,& 5 9.0_dp , 5 8.948345426_dp , 0.000000720_dp ,& 6 0.0_dp , 5 9.949641656_dp , 0.000001200_dp ,& 6 1.0_dp , 6 0.954378130_dp , 0.000002000_dp ,& 6 2.0_dp , 6 1.956142920_dp , 0.000003700_dp ,& 6 3.0_dp , 6 2.961161000_dp , 0.000078000_dp ,& 6 4.0_dp , 6 3.963886000_dp , 0.000322000_dp ,& 6 5.0_dp , 6 4.969608_dp , 0.000215_dp ,& 6 6.0_dp , 6 5.973011_dp , 0.000322_dp ,& 6 7.0_dp , 6 6.979313_dp , 0.000429_dp ,& 6 8.0_dp , 6 7.983156_dp , 0.000537_dp ,& 6 9.0_dp , 6 8.989662_dp , 0.000537_dp ,& 7 0.0_dp , 6 9.993945_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Mn_naw = & naw_type ( 31 , transpose ( reshape ([& 4 3.0_dp , 4 3.018647_dp , 0.000429_dp ,& 4 4.0_dp , 4 4.008009_dp , 0.000322_dp ,& 4 5.0_dp , 4 4.994654_dp , 0.000322_dp ,& 4 6.0_dp , 4 5.986669000_dp , 0.000093000_dp ,& 4 7.0_dp , 4 6.975774000_dp , 0.000034000_dp ,& 4 8.0_dp , 4 7.968548760_dp , 0.000007191_dp ,& 4 9.0_dp , 4 8.959613350_dp , 0.000002377_dp ,& 5 0.0_dp , 4 9.954238157_dp , 0.000000123_dp ,& 5 1.0_dp , 5 0.948208770_dp , 0.000000326_dp ,& 5 2.0_dp , 5 1.945559090_dp , 0.000000138_dp ,& 5 3.0_dp , 5 2.941287497_dp , 0.000000371_dp ,& 5 4.0_dp , 5 3.940355772_dp , 0.000001080_dp ,& 5 5.0_dp , 5 4.938043040_dp , 0.000000279_dp ,& 5 6.0_dp , 5 5.938902816_dp , 0.000000314_dp ,& 5 7.0_dp , 5 6.938285944_dp , 0.000001615_dp ,& 5 8.0_dp , 5 7.940066643_dp , 0.000002900_dp ,& 5 9.0_dp , 5 8.940391111_dp , 0.000002500_dp ,& 6 0.0_dp , 5 9.943136574_dp , 0.000002500_dp ,& 6 1.0_dp , 6 0.944452541_dp , 0.000002500_dp ,& 6 2.0_dp , 6 1.947907384_dp , 0.000007023_dp ,& 6 3.0_dp , 6 2.949664672_dp , 0.000004000_dp ,& 6 4.0_dp , 6 3.953849369_dp , 0.000003800_dp ,& 6 5.0_dp , 6 4.956019749_dp , 0.000004000_dp ,& 6 6.0_dp , 6 5.960546833_dp , 0.000012000_dp ,& 6 7.0_dp , 6 6.963950_dp , 0.000215_dp ,& 6 8.0_dp , 6 7.968953_dp , 0.000322_dp ,& 6 9.0_dp , 6 8.972775_dp , 0.000429_dp ,& 7 0.0_dp , 6 9.978046_dp , 0.000537_dp ,& 7 1.0_dp , 7 0.982158_dp , 0.000537_dp ,& 7 2.0_dp , 7 1.988009_dp , 0.000644_dp ,& 7 3.0_dp , 7 2.992807_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Fe_naw = & naw_type ( 32 , transpose ( reshape ([& 4 5.0_dp , 4 5.015467_dp , 0.000304_dp ,& 4 6.0_dp , 4 6.001299_dp , 0.000322_dp ,& 4 7.0_dp , 4 6.992346_dp , 0.000537_dp ,& 4 8.0_dp , 4 7.980667000_dp , 0.000099000_dp ,& 4 9.0_dp , 4 8.973429000_dp , 0.000026000_dp ,& 5 0.0_dp , 4 9.962988000_dp , 0.000009000_dp ,& 5 1.0_dp , 5 0.956855137_dp , 0.000001501_dp ,& 5 2.0_dp , 5 1.948113364_dp , 0.000000192_dp ,& 5 3.0_dp , 5 2.945305629_dp , 0.000001792_dp ,& 5 4.0_dp , 5 3.939608189_dp , 0.000000368_dp ,& 5 5.0_dp , 5 4.938291158_dp , 0.000000330_dp ,& 5 6.0_dp , 5 5.934935537_dp , 0.000000287_dp ,& 5 7.0_dp , 5 6.935391950_dp , 0.000000287_dp ,& 5 8.0_dp , 5 7.933273575_dp , 0.000000339_dp ,& 5 9.0_dp , 5 8.934873492_dp , 0.000000354_dp ,& 6 0.0_dp , 5 9.934070249_dp , 0.000003656_dp ,& 6 1.0_dp , 6 0.936746241_dp , 0.000002800_dp ,& 6 2.0_dp , 6 1.936791809_dp , 0.000003000_dp ,& 6 3.0_dp , 6 2.940272698_dp , 0.000004618_dp ,& 6 4.0_dp , 6 3.940987761_dp , 0.000005386_dp ,& 6 5.0_dp , 6 4.945015323_dp , 0.000005487_dp ,& 6 6.0_dp , 6 5.946249958_dp , 0.000004400_dp ,& 6 7.0_dp , 6 6.950930000_dp , 0.000004100_dp ,& 6 8.0_dp , 6 7.952875_dp , 0.000207_dp ,& 6 9.0_dp , 6 8.957918_dp , 0.000215_dp ,& 7 0.0_dp , 6 9.960397_dp , 0.000322_dp ,& 7 1.0_dp , 7 0.965722_dp , 0.000429_dp ,& 7 2.0_dp , 7 1.968599_dp , 0.000537_dp ,& 7 3.0_dp , 7 2.974246_dp , 0.000537_dp ,& 7 4.0_dp , 7 3.977821_dp , 0.000537_dp ,& 7 5.0_dp , 7 4.984219_dp , 0.000644_dp ,& 7 6.0_dp , 7 5.988631_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Co_naw = & naw_type ( 32 , transpose ( reshape ([& 4 7.0_dp , 4 7.011401_dp , 0.000644_dp ,& 4 8.0_dp , 4 8.001857_dp , 0.000537_dp ,& 4 9.0_dp , 4 8.989501_dp , 0.000537_dp ,& 5 0.0_dp , 4 9.981117000_dp , 0.000135000_dp ,& 5 1.0_dp , 5 0.970647000_dp , 0.000052000_dp ,& 5 2.0_dp , 5 1.963130224_dp , 0.000005669_dp ,& 5 3.0_dp , 5 2.954203278_dp , 0.000001854_dp ,& 5 4.0_dp , 5 3.948459075_dp , 0.000000380_dp ,& 5 5.0_dp , 5 4.941996416_dp , 0.000000434_dp ,& 5 6.0_dp , 5 5.939838032_dp , 0.000000510_dp ,& 5 7.0_dp , 5 6.936289819_dp , 0.000000553_dp ,& 5 8.0_dp , 5 7.935751292_dp , 0.000001237_dp ,& 5 9.0_dp , 5 8.933193524_dp , 0.000000426_dp ,& 6 0.0_dp , 5 9.933815536_dp , 0.000000433_dp ,& 6 1.0_dp , 6 0.932476031_dp , 0.000000901_dp ,& 6 2.0_dp , 6 1.934058198_dp , 0.000019940_dp ,& 6 3.0_dp , 6 2.933599630_dp , 0.000019941_dp ,& 6 4.0_dp , 6 3.935810176_dp , 0.000021476_dp ,& 6 5.0_dp , 6 4.936462071_dp , 0.000002235_dp ,& 6 6.0_dp , 6 5.939442943_dp , 0.000015000_dp ,& 6 7.0_dp , 6 6.940609625_dp , 0.000006917_dp ,& 6 8.0_dp , 6 7.944559401_dp , 0.000004142_dp ,& 6 9.0_dp , 6 8.945909000_dp , 0.000092000_dp ,& 7 0.0_dp , 6 9.950053400_dp , 0.000011800_dp ,& 7 1.0_dp , 7 0.952366923_dp , 0.000499230_dp ,& 7 2.0_dp , 7 1.956736_dp , 0.000322_dp ,& 7 3.0_dp , 7 2.959238_dp , 0.000322_dp ,& 7 4.0_dp , 7 3.963993_dp , 0.000429_dp ,& 7 5.0_dp , 7 4.967192_dp , 0.000429_dp ,& 7 6.0_dp , 7 5.972453_dp , 0.000537_dp ,& 7 7.0_dp , 7 6.976479_dp , 0.000644_dp ,& 7 8.0_dp , 7 7.983553_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ni_naw = & naw_type ( 35 , transpose ( reshape ([& 4 8.0_dp , 4 8.019515_dp , 0.000455_dp ,& 4 9.0_dp , 4 9.009157_dp , 0.000644_dp ,& 5 0.0_dp , 4 9.996286_dp , 0.000537_dp ,& 5 1.0_dp , 5 0.987493_dp , 0.000537_dp ,& 5 2.0_dp , 5 1.975781000_dp , 0.000089000_dp ,& 5 3.0_dp , 5 2.968190000_dp , 0.000027000_dp ,& 5 4.0_dp , 5 3.957833000_dp , 0.000005000_dp ,& 5 5.0_dp , 5 4.951329846_dp , 0.000000757_dp ,& 5 6.0_dp , 5 5.942127761_dp , 0.000000428_dp ,& 5 7.0_dp , 5 6.939791394_dp , 0.000000608_dp ,& 5 8.0_dp , 5 7.935341650_dp , 0.000000374_dp ,& 5 9.0_dp , 5 8.934345442_dp , 0.000000376_dp ,& 6 0.0_dp , 5 9.930785129_dp , 0.000000378_dp ,& 6 1.0_dp , 6 0.931054819_dp , 0.000000381_dp ,& 6 2.0_dp , 6 1.928344753_dp , 0.000000455_dp ,& 6 3.0_dp , 6 2.929669021_dp , 0.000000457_dp ,& 6 4.0_dp , 6 3.927966228_dp , 0.000000497_dp ,& 6 5.0_dp , 6 4.930084585_dp , 0.000000518_dp ,& 6 6.0_dp , 6 5.929139333_dp , 0.000001500_dp ,& 6 7.0_dp , 6 6.931569413_dp , 0.000003100_dp ,& 6 8.0_dp , 6 7.931868787_dp , 0.000003200_dp ,& 6 9.0_dp , 6 8.935610267_dp , 0.000004000_dp ,& 7 0.0_dp , 6 9.936431300_dp , 0.000002301_dp ,& 7 1.0_dp , 7 0.940518962_dp , 0.000002401_dp ,& 7 2.0_dp , 7 1.941785924_dp , 0.000002401_dp ,& 7 3.0_dp , 7 2.946206681_dp , 0.000002601_dp ,& 7 4.0_dp , 7 3.947718_dp , 0.000215_dp ,& 7 5.0_dp , 7 4.952506_dp , 0.000215_dp ,& 7 6.0_dp , 7 5.954707_dp , 0.000322_dp ,& 7 7.0_dp , 7 6.959903_dp , 0.000429_dp ,& 7 8.0_dp , 7 7.962555_dp , 0.000429_dp ,& 7 9.0_dp , 7 8.969769_dp , 0.000537_dp ,& 8 0.0_dp , 7 9.975051_dp , 0.000644_dp ,& 8 1.0_dp , 8 0.982727_dp , 0.000751_dp ,& 8 2.0_dp , 8 1.988492_dp , 0.000859_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cu_naw = & naw_type ( 33 , transpose ( reshape ([& 5 2.0_dp , 5 1.997982_dp , 0.000644_dp ,& 5 3.0_dp , 5 2.985894_dp , 0.000537_dp ,& 5 4.0_dp , 5 3.977198_dp , 0.000429_dp ,& 5 5.0_dp , 5 4.966038000_dp , 0.000167000_dp ,& 5 6.0_dp , 5 5.958529278_dp , 0.000006864_dp ,& 5 7.0_dp , 5 6.949211686_dp , 0.000000537_dp ,& 5 8.0_dp , 5 7.944532283_dp , 0.000000604_dp ,& 5 9.0_dp , 5 8.939496713_dp , 0.000000566_dp ,& 6 0.0_dp , 5 9.937363787_dp , 0.000001731_dp ,& 6 1.0_dp , 6 0.933457375_dp , 0.000001020_dp ,& 6 2.0_dp , 6 1.932594803_dp , 0.000000683_dp ,& 6 3.0_dp , 6 2.929597119_dp , 0.000000457_dp ,& 6 4.0_dp , 6 3.929764001_dp , 0.000000458_dp ,& 6 5.0_dp , 6 4.927789476_dp , 0.000000690_dp ,& 6 6.0_dp , 6 5.928868804_dp , 0.000000696_dp ,& 6 7.0_dp , 6 6.927729490_dp , 0.000000957_dp ,& 6 8.0_dp , 6 7.929610887_dp , 0.000001700_dp ,& 6 9.0_dp , 6 8.929429267_dp , 0.000001500_dp ,& 7 0.0_dp , 6 9.932392078_dp , 0.000001161_dp ,& 7 1.0_dp , 7 0.932676831_dp , 0.000001600_dp ,& 7 2.0_dp , 7 1.935820306_dp , 0.000001500_dp ,& 7 3.0_dp , 7 2.936674376_dp , 0.000002084_dp ,& 7 4.0_dp , 7 3.939874860_dp , 0.000006600_dp ,& 7 5.0_dp , 7 4.941523817_dp , 0.000000770_dp ,& 7 6.0_dp , 7 5.945268974_dp , 0.000000980_dp ,& 7 7.0_dp , 7 6.947543599_dp , 0.000001300_dp ,& 7 8.0_dp , 7 7.951916524_dp , 0.000014312_dp ,& 7 9.0_dp , 7 8.954473100_dp , 0.000112700_dp ,& 8 0.0_dp , 7 9.960623_dp , 0.000322_dp ,& 8 1.0_dp , 8 0.965743_dp , 0.000322_dp ,& 8 2.0_dp , 8 1.972378_dp , 0.000429_dp ,& 8 3.0_dp , 8 2.978110_dp , 0.000537_dp ,& 8 4.0_dp , 8 3.985271_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Zn_naw = & naw_type ( 33 , transpose ( reshape ([& 5 4.0_dp , 5 3.993879_dp , 0.000232_dp ,& 5 5.0_dp , 5 4.984681_dp , 0.000429_dp ,& 5 6.0_dp , 5 5.972743_dp , 0.000429_dp ,& 5 7.0_dp , 5 6.965056_dp , 0.000215_dp ,& 5 8.0_dp , 5 7.954590296_dp , 0.000053678_dp ,& 5 9.0_dp , 5 8.949311886_dp , 0.000000814_dp ,& 6 0.0_dp , 5 9.941841317_dp , 0.000000588_dp ,& 6 1.0_dp , 6 0.939506964_dp , 0.000017068_dp ,& 6 2.0_dp , 6 1.934333359_dp , 0.000000660_dp ,& 6 3.0_dp , 6 2.933211140_dp , 0.000001674_dp ,& 6 4.0_dp , 6 3.929141776_dp , 0.000000690_dp ,& 6 5.0_dp , 6 4.929240534_dp , 0.000000693_dp ,& 6 6.0_dp , 6 5.926033639_dp , 0.000000798_dp ,& 6 7.0_dp , 6 6.927127422_dp , 0.000000810_dp ,& 6 8.0_dp , 6 7.924844232_dp , 0.000000835_dp ,& 6 9.0_dp , 6 8.926550360_dp , 0.000000853_dp ,& 7 0.0_dp , 6 9.925319175_dp , 0.000002058_dp ,& 7 1.0_dp , 7 0.927719578_dp , 0.000002849_dp ,& 7 2.0_dp , 7 1.926842806_dp , 0.000002300_dp ,& 7 3.0_dp , 7 2.929582580_dp , 0.000002000_dp ,& 7 4.0_dp , 7 3.929407260_dp , 0.000002700_dp ,& 7 5.0_dp , 7 4.932840244_dp , 0.000002100_dp ,& 7 6.0_dp , 7 5.933114956_dp , 0.000001562_dp ,& 7 7.0_dp , 7 6.936887197_dp , 0.000002117_dp ,& 7 8.0_dp , 7 7.938289204_dp , 0.000002086_dp ,& 7 9.0_dp , 7 8.942638067_dp , 0.000002388_dp ,& 8 0.0_dp , 7 9.944552929_dp , 0.000002774_dp ,& 8 1.0_dp , 8 0.950402617_dp , 0.000005400_dp ,& 8 2.0_dp , 8 1.954574097_dp , 0.000003300_dp ,& 8 3.0_dp , 8 2.961041_dp , 0.000322_dp ,& 8 4.0_dp , 8 3.965829_dp , 0.000429_dp ,& 8 5.0_dp , 8 4.973054_dp , 0.000537_dp ,& 8 6.0_dp , 8 5.978463_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ga_naw = & naw_type ( 33 , transpose ( reshape ([& 5 6.0_dp , 5 5.995878_dp , 0.000537_dp ,& 5 7.0_dp , 5 6.983457_dp , 0.000429_dp ,& 5 8.0_dp , 5 7.974729_dp , 0.000322_dp ,& 5 9.0_dp , 5 8.963757_dp , 0.000183_dp ,& 6 0.0_dp , 5 9.957498_dp , 0.000215_dp ,& 6 1.0_dp , 6 0.949398861_dp , 0.000040787_dp ,& 6 2.0_dp , 6 1.944189639_dp , 0.000000684_dp ,& 6 3.0_dp , 6 2.939294194_dp , 0.000001400_dp ,& 6 4.0_dp , 6 3.936840366_dp , 0.000001533_dp ,& 6 5.0_dp , 6 4.932734424_dp , 0.000000849_dp ,& 6 6.0_dp , 6 5.931589766_dp , 0.000001172_dp ,& 6 7.0_dp , 6 6.928202276_dp , 0.000001262_dp ,& 6 8.0_dp , 6 7.927980161_dp , 0.000001535_dp ,& 6 9.0_dp , 6 8.925573528_dp , 0.000001285_dp ,& 7 0.0_dp , 6 9.926021914_dp , 0.000001289_dp ,& 7 1.0_dp , 7 0.924702554_dp , 0.000000870_dp ,& 7 2.0_dp , 7 1.926367452_dp , 0.000000878_dp ,& 7 3.0_dp , 7 2.925174680_dp , 0.000001800_dp ,& 7 4.0_dp , 7 3.926945725_dp , 0.000003214_dp ,& 7 5.0_dp , 7 4.926504484_dp , 0.000000720_dp ,& 7 6.0_dp , 7 5.928827624_dp , 0.000002100_dp ,& 7 7.0_dp , 7 6.929154299_dp , 0.000002600_dp ,& 7 8.0_dp , 7 7.931610854_dp , 0.000001127_dp ,& 7 9.0_dp , 7 8.932851582_dp , 0.000001296_dp ,& 8 0.0_dp , 7 9.936420773_dp , 0.000003103_dp ,& 8 1.0_dp , 8 0.938133841_dp , 0.000003503_dp ,& 8 2.0_dp , 8 1.943176531_dp , 0.000002604_dp ,& 8 3.0_dp , 8 2.947120300_dp , 0.000002804_dp ,& 8 4.0_dp , 8 3.952663000_dp , 0.000032000_dp ,& 8 5.0_dp , 8 4.957333000_dp , 0.000040000_dp ,& 8 6.0_dp , 8 5.963757_dp , 0.000429_dp ,& 8 7.0_dp , 8 6.969007_dp , 0.000537_dp ,& 8 8.0_dp , 8 7.975963_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ge_naw = & naw_type ( 33 , transpose ( reshape ([& 5 8.0_dp , 5 7.991863_dp , 0.000537_dp ,& 5 9.0_dp , 5 8.982426_dp , 0.000429_dp ,& 6 0.0_dp , 5 9.970445_dp , 0.000322_dp ,& 6 1.0_dp , 6 0.963725_dp , 0.000322_dp ,& 6 2.0_dp , 6 1.954761_dp , 0.000150_dp ,& 6 3.0_dp , 6 2.949628000_dp , 0.000040000_dp ,& 6 4.0_dp , 6 3.941689912_dp , 0.000004000_dp ,& 6 5.0_dp , 6 4.939368136_dp , 0.000002323_dp ,& 6 6.0_dp , 6 5.933862124_dp , 0.000002577_dp ,& 6 7.0_dp , 6 6.932716999_dp , 0.000004636_dp ,& 6 8.0_dp , 6 7.928095305_dp , 0.000002014_dp ,& 6 9.0_dp , 6 8.927964467_dp , 0.000001414_dp ,& 7 0.0_dp , 6 9.924248542_dp , 0.000000880_dp ,& 7 1.0_dp , 7 0.924952120_dp , 0.000000874_dp ,& 7 2.0_dp , 7 1.922075824_dp , 0.000000081_dp ,& 7 3.0_dp , 7 2.923458954_dp , 0.000000061_dp ,& 7 4.0_dp , 7 3.921177760_dp , 0.000000013_dp ,& 7 5.0_dp , 7 4.922858370_dp , 0.000000055_dp ,& 7 6.0_dp , 7 5.921402725_dp , 0.000000019_dp ,& 7 7.0_dp , 7 6.923549843_dp , 0.000000056_dp ,& 7 8.0_dp , 7 7.922852911_dp , 0.000003795_dp ,& 7 9.0_dp , 7 8.925359506_dp , 0.000039893_dp ,& 8 0.0_dp , 7 9.925350773_dp , 0.000002205_dp ,& 8 1.0_dp , 8 0.928832941_dp , 0.000002205_dp ,& 8 2.0_dp , 8 1.929774031_dp , 0.000002405_dp ,& 8 3.0_dp , 8 2.934539100_dp , 0.000002604_dp ,& 8 4.0_dp , 8 3.937575090_dp , 0.000003403_dp ,& 8 5.0_dp , 8 4.942969658_dp , 0.000004003_dp ,& 8 6.0_dp , 8 5.946967000_dp , 0.000470000_dp ,& 8 7.0_dp , 8 6.953204_dp , 0.000322_dp ,& 8 8.0_dp , 8 7.957574_dp , 0.000429_dp ,& 8 9.0_dp , 8 8.964530_dp , 0.000429_dp ,& 9 0.0_dp , 8 9.969436_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: As_naw = & naw_type ( 33 , transpose ( reshape ([& 6 0.0_dp , 5 9.993945_dp , 0.000429_dp ,& 6 1.0_dp , 6 0.981535_dp , 0.000322_dp ,& 6 2.0_dp , 6 1.973784_dp , 0.000322_dp ,& 6 3.0_dp , 6 2.964036_dp , 0.000215_dp ,& 6 4.0_dp , 6 3.957560_dp , 0.000218_dp ,& 6 5.0_dp , 6 4.949611000_dp , 0.000091000_dp ,& 6 6.0_dp , 6 5.944148778_dp , 0.000006100_dp ,& 6 7.0_dp , 6 6.939251110_dp , 0.000000475_dp ,& 6 8.0_dp , 6 7.936774127_dp , 0.000001981_dp ,& 6 9.0_dp , 6 8.932246289_dp , 0.000034352_dp ,& 7 0.0_dp , 6 9.930934642_dp , 0.000001500_dp ,& 7 1.0_dp , 7 0.927113594_dp , 0.000004469_dp ,& 7 2.0_dp , 7 1.926752291_dp , 0.000004383_dp ,& 7 3.0_dp , 7 2.923829086_dp , 0.000004136_dp ,& 7 4.0_dp , 7 3.923928596_dp , 0.000001817_dp ,& 7 5.0_dp , 7 4.921594562_dp , 0.000000948_dp ,& 7 6.0_dp , 7 5.922392011_dp , 0.000000951_dp ,& 7 7.0_dp , 7 6.920647555_dp , 0.000001816_dp ,& 7 8.0_dp , 7 7.921827771_dp , 0.000010498_dp ,& 7 9.0_dp , 7 8.920948419_dp , 0.000005716_dp ,& 8 0.0_dp , 7 9.922474440_dp , 0.000003578_dp ,& 8 1.0_dp , 8 0.922132288_dp , 0.000002838_dp ,& 8 2.0_dp , 8 1.924738731_dp , 0.000004003_dp ,& 8 3.0_dp , 8 2.925206900_dp , 0.000003004_dp ,& 8 4.0_dp , 8 3.929303290_dp , 0.000003403_dp ,& 8 5.0_dp , 8 4.932163658_dp , 0.000003304_dp ,& 8 6.0_dp , 8 5.936701532_dp , 0.000003703_dp ,& 8 7.0_dp , 8 6.940291716_dp , 0.000003204_dp ,& 8 8.0_dp , 8 7.945840_dp , 0.000215_dp ,& 8 9.0_dp , 8 8.950048_dp , 0.000322_dp ,& 9 0.0_dp , 8 9.955995_dp , 0.000429_dp ,& 9 1.0_dp , 9 0.960816_dp , 0.000429_dp ,& 9 2.0_dp , 9 1.967386_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Se_naw = & naw_type ( 33 , transpose ( reshape ([& 6 3.0_dp , 6 2.981911_dp , 0.000537_dp ,& 6 4.0_dp , 6 3.971165_dp , 0.000537_dp ,& 6 5.0_dp , 6 4.964552_dp , 0.000322_dp ,& 6 6.0_dp , 6 5.955276_dp , 0.000215_dp ,& 6 7.0_dp , 6 6.949994000_dp , 0.000072000_dp ,& 6 8.0_dp , 6 7.941825236_dp , 0.000000532_dp ,& 6 9.0_dp , 6 8.939414845_dp , 0.000001599_dp ,& 7 0.0_dp , 6 9.933515521_dp , 0.000001700_dp ,& 7 1.0_dp , 7 0.932209431_dp , 0.000003000_dp ,& 7 2.0_dp , 7 1.927140506_dp , 0.000002100_dp ,& 7 3.0_dp , 7 2.926754881_dp , 0.000007969_dp ,& 7 4.0_dp , 7 3.922475933_dp , 0.000000015_dp ,& 7 5.0_dp , 7 4.922522870_dp , 0.000000078_dp ,& 7 6.0_dp , 7 5.919213702_dp , 0.000000017_dp ,& 7 7.0_dp , 7 6.919914150_dp , 0.000000067_dp ,& 7 8.0_dp , 7 7.917309244_dp , 0.000000191_dp ,& 7 9.0_dp , 7 8.918499252_dp , 0.000000238_dp ,& 8 0.0_dp , 7 9.916521761_dp , 0.000001016_dp ,& 8 1.0_dp , 8 0.917993019_dp , 0.000001049_dp ,& 8 2.0_dp , 8 1.916699531_dp , 0.000000500_dp ,& 8 3.0_dp , 8 2.919118604_dp , 0.000003259_dp ,& 8 4.0_dp , 8 3.918466761_dp , 0.000002105_dp ,& 8 5.0_dp , 8 4.922260758_dp , 0.000002804_dp ,& 8 6.0_dp , 8 5.924311732_dp , 0.000002705_dp ,& 8 7.0_dp , 8 6.928688616_dp , 0.000002405_dp ,& 8 8.0_dp , 8 7.931417490_dp , 0.000003604_dp ,& 8 9.0_dp , 8 8.936669058_dp , 0.000004003_dp ,& 9 0.0_dp , 8 9.940096000_dp , 0.000354000_dp ,& 9 1.0_dp , 9 0.945700000_dp , 0.000465000_dp ,& 9 2.0_dp , 9 1.949840_dp , 0.000429_dp ,& 9 3.0_dp , 9 2.956135_dp , 0.000429_dp ,& 9 4.0_dp , 9 3.960490_dp , 0.000537_dp ,& 9 5.0_dp , 9 4.967300_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Br_naw = & naw_type ( 34 , transpose ( reshape ([& 6 5.0_dp , 6 4.982297_dp , 0.000537_dp ,& 6 6.0_dp , 6 5.974697_dp , 0.000429_dp ,& 6 7.0_dp , 6 6.965078_dp , 0.000322_dp ,& 6 8.0_dp , 6 7.958356_dp , 0.000278_dp ,& 6 9.0_dp , 6 8.950338410_dp , 0.000045091_dp ,& 7 0.0_dp , 6 9.944792321_dp , 0.000016000_dp ,& 7 1.0_dp , 7 0.939342153_dp , 0.000005799_dp ,& 7 2.0_dp , 7 1.936594606_dp , 0.000001100_dp ,& 7 3.0_dp , 7 2.931673441_dp , 0.000007237_dp ,& 7 4.0_dp , 7 3.929910279_dp , 0.000006264_dp ,& 7 5.0_dp , 7 4.925810566_dp , 0.000004600_dp ,& 7 6.0_dp , 7 5.924541574_dp , 0.000010007_dp ,& 7 7.0_dp , 7 6.921379193_dp , 0.000003017_dp ,& 7 8.0_dp , 7 7.921145858_dp , 0.000003842_dp ,& 7 9.0_dp , 7 8.918337574_dp , 0.000001074_dp ,& 8 0.0_dp , 7 9.918529784_dp , 0.000001065_dp ,& 8 1.0_dp , 8 0.916288197_dp , 0.000001049_dp ,& 8 2.0_dp , 8 1.916801752_dp , 0.000001042_dp ,& 8 3.0_dp , 8 2.915175285_dp , 0.000004073_dp ,& 8 4.0_dp , 8 3.916496417_dp , 0.000027622_dp ,& 8 5.0_dp , 8 4.915645758_dp , 0.000003304_dp ,& 8 6.0_dp , 8 5.918805432_dp , 0.000003304_dp ,& 8 7.0_dp , 8 6.920674016_dp , 0.000003404_dp ,& 8 8.0_dp , 8 7.924083290_dp , 0.000003404_dp ,& 8 9.0_dp , 8 8.926704558_dp , 0.000003504_dp ,& 9 0.0_dp , 8 9.931292848_dp , 0.000003604_dp ,& 9 1.0_dp , 9 0.934398617_dp , 0.000003804_dp ,& 9 2.0_dp , 9 1.939631595_dp , 0.000007202_dp ,& 9 3.0_dp , 9 2.943220000_dp , 0.000462500_dp ,& 9 4.0_dp , 9 3.948846_dp , 0.000215_dp ,& 9 5.0_dp , 9 4.952925_dp , 0.000322_dp ,& 9 6.0_dp , 9 5.958980_dp , 0.000322_dp ,& 9 7.0_dp , 9 6.963499_dp , 0.000429_dp ,& 9 8.0_dp , 9 7.969887_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Kr_naw = & naw_type ( 35 , transpose ( reshape ([& 6 7.0_dp , 6 6.983305_dp , 0.000455_dp ,& 6 8.0_dp , 6 7.972489_dp , 0.000537_dp ,& 6 9.0_dp , 6 8.965496_dp , 0.000322_dp ,& 7 0.0_dp , 6 9.955877_dp , 0.000215_dp ,& 7 1.0_dp , 7 0.950265695_dp , 0.000138238_dp ,& 7 2.0_dp , 7 1.942092406_dp , 0.000008600_dp ,& 7 3.0_dp , 7 2.939289193_dp , 0.000007061_dp ,& 7 4.0_dp , 7 3.933084016_dp , 0.000002161_dp ,& 7 5.0_dp , 7 4.930945744_dp , 0.000008700_dp ,& 7 6.0_dp , 7 5.925910743_dp , 0.000004308_dp ,& 7 7.0_dp , 7 6.924669999_dp , 0.000002100_dp ,& 7 8.0_dp , 7 7.920366341_dp , 0.000000329_dp ,& 7 9.0_dp , 7 8.920082919_dp , 0.000003736_dp ,& 8 0.0_dp , 7 9.916377940_dp , 0.000000745_dp ,& 8 1.0_dp , 8 0.916589703_dp , 0.000001152_dp ,& 8 2.0_dp , 8 1.91348115368_dp , 0.00000000591_dp ,& 8 3.0_dp , 8 2.914126516_dp , 0.000000009_dp ,& 8 4.0_dp , 8 3.91149772708_dp , 0.00000000410_dp ,& 8 5.0_dp , 8 4.912527260_dp , 0.000002147_dp ,& 8 6.0_dp , 8 5.91061062468_dp , 0.00000000399_dp ,& 8 7.0_dp , 8 6.913354759_dp , 0.000000264_dp ,& 8 8.0_dp , 8 7.914447879_dp , 0.000002800_dp ,& 8 9.0_dp , 8 8.917835449_dp , 0.000002300_dp ,& 9 0.0_dp , 8 9.919527929_dp , 0.000002000_dp ,& 9 1.0_dp , 9 0.923806309_dp , 0.000002400_dp ,& 9 2.0_dp , 9 1.926173092_dp , 0.000002900_dp ,& 9 3.0_dp , 9 2.931147172_dp , 0.000002700_dp ,& 9 4.0_dp , 9 3.934140452_dp , 0.000013000_dp ,& 9 5.0_dp , 9 4.939710922_dp , 0.000020000_dp ,& 9 6.0_dp , 9 5.943014473_dp , 0.000020695_dp ,& 9 7.0_dp , 9 6.949088782_dp , 0.000140000_dp ,& 9 8.0_dp , 9 7.952635_dp , 0.000322_dp ,& 9 9.0_dp , 9 8.958776_dp , 0.000429_dp ,& 10 0.0_dp , 9 9.962995_dp , 0.000429_dp ,& 10 1.0_dp , 10 0.969318_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Rb_naw = & naw_type ( 34 , transpose ( reshape ([& 7 1.0_dp , 7 0.965335_dp , 0.000429_dp ,& 7 2.0_dp , 7 1.958851_dp , 0.000537_dp ,& 7 3.0_dp , 7 2.950604506_dp , 0.000043794_dp ,& 7 4.0_dp , 7 3.944265867_dp , 0.000003249_dp ,& 7 5.0_dp , 7 4.938573200_dp , 0.000001266_dp ,& 7 6.0_dp , 7 5.935073031_dp , 0.000001006_dp ,& 7 7.0_dp , 7 6.930401599_dp , 0.000001400_dp ,& 7 8.0_dp , 7 7.928141866_dp , 0.000003475_dp ,& 7 9.0_dp , 7 8.923990095_dp , 0.000002085_dp ,& 8 0.0_dp , 7 9.922516442_dp , 0.000002000_dp ,& 8 1.0_dp , 8 0.918993900_dp , 0.000005265_dp ,& 8 2.0_dp , 8 1.918209023_dp , 0.000003230_dp ,& 8 3.0_dp , 8 2.915114181_dp , 0.000002500_dp ,& 8 4.0_dp , 8 3.914375223_dp , 0.000002355_dp ,& 8 5.0_dp , 8 4.91178973604_dp , 0.00000000537_dp ,& 8 6.0_dp , 8 5.911167443_dp , 0.000000214_dp ,& 8 7.0_dp , 8 6.909180529_dp , 0.000000006_dp ,& 8 8.0_dp , 8 7.911315590_dp , 0.000000170_dp ,& 8 9.0_dp , 8 8.912278136_dp , 0.000005825_dp ,& 9 0.0_dp , 8 9.914797557_dp , 0.000006926_dp ,& 9 1.0_dp , 9 0.916537261_dp , 0.000008375_dp ,& 9 2.0_dp , 9 1.919728477_dp , 0.000006573_dp ,& 9 3.0_dp , 9 2.922039334_dp , 0.000008406_dp ,& 9 4.0_dp , 9 3.926394819_dp , 0.000002177_dp ,& 9 5.0_dp , 9 4.929263849_dp , 0.000021733_dp ,& 9 6.0_dp , 9 5.934133398_dp , 0.000003599_dp ,& 9 7.0_dp , 9 6.937177117_dp , 0.000002052_dp ,& 9 8.0_dp , 9 7.941632317_dp , 0.000017265_dp ,& 9 9.0_dp , 9 8.945119190_dp , 0.000004327_dp ,& 10 0.0_dp , 9 9.950331532_dp , 0.000014089_dp ,& 10 1.0_dp , 10 0.954302000_dp , 0.000022000_dp ,& 10 2.0_dp , 10 1.960008000_dp , 0.000089000_dp ,& 10 3.0_dp , 10 2.964401_dp , 0.000429_dp ,& 10 4.0_dp , 10 3.970531_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sr_naw = & naw_type ( 35 , transpose ( reshape ([& 7 3.0_dp , 7 2.965700_dp , 0.000430_dp ,& 7 4.0_dp , 7 3.956170_dp , 0.000107_dp ,& 7 5.0_dp , 7 4.949952767_dp , 0.000236183_dp ,& 7 6.0_dp , 7 5.941762760_dp , 0.000037000_dp ,& 7 7.0_dp , 7 6.937945454_dp , 0.000008500_dp ,& 7 8.0_dp , 7 7.932179979_dp , 0.000008000_dp ,& 7 9.0_dp , 7 8.929704692_dp , 0.000007967_dp ,& 8 0.0_dp , 7 9.924517538_dp , 0.000003718_dp ,& 8 1.0_dp , 8 0.923211393_dp , 0.000003358_dp ,& 8 2.0_dp , 8 1.918399845_dp , 0.000006432_dp ,& 8 3.0_dp , 8 2.917554372_dp , 0.000007336_dp ,& 8 4.0_dp , 8 3.913419118_dp , 0.000001334_dp ,& 8 5.0_dp , 8 4.912932041_dp , 0.000003020_dp ,& 8 6.0_dp , 8 5.90926072473_dp , 0.00000000563_dp ,& 8 7.0_dp , 8 6.90887749454_dp , 0.00000000550_dp ,& 8 8.0_dp , 8 7.905612253_dp , 0.000000006_dp ,& 8 9.0_dp , 8 8.907450808_dp , 0.000000098_dp ,& 9 0.0_dp , 8 9.907727870_dp , 0.000001555_dp ,& 9 1.0_dp , 9 0.910195942_dp , 0.000005853_dp ,& 9 2.0_dp , 9 1.911038222_dp , 0.000003675_dp ,& 9 3.0_dp , 9 2.914024314_dp , 0.000008109_dp ,& 9 4.0_dp , 9 3.915355641_dp , 0.000001785_dp ,& 9 5.0_dp , 9 4.919358282_dp , 0.000006237_dp ,& 9 6.0_dp , 9 5.921719045_dp , 0.000009089_dp ,& 9 7.0_dp , 9 6.926375621_dp , 0.000003633_dp ,& 9 8.0_dp , 9 7.928692636_dp , 0.000003463_dp ,& 9 9.0_dp , 9 8.932883604_dp , 0.000005085_dp ,& 10 0.0_dp , 9 9.935783270_dp , 0.000007426_dp ,& 10 1.0_dp , 10 0.940606264_dp , 0.000009103_dp ,& 10 2.0_dp , 10 1.944004679_dp , 0.000072000_dp ,& 10 3.0_dp , 10 2.949243_dp , 0.000215_dp ,& 10 4.0_dp , 10 3.953022_dp , 0.000322_dp ,& 10 5.0_dp , 10 4.959001_dp , 0.000537_dp ,& 10 6.0_dp , 10 5.963177_dp , 0.000644_dp ,& 10 7.0_dp , 10 6.969672_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Y_naw = & naw_type ( 35 , transpose ( reshape ([& 7 5.0_dp , 7 4.965840_dp , 0.000322_dp ,& 7 6.0_dp , 7 5.958937_dp , 0.000322_dp ,& 7 7.0_dp , 7 6.950146_dp , 0.000218_dp ,& 7 8.0_dp , 7 7.943990_dp , 0.000320_dp ,& 7 9.0_dp , 7 8.937946000_dp , 0.000086000_dp ,& 8 0.0_dp , 7 9.934354750_dp , 0.000006701_dp ,& 8 1.0_dp , 8 0.929454283_dp , 0.000005802_dp ,& 8 2.0_dp , 8 1.926930189_dp , 0.000005902_dp ,& 8 3.0_dp , 8 2.922484026_dp , 0.000020000_dp ,& 8 4.0_dp , 8 3.920671060_dp , 0.000004615_dp ,& 8 5.0_dp , 8 4.916433039_dp , 0.000020360_dp ,& 8 6.0_dp , 8 5.914886095_dp , 0.000015182_dp ,& 8 7.0_dp , 8 6.910876100_dp , 0.000001210_dp ,& 8 8.0_dp , 8 7.909501274_dp , 0.000001610_dp ,& 8 9.0_dp , 8 8.905838156_dp , 0.000000363_dp ,& 9 0.0_dp , 8 9.907141749_dp , 0.000000379_dp ,& 9 1.0_dp , 9 0.907298048_dp , 0.000001978_dp ,& 9 2.0_dp , 9 1.908945752_dp , 0.000009798_dp ,& 9 3.0_dp , 9 2.909578434_dp , 0.000011259_dp ,& 9 4.0_dp , 9 3.911592062_dp , 0.000006849_dp ,& 9 5.0_dp , 9 4.912819697_dp , 0.000007277_dp ,& 9 6.0_dp , 9 5.915909305_dp , 0.000006521_dp ,& 9 7.0_dp , 9 6.918286702_dp , 0.000007201_dp ,& 9 8.0_dp , 9 7.922394841_dp , 0.000008501_dp ,& 9 9.0_dp , 9 8.924160839_dp , 0.000007101_dp ,& 10 0.0_dp , 9 9.927727678_dp , 0.000012000_dp ,& 10 1.0_dp , 10 0.930160817_dp , 0.000007601_dp ,& 10 2.0_dp , 10 1.934328471_dp , 0.000004381_dp ,& 10 3.0_dp , 10 2.937243796_dp , 0.000012029_dp ,& 10 4.0_dp , 10 3.941943_dp , 0.000215_dp ,& 10 5.0_dp , 10 4.945711_dp , 0.000429_dp ,& 10 6.0_dp , 10 5.950842_dp , 0.000537_dp ,& 10 7.0_dp , 10 6.954943_dp , 0.000537_dp ,& 10 8.0_dp , 10 7.960515_dp , 0.000644_dp ,& 10 9.0_dp , 10 8.965131_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Zr_naw = & naw_type ( 37 , transpose ( reshape ([& 7 7.0_dp , 7 6.966076_dp , 0.000429_dp ,& 7 8.0_dp , 7 7.956146_dp , 0.000429_dp ,& 7 9.0_dp , 7 8.949790_dp , 0.000322_dp ,& 8 0.0_dp , 7 9.941213_dp , 0.000322_dp ,& 8 1.0_dp , 8 0.938245000_dp , 0.000099000_dp ,& 8 2.0_dp , 8 1.931707497_dp , 0.000001700_dp ,& 8 3.0_dp , 8 2.929240926_dp , 0.000006902_dp ,& 8 4.0_dp , 8 3.923325663_dp , 0.000005903_dp ,& 8 5.0_dp , 8 4.921443199_dp , 0.000006902_dp ,& 8 6.0_dp , 8 5.916296814_dp , 0.000003827_dp ,& 8 7.0_dp , 8 6.914817338_dp , 0.000004450_dp ,& 8 8.0_dp , 8 7.910220715_dp , 0.000005800_dp ,& 8 9.0_dp , 8 8.908879751_dp , 0.000002983_dp ,& 9 0.0_dp , 8 9.904698755_dp , 0.000000126_dp ,& 9 1.0_dp , 9 0.905640205_dp , 0.000000101_dp ,& 9 2.0_dp , 9 1.905035336_dp , 0.000000101_dp ,& 9 3.0_dp , 9 2.906470661_dp , 0.000000489_dp ,& 9 4.0_dp , 9 3.906312523_dp , 0.000000175_dp ,& 9 5.0_dp , 9 4.908040276_dp , 0.000000933_dp ,& 9 6.0_dp , 9 5.908277615_dp , 0.000000122_dp ,& 9 7.0_dp , 9 6.910963802_dp , 0.000000130_dp ,& 9 8.0_dp , 9 7.912740448_dp , 0.000009065_dp ,& 9 9.0_dp , 9 8.916675081_dp , 0.000011271_dp ,& 10 0.0_dp , 9 9.918010499_dp , 0.000008742_dp ,& 10 1.0_dp , 10 0.921458454_dp , 0.000008944_dp ,& 10 2.0_dp , 10 1.923154181_dp , 0.000009401_dp ,& 10 3.0_dp , 10 2.927204054_dp , 0.000009900_dp ,& 10 4.0_dp , 10 3.929449193_dp , 0.000010000_dp ,& 10 5.0_dp , 10 4.934021832_dp , 0.000013000_dp ,& 10 6.0_dp , 10 5.936930_dp , 0.000215_dp ,& 10 7.0_dp , 10 6.942007_dp , 0.000322_dp ,& 10 8.0_dp , 10 7.945303_dp , 0.000429_dp ,& 10 9.0_dp , 10 8.950907_dp , 0.000537_dp ,& 11 0.0_dp , 10 9.954675_dp , 0.000537_dp ,& 11 1.0_dp , 11 0.960837_dp , 0.000644_dp ,& 11 2.0_dp , 11 1.965196_dp , 0.000751_dp ,& 11 3.0_dp , 11 2.971723_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Nb_naw = & naw_type ( 38 , transpose ( reshape ([& 7 9.0_dp , 7 8.966022_dp , 0.000537_dp ,& 8 0.0_dp , 7 9.958754_dp , 0.000429_dp ,& 8 1.0_dp , 8 0.950230_dp , 0.000429_dp ,& 8 2.0_dp , 8 1.944380_dp , 0.000322_dp ,& 8 3.0_dp , 8 2.938150000_dp , 0.000174000_dp ,& 8 4.0_dp , 8 3.934305711_dp , 0.000000430_dp ,& 8 5.0_dp , 8 4.928845836_dp , 0.000004400_dp ,& 8 6.0_dp , 8 5.925781536_dp , 0.000005903_dp ,& 8 7.0_dp , 8 6.920692473_dp , 0.000007302_dp ,& 8 8.0_dp , 8 7.918226476_dp , 0.000062059_dp ,& 8 9.0_dp , 8 8.913444696_dp , 0.000025367_dp ,& 9 0.0_dp , 8 9.911259201_dp , 0.000003561_dp ,& 9 1.0_dp , 9 0.906990256_dp , 0.000003140_dp ,& 9 2.0_dp , 9 1.907188580_dp , 0.000001915_dp ,& 9 3.0_dp , 9 2.906373170_dp , 0.000001599_dp ,& 9 4.0_dp , 9 3.907279001_dp , 0.000001600_dp ,& 9 5.0_dp , 9 4.906831110_dp , 0.000000545_dp ,& 9 6.0_dp , 9 5.908101586_dp , 0.000000157_dp ,& 9 7.0_dp , 9 6.908101622_dp , 0.000004556_dp ,& 9 8.0_dp , 9 7.910332645_dp , 0.000005369_dp ,& 9 9.0_dp , 9 8.911609377_dp , 0.000012886_dp ,& 10 0.0_dp , 9 9.914340578_dp , 0.000008562_dp ,& 10 1.0_dp , 10 0.915306508_dp , 0.000004024_dp ,& 10 2.0_dp , 10 1.918090447_dp , 0.000002695_dp ,& 10 3.0_dp , 10 2.919453416_dp , 0.000004224_dp ,& 10 4.0_dp , 10 3.922907728_dp , 0.000001915_dp ,& 10 5.0_dp , 10 4.924942577_dp , 0.000004324_dp ,& 10 6.0_dp , 10 5.928928505_dp , 0.000001520_dp ,& 10 7.0_dp , 10 6.931589685_dp , 0.000008612_dp ,& 10 8.0_dp , 10 7.936075604_dp , 0.000008844_dp ,& 10 9.0_dp , 10 8.939141000_dp , 0.000462500_dp ,& 11 0.0_dp , 10 9.943843000_dp , 0.000900000_dp ,& 11 1.0_dp , 11 0.947439_dp , 0.000322_dp ,& 11 2.0_dp , 11 1.952689_dp , 0.000322_dp ,& 11 3.0_dp , 11 2.956833_dp , 0.000429_dp ,& 11 4.0_dp , 11 3.962469_dp , 0.000537_dp ,& 11 5.0_dp , 11 4.966849_dp , 0.000537_dp ,& 11 6.0_dp , 11 5.972914_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Mo_naw = & naw_type ( 39 , transpose ( reshape ([& 8 1.0_dp , 8 0.966226_dp , 0.000537_dp ,& 8 2.0_dp , 8 1.956661_dp , 0.000429_dp ,& 8 3.0_dp , 8 2.950252_dp , 0.000430_dp ,& 8 4.0_dp , 8 3.941846_dp , 0.000320_dp ,& 8 5.0_dp , 8 4.938260736_dp , 0.000017000_dp ,& 8 6.0_dp , 8 5.931174092_dp , 0.000003147_dp ,& 8 7.0_dp , 8 6.928196198_dp , 0.000003067_dp ,& 8 8.0_dp , 8 7.921967779_dp , 0.000004100_dp ,& 8 9.0_dp , 8 8.919468149_dp , 0.000004200_dp ,& 9 0.0_dp , 8 9.913931270_dp , 0.000003717_dp ,& 9 1.0_dp , 9 0.911745190_dp , 0.000006696_dp ,& 9 2.0_dp , 9 1.906807153_dp , 0.000000168_dp ,& 9 3.0_dp , 9 2.906808772_dp , 0.000000193_dp ,& 9 4.0_dp , 9 3.905083586_dp , 0.000000151_dp ,& 9 5.0_dp , 9 4.905837436_dp , 0.000000132_dp ,& 9 6.0_dp , 9 5.904674770_dp , 0.000000128_dp ,& 9 7.0_dp , 9 6.906016903_dp , 0.000000176_dp ,& 9 8.0_dp , 9 7.905403609_dp , 0.000000186_dp ,& 9 9.0_dp , 9 8.907707299_dp , 0.000000245_dp ,& 10 0.0_dp , 9 9.907467982_dp , 0.000000322_dp ,& 10 1.0_dp , 10 0.910337648_dp , 0.000000331_dp ,& 10 2.0_dp , 10 1.910293725_dp , 0.000008916_dp ,& 10 3.0_dp , 10 2.913091954_dp , 0.000009900_dp ,& 10 4.0_dp , 10 3.913747443_dp , 0.000009566_dp ,& 10 5.0_dp , 10 4.916981989_dp , 0.000009721_dp ,& 10 6.0_dp , 10 5.918273231_dp , 0.000009801_dp ,& 10 7.0_dp , 10 6.922119770_dp , 0.000009901_dp ,& 10 8.0_dp , 10 7.924047508_dp , 0.000009901_dp ,& 10 9.0_dp , 10 8.928438318_dp , 0.000012000_dp ,& 11 0.0_dp , 10 9.930717956_dp , 0.000026000_dp ,& 11 1.0_dp , 11 0.935651966_dp , 0.000013503_dp ,& 11 2.0_dp , 11 1.938293_dp , 0.000215_dp ,& 11 3.0_dp , 11 2.943478_dp , 0.000322_dp ,& 11 4.0_dp , 11 3.946666_dp , 0.000322_dp ,& 11 5.0_dp , 11 4.952174_dp , 0.000429_dp ,& 11 6.0_dp , 11 5.955759_dp , 0.000537_dp ,& 11 7.0_dp , 11 6.961686_dp , 0.000537_dp ,& 11 8.0_dp , 11 7.965249_dp , 0.000537_dp ,& 11 9.0_dp , 11 8.971465_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Tc_naw = & naw_type ( 40 , transpose ( reshape ([& 8 3.0_dp , 8 2.966377_dp , 0.000537_dp ,& 8 4.0_dp , 8 3.959527_dp , 0.000429_dp ,& 8 5.0_dp , 8 4.950778_dp , 0.000429_dp ,& 8 6.0_dp , 8 5.944637_dp , 0.000322_dp ,& 8 7.0_dp , 8 6.938067185_dp , 0.000004500_dp ,& 8 8.0_dp , 8 7.933794211_dp , 0.000004400_dp ,& 8 9.0_dp , 8 8.927648649_dp , 0.000004100_dp ,& 9 0.0_dp , 8 9.924073919_dp , 0.000001100_dp ,& 9 1.0_dp , 9 0.918424972_dp , 0.000002536_dp ,& 9 2.0_dp , 9 1.915269777_dp , 0.000003330_dp ,& 9 3.0_dp , 9 2.910245147_dp , 0.000001086_dp ,& 9 4.0_dp , 9 3.909652319_dp , 0.000004370_dp ,& 9 5.0_dp , 9 4.907652281_dp , 0.000005453_dp ,& 9 6.0_dp , 9 5.907866675_dp , 0.000005524_dp ,& 9 7.0_dp , 9 6.906360720_dp , 0.000004420_dp ,& 9 8.0_dp , 9 7.907211206_dp , 0.000003628_dp ,& 9 9.0_dp , 9 8.906249681_dp , 0.000000974_dp ,& 10 0.0_dp , 9 9.907652715_dp , 0.000001450_dp ,& 10 1.0_dp , 10 0.907305271_dp , 0.000025768_dp ,& 10 2.0_dp , 10 1.909207239_dp , 0.000009840_dp ,& 10 3.0_dp , 10 2.909173960_dp , 0.000010531_dp ,& 10 4.0_dp , 10 3.911433718_dp , 0.000026716_dp ,& 10 5.0_dp , 10 4.911662024_dp , 0.000037856_dp ,& 10 6.0_dp , 10 5.914356674_dp , 0.000013150_dp ,& 10 7.0_dp , 10 6.915458437_dp , 0.000009310_dp ,& 10 8.0_dp , 10 7.918493493_dp , 0.000009413_dp ,& 10 9.0_dp , 10 8.920254107_dp , 0.000010380_dp ,& 11 0.0_dp , 10 9.923741263_dp , 0.000010195_dp ,& 11 1.0_dp , 11 0.925898966_dp , 0.000011359_dp ,& 11 2.0_dp , 11 1.929941658_dp , 0.000005920_dp ,& 11 3.0_dp , 11 2.932569032_dp , 0.000003600_dp ,& 11 4.0_dp , 11 3.937090000_dp , 0.000465000_dp ,& 11 5.0_dp , 11 4.940100_dp , 0.000210_dp ,& 11 6.0_dp , 11 5.945020_dp , 0.000320_dp ,& 11 7.0_dp , 11 6.948320_dp , 0.000429_dp ,& 11 8.0_dp , 11 7.953526_dp , 0.000429_dp ,& 11 9.0_dp , 11 8.956876_dp , 0.000537_dp ,& 12 0.0_dp , 11 9.962426_dp , 0.000537_dp ,& 12 1.0_dp , 12 0.966140_dp , 0.000537_dp ,& 12 2.0_dp , 12 1.971760_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ru_naw = & naw_type ( 41 , transpose ( reshape ([& 8 5.0_dp , 8 4.967117_dp , 0.000537_dp ,& 8 6.0_dp , 8 5.957305_dp , 0.000429_dp ,& 8 7.0_dp , 8 6.950907_dp , 0.000429_dp ,& 8 8.0_dp , 8 7.941664_dp , 0.000322_dp ,& 8 9.0_dp , 8 8.937337849_dp , 0.000026000_dp ,& 9 0.0_dp , 8 9.930344378_dp , 0.000004004_dp ,& 9 1.0_dp , 9 0.926741530_dp , 0.000002384_dp ,& 9 2.0_dp , 9 1.920234373_dp , 0.000002917_dp ,& 9 3.0_dp , 9 2.917104442_dp , 0.000002216_dp ,& 9 4.0_dp , 9 3.911342860_dp , 0.000003374_dp ,& 9 5.0_dp , 9 4.910404415_dp , 0.000010200_dp ,& 9 6.0_dp , 9 5.907588910_dp , 0.000000182_dp ,& 9 7.0_dp , 9 6.907545776_dp , 0.000002965_dp ,& 9 8.0_dp , 9 7.905286709_dp , 0.000006937_dp ,& 9 9.0_dp , 9 8.905930284_dp , 0.000000368_dp ,& 10 0.0_dp , 9 9.904210460_dp , 0.000000367_dp ,& 10 1.0_dp , 10 0.905573086_dp , 0.000000443_dp ,& 10 2.0_dp , 10 1.904340312_dp , 0.000000446_dp ,& 10 3.0_dp , 10 2.906314846_dp , 0.000000473_dp ,& 10 4.0_dp , 10 3.905425312_dp , 0.000002682_dp ,& 10 5.0_dp , 10 4.907745478_dp , 0.000002683_dp ,& 10 6.0_dp , 10 5.907328181_dp , 0.000005787_dp ,& 10 7.0_dp , 10 6.909969837_dp , 0.000009310_dp ,& 10 8.0_dp , 10 7.910185793_dp , 0.000009318_dp ,& 10 9.0_dp , 10 8.913323707_dp , 0.000009612_dp ,& 11 0.0_dp , 10 9.914038501_dp , 0.000009580_dp ,& 11 1.0_dp , 11 0.917567566_dp , 0.000010394_dp ,& 11 2.0_dp , 11 1.918806922_dp , 0.000010305_dp ,& 11 3.0_dp , 11 2.922846729_dp , 0.000041097_dp ,& 11 4.0_dp , 11 3.924614430_dp , 0.000003817_dp ,& 11 5.0_dp , 11 4.929033049_dp , 0.000027016_dp ,& 11 6.0_dp , 11 5.931219191_dp , 0.000004000_dp ,& 11 7.0_dp , 11 6.936135000_dp , 0.000465000_dp ,& 11 8.0_dp , 11 7.938808_dp , 0.000215_dp ,& 11 9.0_dp , 11 8.944090_dp , 0.000322_dp ,& 12 0.0_dp , 11 9.946623_dp , 0.000429_dp ,& 12 1.0_dp , 12 0.952098_dp , 0.000429_dp ,& 12 2.0_dp , 12 1.955147_dp , 0.000537_dp ,& 12 3.0_dp , 12 2.960762_dp , 0.000537_dp ,& 12 4.0_dp , 12 3.963940_dp , 0.000644_dp ,& 12 5.0_dp , 12 4.969544_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Rh_naw = & naw_type ( 41 , transpose ( reshape ([& 8 8.0_dp , 8 7.960429_dp , 0.000429_dp ,& 8 9.0_dp , 8 8.950992_dp , 0.000387_dp ,& 9 0.0_dp , 8 9.944569_dp , 0.000215_dp ,& 9 1.0_dp , 9 0.937123_dp , 0.000320_dp ,& 9 2.0_dp , 9 1.932367692_dp , 0.000004700_dp ,& 9 3.0_dp , 9 2.925912778_dp , 0.000002821_dp ,& 9 4.0_dp , 9 3.921730450_dp , 0.000003627_dp ,& 9 5.0_dp , 9 4.915897893_dp , 0.000004171_dp ,& 9 6.0_dp , 9 5.914451705_dp , 0.000010737_dp ,& 9 7.0_dp , 9 6.911327872_dp , 0.000038071_dp ,& 9 8.0_dp , 9 7.910707734_dp , 0.000012782_dp ,& 9 9.0_dp , 9 8.908121241_dp , 0.000020881_dp ,& 10 0.0_dp , 9 9.908114147_dp , 0.000019458_dp ,& 10 1.0_dp , 10 0.906158903_dp , 0.000006270_dp ,& 10 2.0_dp , 10 1.906834282_dp , 0.000006880_dp ,& 10 3.0_dp , 10 2.905494081_dp , 0.000002470_dp ,& 10 4.0_dp , 10 3.906645309_dp , 0.000002471_dp ,& 10 5.0_dp , 10 4.905687787_dp , 0.000002685_dp ,& 10 6.0_dp , 10 5.907285879_dp , 0.000005786_dp ,& 10 7.0_dp , 10 6.906747975_dp , 0.000012937_dp ,& 10 8.0_dp , 10 7.908715304_dp , 0.000015026_dp ,& 10 9.0_dp , 10 8.908749555_dp , 0.000004336_dp ,& 11 0.0_dp , 10 9.911079745_dp , 0.000019114_dp ,& 11 1.0_dp , 11 0.911643164_dp , 0.000007356_dp ,& 11 2.0_dp , 11 1.914405199_dp , 0.000047327_dp ,& 11 3.0_dp , 11 2.915440212_dp , 0.000007656_dp ,& 11 4.0_dp , 11 3.918721680_dp , 0.000076824_dp ,& 11 5.0_dp , 11 4.920311649_dp , 0.000007857_dp ,& 11 6.0_dp , 11 5.924062060_dp , 0.000079261_dp ,& 11 7.0_dp , 11 6.926036291_dp , 0.000009548_dp ,& 11 8.0_dp , 11 7.930341116_dp , 0.000026018_dp ,& 11 9.0_dp , 11 8.932556951_dp , 0.000010000_dp ,& 12 0.0_dp , 11 9.937069_dp , 0.000215_dp ,& 12 1.0_dp , 12 0.939613000_dp , 0.000665000_dp ,& 12 2.0_dp , 12 1.944305_dp , 0.000322_dp ,& 12 3.0_dp , 12 2.947192_dp , 0.000429_dp ,& 12 4.0_dp , 12 3.952002_dp , 0.000429_dp ,& 12 5.0_dp , 12 4.955094_dp , 0.000537_dp ,& 12 6.0_dp , 12 5.960064_dp , 0.000537_dp ,& 12 7.0_dp , 12 6.963789_dp , 0.000644_dp ,& 12 8.0_dp , 12 7.970649_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pd_naw = & naw_type ( 42 , transpose ( reshape ([& 9 0.0_dp , 8 9.957370_dp , 0.000429_dp ,& 9 1.0_dp , 9 0.950435_dp , 0.000454_dp ,& 9 2.0_dp , 9 1.941192225_dp , 0.000370402_dp ,& 9 3.0_dp , 9 2.936680426_dp , 0.000397221_dp ,& 9 4.0_dp , 9 3.929036286_dp , 0.000004602_dp ,& 9 5.0_dp , 9 4.924888506_dp , 0.000003253_dp ,& 9 6.0_dp , 9 5.918213739_dp , 0.000004502_dp ,& 9 7.0_dp , 9 6.916471985_dp , 0.000005200_dp ,& 9 8.0_dp , 9 7.912698335_dp , 0.000005090_dp ,& 9 9.0_dp , 9 8.911773073_dp , 0.000005482_dp ,& 10 0.0_dp , 9 9.908520438_dp , 0.000018934_dp ,& 10 1.0_dp , 10 0.908284824_dp , 0.000004925_dp ,& 10 2.0_dp , 10 1.905632292_dp , 0.000000449_dp ,& 10 3.0_dp , 10 2.906111074_dp , 0.000000942_dp ,& 10 4.0_dp , 10 3.904030393_dp , 0.000001434_dp ,& 10 5.0_dp , 10 4.905079479_dp , 0.000001222_dp ,& 10 6.0_dp , 10 5.903480287_dp , 0.000001186_dp ,& 10 7.0_dp , 10 6.905128058_dp , 0.000001289_dp ,& 10 8.0_dp , 10 7.903891806_dp , 0.000001189_dp ,& 10 9.0_dp , 10 8.905950576_dp , 0.000001195_dp ,& 11 0.0_dp , 10 9.905172878_dp , 0.000000657_dp ,& 11 1.0_dp , 11 0.907690358_dp , 0.000000785_dp ,& 11 2.0_dp , 11 1.907330557_dp , 0.000007027_dp ,& 11 3.0_dp , 11 2.910261912_dp , 0.000007458_dp ,& 11 4.0_dp , 11 3.910369430_dp , 0.000007459_dp ,& 11 5.0_dp , 11 4.913659333_dp , 0.000014543_dp ,& 11 6.0_dp , 11 5.914297872_dp , 0.000007659_dp ,& 11 7.0_dp , 11 6.917955584_dp , 0.000007788_dp ,& 11 8.0_dp , 11 7.919067273_dp , 0.000002677_dp ,& 11 9.0_dp , 11 8.923341138_dp , 0.000008854_dp ,& 12 0.0_dp , 11 9.924551745_dp , 0.000002464_dp ,& 12 1.0_dp , 12 0.928950342_dp , 0.000003600_dp ,& 12 2.0_dp , 12 1.930631693_dp , 0.000021000_dp ,& 12 3.0_dp , 12 2.935126000_dp , 0.000847500_dp ,& 12 4.0_dp , 12 3.937305_dp , 0.000322_dp ,& 12 5.0_dp , 12 4.942072_dp , 0.000429_dp ,& 12 6.0_dp , 12 5.944401_dp , 0.000429_dp ,& 12 7.0_dp , 12 6.949307_dp , 0.000537_dp ,& 12 8.0_dp , 12 7.952345_dp , 0.000537_dp ,& 12 9.0_dp , 12 8.959334_dp , 0.000644_dp ,& 13 0.0_dp , 12 9.964863_dp , 0.000322_dp ,& 13 1.0_dp , 13 0.972367_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ag_naw = & naw_type ( 42 , transpose ( reshape ([& 9 2.0_dp , 9 1.959710_dp , 0.000429_dp ,& 9 3.0_dp , 9 2.950188_dp , 0.000430_dp ,& 9 4.0_dp , 9 3.943744_dp , 0.000429_dp ,& 9 5.0_dp , 9 4.935688_dp , 0.000429_dp ,& 9 6.0_dp , 9 5.930743903_dp , 0.000096708_dp ,& 9 7.0_dp , 9 6.923881400_dp , 0.000012900_dp ,& 9 8.0_dp , 9 7.921559970_dp , 0.000035327_dp ,& 9 9.0_dp , 9 8.917645766_dp , 0.000006725_dp ,& 10 0.0_dp , 9 9.916115443_dp , 0.000005367_dp ,& 10 1.0_dp , 10 0.912683951_dp , 0.000005193_dp ,& 10 2.0_dp , 10 1.911704538_dp , 0.000008771_dp ,& 10 3.0_dp , 10 2.908960558_dp , 0.000004400_dp ,& 10 4.0_dp , 10 3.908623715_dp , 0.000004527_dp ,& 10 5.0_dp , 10 4.906525604_dp , 0.000004877_dp ,& 10 6.0_dp , 10 5.906663499_dp , 0.000003237_dp ,& 10 7.0_dp , 10 6.905091509_dp , 0.000002556_dp ,& 10 8.0_dp , 10 7.905950245_dp , 0.000002563_dp ,& 10 9.0_dp , 10 8.904755778_dp , 0.000001381_dp ,& 11 0.0_dp , 10 9.906110724_dp , 0.000001380_dp ,& 11 1.0_dp , 11 0.905296827_dp , 0.000001565_dp ,& 11 2.0_dp , 11 1.907048548_dp , 0.000002600_dp ,& 11 3.0_dp , 11 2.906572865_dp , 0.000017866_dp ,& 11 4.0_dp , 11 3.908823029_dp , 0.000004900_dp ,& 11 5.0_dp , 11 4.908767445_dp , 0.000019611_dp ,& 11 6.0_dp , 11 5.911386809_dp , 0.000003500_dp ,& 11 7.0_dp , 11 6.911774086_dp , 0.000014570_dp ,& 11 8.0_dp , 11 7.914595484_dp , 0.000002700_dp ,& 11 9.0_dp , 11 8.915570309_dp , 0.000015783_dp ,& 12 0.0_dp , 11 9.918784765_dp , 0.000004800_dp ,& 12 1.0_dp , 12 0.920125279_dp , 0.000013000_dp ,& 12 2.0_dp , 12 1.923664446_dp , 0.000041000_dp ,& 12 3.0_dp , 12 2.925315060_dp , 0.000035000_dp ,& 12 4.0_dp , 12 3.928899227_dp , 0.000270000_dp ,& 12 5.0_dp , 12 4.930735000_dp , 0.000465000_dp ,& 12 6.0_dp , 12 5.934814_dp , 0.000215_dp ,& 12 7.0_dp , 12 6.937037_dp , 0.000215_dp ,& 12 8.0_dp , 12 7.941266_dp , 0.000322_dp ,& 12 9.0_dp , 12 8.944315_dp , 0.000429_dp ,& 13 0.0_dp , 12 9.950727_dp , 0.000455_dp ,& 13 1.0_dp , 13 0.956253_dp , 0.000537_dp ,& 13 2.0_dp , 13 1.963070_dp , 0.000537_dp ,& 13 3.0_dp , 13 2.968781_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cd_naw = & naw_type ( 42 , transpose ( reshape ([& 9 4.0_dp , 9 3.956586_dp , 0.000537_dp ,& 9 5.0_dp , 9 4.949483_dp , 0.000607_dp ,& 9 6.0_dp , 9 5.940341_dp , 0.000440_dp ,& 9 7.0_dp , 9 6.934799343_dp , 0.000451073_dp ,& 9 8.0_dp , 9 7.927389315_dp , 0.000055605_dp ,& 9 9.0_dp , 9 8.924925845_dp , 0.000001700_dp ,& 10 0.0_dp , 9 9.920348829_dp , 0.000001800_dp ,& 10 1.0_dp , 10 0.918586209_dp , 0.000001600_dp ,& 10 2.0_dp , 10 1.914481797_dp , 0.000001784_dp ,& 10 3.0_dp , 10 2.913416922_dp , 0.000001943_dp ,& 10 4.0_dp , 10 3.909856228_dp , 0.000001795_dp ,& 10 5.0_dp , 10 4.909463893_dp , 0.000001494_dp ,& 10 6.0_dp , 10 5.906459791_dp , 0.000001184_dp ,& 10 7.0_dp , 10 6.906612049_dp , 0.000001782_dp ,& 10 8.0_dp , 10 7.904183588_dp , 0.000001205_dp ,& 10 9.0_dp , 10 8.904986697_dp , 0.000001649_dp ,& 11 0.0_dp , 10 9.903007470_dp , 0.000000407_dp ,& 11 1.0_dp , 11 0.904183776_dp , 0.000000383_dp ,& 11 2.0_dp , 11 1.902763896_dp , 0.000000268_dp ,& 11 3.0_dp , 11 2.904408105_dp , 0.000000262_dp ,& 11 4.0_dp , 11 3.903364998_dp , 0.000000296_dp ,& 11 5.0_dp , 11 4.905437426_dp , 0.000000699_dp ,& 11 6.0_dp , 11 5.904763230_dp , 0.000000172_dp ,& 11 7.0_dp , 11 6.907226039_dp , 0.000001087_dp ,& 11 8.0_dp , 11 7.906921956_dp , 0.000021471_dp ,& 11 9.0_dp , 11 8.909847052_dp , 0.000040467_dp ,& 12 0.0_dp , 11 9.909868065_dp , 0.000004000_dp ,& 12 1.0_dp , 12 0.912963660_dp , 0.000002085_dp ,& 12 2.0_dp , 12 1.913459050_dp , 0.000002468_dp ,& 12 3.0_dp , 12 2.916892460_dp , 0.000002894_dp ,& 12 4.0_dp , 12 3.917659772_dp , 0.000002800_dp ,& 12 5.0_dp , 12 4.921257590_dp , 0.000003100_dp ,& 12 6.0_dp , 12 5.922430290_dp , 0.000002473_dp ,& 12 7.0_dp , 12 6.926203291_dp , 0.000006656_dp ,& 12 8.0_dp , 12 7.927816778_dp , 0.000006905_dp ,& 12 9.0_dp , 12 8.932235597_dp , 0.000005700_dp ,& 13 0.0_dp , 12 9.934387563_dp , 0.000024000_dp ,& 13 1.0_dp , 13 0.940727740_dp , 0.000020653_dp ,& 13 2.0_dp , 13 1.945823136_dp , 0.000064485_dp ,& 13 3.0_dp , 13 2.952614_dp , 0.000215_dp ,& 13 4.0_dp , 13 3.957638_dp , 0.000322_dp ,& 13 5.0_dp , 13 4.964766_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: In_naw = & naw_type ( 42 , transpose ( reshape ([& 9 6.0_dp , 9 5.959109_dp , 0.000537_dp ,& 9 7.0_dp , 9 6.949125_dp , 0.000430_dp ,& 9 8.0_dp , 9 7.942129_dp , 0.000327_dp ,& 9 9.0_dp , 9 8.934110_dp , 0.000320_dp ,& 10 0.0_dp , 9 9.931101929_dp , 0.000002400_dp ,& 10 1.0_dp , 10 0.926414025_dp , 0.000012519_dp ,& 10 2.0_dp , 10 1.924105911_dp , 0.000004909_dp ,& 10 3.0_dp , 10 2.919878830_dp , 0.000009640_dp ,& 10 4.0_dp , 10 3.918214538_dp , 0.000006200_dp ,& 10 5.0_dp , 10 4.914502322_dp , 0.000011000_dp ,& 10 6.0_dp , 10 5.913463596_dp , 0.000013125_dp ,& 10 7.0_dp , 10 6.910287497_dp , 0.000010363_dp ,& 10 8.0_dp , 10 7.909693654_dp , 0.000009276_dp ,& 10 9.0_dp , 10 8.907149679_dp , 0.000004261_dp ,& 11 0.0_dp , 10 9.907170674_dp , 0.000012402_dp ,& 11 1.0_dp , 11 0.905107236_dp , 0.000003675_dp ,& 11 2.0_dp , 11 1.905538718_dp , 0.000004563_dp ,& 11 3.0_dp , 11 2.904060451_dp , 0.000000202_dp ,& 11 4.0_dp , 11 3.904916405_dp , 0.000000323_dp ,& 11 5.0_dp , 11 4.903878772_dp , 0.000000012_dp ,& 11 6.0_dp , 11 5.905259992_dp , 0.000000236_dp ,& 11 7.0_dp , 11 6.904515729_dp , 0.000005239_dp ,& 11 8.0_dp , 11 7.906356705_dp , 0.000008322_dp ,& 11 9.0_dp , 11 8.905851622_dp , 0.000007847_dp ,& 12 0.0_dp , 11 9.907967489_dp , 0.000042953_dp ,& 12 1.0_dp , 12 0.907852778_dp , 0.000029435_dp ,& 12 2.0_dp , 12 1.910282458_dp , 0.000053741_dp ,& 12 3.0_dp , 12 2.910435252_dp , 0.000021290_dp ,& 12 4.0_dp , 12 3.913184873_dp , 0.000032808_dp ,& 12 5.0_dp , 12 4.913673841_dp , 0.000001900_dp ,& 12 6.0_dp , 12 5.916468202_dp , 0.000004500_dp ,& 12 7.0_dp , 12 6.917466040_dp , 0.000010736_dp ,& 12 8.0_dp , 12 7.920353637_dp , 0.000001419_dp ,& 12 9.0_dp , 12 8.921808534_dp , 0.000002116_dp ,& 13 0.0_dp , 12 9.924952257_dp , 0.000001921_dp ,& 13 1.0_dp , 13 0.926972839_dp , 0.000002367_dp ,& 13 2.0_dp , 13 1.932998444_dp , 0.000064447_dp ,& 13 3.0_dp , 13 2.938067_dp , 0.000215_dp ,& 13 4.0_dp , 13 3.944208_dp , 0.000215_dp ,& 13 5.0_dp , 13 4.949425_dp , 0.000322_dp ,& 13 6.0_dp , 13 5.956017_dp , 0.000322_dp ,& 13 7.0_dp , 13 6.961535_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sn_naw = & naw_type ( 42 , transpose ( reshape ([& 9 9.0_dp , 9 8.948495_dp , 0.000625_dp ,& 10 0.0_dp , 9 9.938648944_dp , 0.000257661_dp ,& 10 1.0_dp , 10 0.935259252_dp , 0.000322068_dp ,& 10 2.0_dp , 10 1.930289525_dp , 0.000107466_dp ,& 10 3.0_dp , 10 2.927973_dp , 0.000108_dp ,& 10 4.0_dp , 10 3.923105195_dp , 0.000006167_dp ,& 10 5.0_dp , 10 4.921268421_dp , 0.000004263_dp ,& 10 6.0_dp , 10 5.916957394_dp , 0.000005465_dp ,& 10 7.0_dp , 10 6.915713649_dp , 0.000005700_dp ,& 10 8.0_dp , 10 7.911894290_dp , 0.000005778_dp ,& 10 9.0_dp , 10 8.911292857_dp , 0.000008533_dp ,& 11 0.0_dp , 10 9.907844835_dp , 0.000014790_dp ,& 11 1.0_dp , 11 0.907741143_dp , 0.000005728_dp ,& 11 2.0_dp , 11 1.904824894_dp , 0.000000315_dp ,& 11 3.0_dp , 11 2.905175857_dp , 0.000001690_dp ,& 11 4.0_dp , 11 3.902780130_dp , 0.000000031_dp ,& 11 5.0_dp , 11 4.903344695_dp , 0.000000016_dp ,& 11 6.0_dp , 11 5.901742825_dp , 0.000000103_dp ,& 11 7.0_dp , 11 6.902954036_dp , 0.000000518_dp ,& 11 8.0_dp , 11 7.901606630_dp , 0.000000536_dp ,& 11 9.0_dp , 11 8.903311266_dp , 0.000000778_dp ,& 12 0.0_dp , 11 9.902202557_dp , 0.000000987_dp ,& 12 1.0_dp , 12 0.904243488_dp , 0.000001050_dp ,& 12 2.0_dp , 12 1.903445494_dp , 0.000002627_dp ,& 12 3.0_dp , 12 2.905727065_dp , 0.000002661_dp ,& 12 4.0_dp , 12 3.905279619_dp , 0.000001410_dp ,& 12 5.0_dp , 12 4.907789370_dp , 0.000001426_dp ,& 12 6.0_dp , 12 5.907658958_dp , 0.000011473_dp ,& 12 7.0_dp , 12 6.910391726_dp , 0.000009904_dp ,& 12 8.0_dp , 12 7.910507828_dp , 0.000018982_dp ,& 12 9.0_dp , 12 8.913482440_dp , 0.000018540_dp ,& 13 0.0_dp , 12 9.913974531_dp , 0.000002010_dp ,& 13 1.0_dp , 13 0.917053067_dp , 0.000003887_dp ,& 13 2.0_dp , 13 1.917823898_dp , 0.000002121_dp ,& 13 3.0_dp , 13 2.923913753_dp , 0.000002043_dp ,& 13 4.0_dp , 13 3.928680430_dp , 0.000003400_dp ,& 13 5.0_dp , 13 4.934908603_dp , 0.000003300_dp ,& 13 6.0_dp , 13 5.939699_dp , 0.000215_dp ,& 13 7.0_dp , 13 6.946162_dp , 0.000322_dp ,& 13 8.0_dp , 13 7.951143_dp , 0.000429_dp ,& 13 9.0_dp , 13 8.957799_dp , 0.000429_dp ,& 14 0.0_dp , 13 9.962973_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sb_naw = & naw_type ( 41 , transpose ( reshape ([& 10 2.0_dp , 10 1.945142_dp , 0.000429_dp ,& 10 3.0_dp , 10 2.939162_dp , 0.000322_dp ,& 10 4.0_dp , 10 3.936344_dp , 0.000109_dp ,& 10 5.0_dp , 10 4.931276547_dp , 0.000023431_dp ,& 10 6.0_dp , 10 5.928637979_dp , 0.000008000_dp ,& 10 7.0_dp , 10 6.924150621_dp , 0.000004452_dp ,& 10 8.0_dp , 10 7.922226731_dp , 0.000005900_dp ,& 10 9.0_dp , 10 8.918141203_dp , 0.000005652_dp ,& 11 0.0_dp , 10 9.916854283_dp , 0.000006400_dp ,& 11 1.0_dp , 11 0.913218187_dp , 0.000009500_dp ,& 11 2.0_dp , 11 1.912399903_dp , 0.000019140_dp ,& 11 3.0_dp , 11 2.909374664_dp , 0.000018457_dp ,& 11 4.0_dp , 11 3.909289155_dp , 0.000021226_dp ,& 11 5.0_dp , 11 4.906598000_dp , 0.000017203_dp ,& 11 6.0_dp , 11 5.906792732_dp , 0.000005533_dp ,& 11 7.0_dp , 11 6.904841519_dp , 0.000009057_dp ,& 11 8.0_dp , 11 7.905532194_dp , 0.000003237_dp ,& 11 9.0_dp , 11 8.903944062_dp , 0.000007512_dp ,& 12 0.0_dp , 11 9.905080308_dp , 0.000007728_dp ,& 12 1.0_dp , 12 0.903811353_dp , 0.000002690_dp ,& 12 2.0_dp , 12 1.905169335_dp , 0.000002687_dp ,& 12 3.0_dp , 12 2.904215292_dp , 0.000001456_dp ,& 12 4.0_dp , 12 3.905937065_dp , 0.000001457_dp ,& 12 5.0_dp , 12 4.905254264_dp , 0.000002700_dp ,& 12 6.0_dp , 12 5.907253158_dp , 0.000034189_dp ,& 12 7.0_dp , 12 6.906925557_dp , 0.000005457_dp ,& 12 8.0_dp , 12 7.909146121_dp , 0.000020169_dp ,& 12 9.0_dp , 12 8.909146623_dp , 0.000022786_dp ,& 13 0.0_dp , 12 9.911662686_dp , 0.000015257_dp ,& 13 1.0_dp , 13 0.911989339_dp , 0.000002236_dp ,& 13 2.0_dp , 13 1.914508013_dp , 0.000002648_dp ,& 13 3.0_dp , 13 2.915272128_dp , 0.000003357_dp ,& 13 4.0_dp , 13 3.920537334_dp , 0.000003300_dp ,& 13 5.0_dp , 13 4.925184354_dp , 0.000002834_dp ,& 13 6.0_dp , 13 5.930749009_dp , 0.000006258_dp ,& 13 7.0_dp , 13 6.935522519_dp , 0.000056000_dp ,& 13 8.0_dp , 13 7.941331_dp , 0.000322_dp ,& 13 9.0_dp , 13 8.946269_dp , 0.000429_dp ,& 14 0.0_dp , 13 9.952345_dp , 0.000644_dp ,& 14 1.0_dp , 14 0.957552_dp , 0.000537_dp ,& 14 2.0_dp , 14 1.963918_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Te_naw = & naw_type ( 42 , transpose ( reshape ([& 10 4.0_dp , 10 3.946723408_dp , 0.000340967_dp ,& 10 5.0_dp , 10 4.943304516_dp , 0.000322084_dp ,& 10 6.0_dp , 10 5.937498521_dp , 0.000107934_dp ,& 10 7.0_dp , 10 6.934882_dp , 0.000108_dp ,& 10 8.0_dp , 10 7.929380469_dp , 0.000005808_dp ,& 10 9.0_dp , 10 8.927304532_dp , 0.000004704_dp ,& 11 0.0_dp , 10 9.922458102_dp , 0.000007058_dp ,& 11 1.0_dp , 11 0.921000587_dp , 0.000006900_dp ,& 11 2.0_dp , 11 1.916727848_dp , 0.000009000_dp ,& 11 3.0_dp , 11 2.915891000_dp , 0.000030000_dp ,& 11 4.0_dp , 11 3.912087820_dp , 0.000026224_dp ,& 11 5.0_dp , 11 4.911902000_dp , 0.000030000_dp ,& 11 6.0_dp , 11 5.908465558_dp , 0.000025986_dp ,& 11 7.0_dp , 11 6.908646227_dp , 0.000014444_dp ,& 11 8.0_dp , 11 7.905860104_dp , 0.000019652_dp ,& 11 9.0_dp , 11 8.906405699_dp , 0.000007813_dp ,& 12 0.0_dp , 11 9.904065779_dp , 0.000001880_dp ,& 12 1.0_dp , 12 0.904945065_dp , 0.000027734_dp ,& 12 2.0_dp , 12 1.903044708_dp , 0.000001456_dp ,& 12 3.0_dp , 12 2.904271022_dp , 0.000001454_dp ,& 12 4.0_dp , 12 3.902818341_dp , 0.000001451_dp ,& 12 5.0_dp , 12 4.904431178_dp , 0.000001451_dp ,& 12 6.0_dp , 12 5.903312144_dp , 0.000001453_dp ,& 12 7.0_dp , 12 6.905226993_dp , 0.000001465_dp ,& 12 8.0_dp , 12 7.904461237_dp , 0.000000758_dp ,& 12 9.0_dp , 12 8.906596419_dp , 0.000000763_dp ,& 13 0.0_dp , 12 9.906222745_dp , 0.000000011_dp ,& 13 1.0_dp , 13 0.908522210_dp , 0.000000065_dp ,& 13 2.0_dp , 13 1.908546713_dp , 0.000003742_dp ,& 13 3.0_dp , 13 2.910963330_dp , 0.000002218_dp ,& 13 4.0_dp , 13 3.911396376_dp , 0.000002948_dp ,& 13 5.0_dp , 13 4.916554715_dp , 0.000001848_dp ,& 13 6.0_dp , 13 5.920101180_dp , 0.000002448_dp ,& 13 7.0_dp , 13 6.925599354_dp , 0.000002254_dp ,& 13 8.0_dp , 13 7.929472452_dp , 0.000004065_dp ,& 13 9.0_dp , 13 8.935367191_dp , 0.000003800_dp ,& 14 0.0_dp , 13 9.939487057_dp , 0.000015434_dp ,& 14 1.0_dp , 14 0.945604_dp , 0.000429_dp ,& 14 2.0_dp , 14 1.950027_dp , 0.000537_dp ,& 14 3.0_dp , 14 2.956489_dp , 0.000537_dp ,& 14 4.0_dp , 14 3.961116_dp , 0.000322_dp ,& 14 5.0_dp , 14 4.967783_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: I_naw = & naw_type ( 42 , transpose ( reshape ([& 10 6.0_dp , 10 5.953516_dp , 0.000429_dp ,& 10 7.0_dp , 10 6.946935_dp , 0.000322_dp ,& 10 8.0_dp , 10 7.943348_dp , 0.000109_dp ,& 10 9.0_dp , 10 8.938086022_dp , 0.000007223_dp ,& 11 0.0_dp , 10 9.935085102_dp , 0.000066494_dp ,& 11 1.0_dp , 11 0.930269236_dp , 0.000005103_dp ,& 11 2.0_dp , 11 1.928004548_dp , 0.000011000_dp ,& 11 3.0_dp , 11 2.923650062_dp , 0.000008600_dp ,& 11 4.0_dp , 11 3.922018900_dp , 0.000021500_dp ,& 11 5.0_dp , 11 4.918048000_dp , 0.000031000_dp ,& 11 6.0_dp , 11 5.916885513_dp , 0.000080555_dp ,& 11 7.0_dp , 11 6.913645649_dp , 0.000027437_dp ,& 11 8.0_dp , 11 7.913074000_dp , 0.000021213_dp ,& 11 9.0_dp , 11 8.910060910_dp , 0.000023302_dp ,& 12 0.0_dp , 11 9.910093729_dp , 0.000016212_dp ,& 12 1.0_dp , 12 0.907411492_dp , 0.000005070_dp ,& 12 2.0_dp , 12 1.907590094_dp , 0.000005561_dp ,& 12 3.0_dp , 12 2.905589753_dp , 0.000003956_dp ,& 12 4.0_dp , 12 3.906210297_dp , 0.000002467_dp ,& 12 5.0_dp , 12 4.904630610_dp , 0.000001452_dp ,& 12 6.0_dp , 12 5.905624205_dp , 0.000004055_dp ,& 12 7.0_dp , 12 6.904472592_dp , 0.000003887_dp ,& 12 8.0_dp , 12 7.905809355_dp , 0.000003887_dp ,& 12 9.0_dp , 12 8.904983643_dp , 0.000003385_dp ,& 13 0.0_dp , 12 9.906670168_dp , 0.000003385_dp ,& 13 1.0_dp , 13 0.906126375_dp , 0.000000649_dp ,& 13 2.0_dp , 13 1.907993511_dp , 0.000004364_dp ,& 13 3.0_dp , 13 2.907828400_dp , 0.000006335_dp ,& 13 4.0_dp , 13 3.909775660_dp , 0.000005213_dp ,& 13 5.0_dp , 13 4.910059355_dp , 0.000002211_dp ,& 13 6.0_dp , 13 5.914604693_dp , 0.000015231_dp ,& 13 7.0_dp , 13 6.918028178_dp , 0.000009000_dp ,& 13 8.0_dp , 13 7.922726392_dp , 0.000006400_dp ,& 13 9.0_dp , 13 8.926493400_dp , 0.000004300_dp ,& 14 0.0_dp , 13 9.931715914_dp , 0.000013000_dp ,& 14 1.0_dp , 14 0.935666081_dp , 0.000017000_dp ,& 14 2.0_dp , 14 1.941166595_dp , 0.000005300_dp ,& 14 3.0_dp , 14 2.945475_dp , 0.000215_dp ,& 14 4.0_dp , 14 3.951336_dp , 0.000429_dp ,& 14 5.0_dp , 14 4.955845_dp , 0.000537_dp ,& 14 6.0_dp , 14 5.961846_dp , 0.000322_dp ,& 14 7.0_dp , 14 6.966505_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Xe_naw = & naw_type ( 43 , transpose ( reshape ([& 10 8.0_dp , 10 7.954232285_dp , 0.000407406_dp ,& 10 9.0_dp , 10 8.950434955_dp , 0.000322178_dp ,& 11 0.0_dp , 10 9.944258759_dp , 0.000108415_dp ,& 11 1.0_dp , 11 0.941470_dp , 0.000124_dp ,& 11 2.0_dp , 11 1.935559068_dp , 0.000008891_dp ,& 11 3.0_dp , 11 2.933221663_dp , 0.000007342_dp ,& 11 4.0_dp , 11 3.927980329_dp , 0.000012000_dp ,& 11 5.0_dp , 11 4.926293943_dp , 0.000013000_dp ,& 11 6.0_dp , 11 5.921580955_dp , 0.000013974_dp ,& 11 7.0_dp , 11 6.920358758_dp , 0.000011141_dp ,& 11 8.0_dp , 11 7.916178678_dp , 0.000011141_dp ,& 11 9.0_dp , 11 8.915410641_dp , 0.000011141_dp ,& 12 0.0_dp , 11 9.911784267_dp , 0.000012686_dp ,& 12 1.0_dp , 12 0.911453012_dp , 0.000010995_dp ,& 12 2.0_dp , 12 1.908367655_dp , 0.000011928_dp ,& 12 3.0_dp , 12 2.908482235_dp , 0.000010234_dp ,& 12 4.0_dp , 12 3.905885174_dp , 0.000001457_dp ,& 12 5.0_dp , 12 4.906387640_dp , 0.000001518_dp ,& 12 6.0_dp , 12 5.904297422_dp , 0.000000006_dp ,& 12 7.0_dp , 12 6.905183636_dp , 0.000004388_dp ,& 12 8.0_dp , 12 7.90353075341_dp , 0.00000000558_dp ,& 12 9.0_dp , 12 8.90478085742_dp , 0.00000000542_dp ,& 13 0.0_dp , 12 9.903509346_dp , 0.000000010_dp ,& 13 1.0_dp , 13 0.90508412808_dp , 0.00000000549_dp ,& 13 2.0_dp , 13 1.90415508346_dp , 0.00000000544_dp ,& 13 3.0_dp , 13 2.905910748_dp , 0.000002576_dp ,& 13 4.0_dp , 13 3.905393030_dp , 0.000000006_dp ,& 13 5.0_dp , 13 4.907231441_dp , 0.000003938_dp ,& 13 6.0_dp , 13 5.907214474_dp , 0.000000007_dp ,& 13 7.0_dp , 13 6.911557771_dp , 0.000000111_dp ,& 13 8.0_dp , 13 7.914146268_dp , 0.000003010_dp ,& 13 9.0_dp , 13 8.918792200_dp , 0.000002300_dp ,& 14 0.0_dp , 13 9.921645814_dp , 0.000002500_dp ,& 14 1.0_dp , 14 0.926787181_dp , 0.000003100_dp ,& 14 2.0_dp , 14 1.929973095_dp , 0.000002900_dp ,& 14 3.0_dp , 14 2.935369550_dp , 0.000005000_dp ,& 14 4.0_dp , 14 3.938945076_dp , 0.000005700_dp ,& 14 5.0_dp , 14 4.944719631_dp , 0.000012000_dp ,& 14 6.0_dp , 14 5.948518245_dp , 0.000026000_dp ,& 14 7.0_dp , 14 6.954482_dp , 0.000215_dp ,& 14 8.0_dp , 14 7.958508_dp , 0.000322_dp ,& 14 9.0_dp , 14 8.964573_dp , 0.000322_dp ,& 15 0.0_dp , 14 9.968878_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cs_naw = & naw_type ( 42 , transpose ( reshape ([& 11 1.0_dp , 11 0.953945_dp , 0.000215_dp ,& 11 2.0_dp , 11 1.950172_dp , 0.000124_dp ,& 11 3.0_dp , 11 2.944428484_dp , 0.000009207_dp ,& 11 4.0_dp , 11 3.941292244_dp , 0.000091323_dp ,& 11 5.0_dp , 11 4.935910_dp , 0.000110_dp ,& 11 6.0_dp , 11 5.933395_dp , 0.000108_dp ,& 11 7.0_dp , 11 6.928616723_dp , 0.000067000_dp ,& 11 8.0_dp , 11 7.926559517_dp , 0.000013690_dp ,& 11 9.0_dp , 11 8.922377327_dp , 0.000014965_dp ,& 12 0.0_dp , 11 9.920677277_dp , 0.000010702_dp ,& 12 1.0_dp , 12 0.917227235_dp , 0.000015340_dp ,& 12 2.0_dp , 12 1.916108144_dp , 0.000036164_dp ,& 12 3.0_dp , 12 2.912996060_dp , 0.000013000_dp ,& 12 4.0_dp , 12 3.912247366_dp , 0.000009823_dp ,& 12 5.0_dp , 12 4.909725953_dp , 0.000008304_dp ,& 12 6.0_dp , 12 5.909445821_dp , 0.000011120_dp ,& 12 7.0_dp , 12 6.907417527_dp , 0.000005987_dp ,& 12 8.0_dp , 12 7.907748452_dp , 0.000005771_dp ,& 12 9.0_dp , 12 8.906065910_dp , 0.000004888_dp ,& 13 0.0_dp , 12 9.906709281_dp , 0.000008971_dp ,& 13 1.0_dp , 13 0.905468457_dp , 0.000000190_dp ,& 13 2.0_dp , 13 1.906437740_dp , 0.000001112_dp ,& 13 3.0_dp , 13 2.905451958_dp , 0.000000008_dp ,& 13 4.0_dp , 13 3.906718501_dp , 0.000000017_dp ,& 13 5.0_dp , 13 4.905976907_dp , 0.000000390_dp ,& 13 6.0_dp , 13 5.907311431_dp , 0.000002010_dp ,& 13 7.0_dp , 13 6.907089296_dp , 0.000000324_dp ,& 13 8.0_dp , 13 7.911017119_dp , 0.000009831_dp ,& 13 9.0_dp , 13 8.913363822_dp , 0.000003364_dp ,& 14 0.0_dp , 13 9.917283707_dp , 0.000008801_dp ,& 14 1.0_dp , 14 0.920045279_dp , 0.000009871_dp ,& 14 2.0_dp , 14 1.924299514_dp , 0.000007586_dp ,& 14 3.0_dp , 14 2.927347346_dp , 0.000008130_dp ,& 14 4.0_dp , 14 3.932075402_dp , 0.000021612_dp ,& 14 5.0_dp , 14 4.935528927_dp , 0.000009733_dp ,& 14 6.0_dp , 14 5.940621867_dp , 0.000003106_dp ,& 14 7.0_dp , 14 6.944261512_dp , 0.000009000_dp ,& 14 8.0_dp , 14 7.949639026_dp , 0.000014000_dp ,& 14 9.0_dp , 14 8.953516_dp , 0.000429_dp ,& 15 0.0_dp , 14 9.959023_dp , 0.000429_dp ,& 15 1.0_dp , 15 0.963199_dp , 0.000537_dp ,& 15 2.0_dp , 15 1.968728_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ba_naw = & naw_type ( 42 , transpose ( reshape ([& 11 3.0_dp , 11 2.957370_dp , 0.000322_dp ,& 11 4.0_dp , 11 3.950718489_dp , 0.000110227_dp ,& 11 5.0_dp , 11 4.947482_dp , 0.000215_dp ,& 11 6.0_dp , 11 5.941621_dp , 0.000215_dp ,& 11 7.0_dp , 11 6.938316403_dp , 0.000268749_dp ,& 11 8.0_dp , 11 7.933226_dp , 0.000215_dp ,& 11 9.0_dp , 11 8.930659683_dp , 0.000214997_dp ,& 12 0.0_dp , 11 9.926044997_dp , 0.000322241_dp ,& 12 1.0_dp , 12 0.924052286_dp , 0.000152333_dp ,& 12 2.0_dp , 12 1.919904000_dp , 0.000030000_dp ,& 12 3.0_dp , 12 2.918781060_dp , 0.000013000_dp ,& 12 4.0_dp , 12 3.915093627_dp , 0.000013416_dp ,& 12 5.0_dp , 12 4.914471840_dp , 0.000011800_dp ,& 12 6.0_dp , 12 5.911250202_dp , 0.000013416_dp ,& 12 7.0_dp , 12 6.911091272_dp , 0.000012192_dp ,& 12 8.0_dp , 12 7.908352446_dp , 0.000001728_dp ,& 12 9.0_dp , 12 8.908683409_dp , 0.000011276_dp ,& 13 0.0_dp , 12 9.906326002_dp , 0.000000308_dp ,& 13 1.0_dp , 13 0.906946315_dp , 0.000000445_dp ,& 13 2.0_dp , 13 1.905061231_dp , 0.000001130_dp ,& 13 3.0_dp , 13 2.906007443_dp , 0.000001065_dp ,& 13 4.0_dp , 13 3.904508249_dp , 0.000000269_dp ,& 13 5.0_dp , 13 4.905688447_dp , 0.000000263_dp ,& 13 6.0_dp , 13 5.904575800_dp , 0.000000262_dp ,& 13 7.0_dp , 13 6.905827207_dp , 0.000000266_dp ,& 13 8.0_dp , 13 7.905247059_dp , 0.000000267_dp ,& 13 9.0_dp , 13 8.908841164_dp , 0.000000271_dp ,& 14 0.0_dp , 13 9.910608231_dp , 0.000008480_dp ,& 14 1.0_dp , 14 0.914403653_dp , 0.000005709_dp ,& 14 2.0_dp , 14 1.916432904_dp , 0.000006355_dp ,& 14 3.0_dp , 14 2.920625149_dp , 0.000007253_dp ,& 14 4.0_dp , 14 3.922954821_dp , 0.000007661_dp ,& 14 5.0_dp , 14 4.927518400_dp , 0.000009100_dp ,& 14 6.0_dp , 14 5.930363200_dp , 0.000001900_dp ,& 14 7.0_dp , 14 6.935303900_dp , 0.000021200_dp ,& 14 8.0_dp , 14 7.938223000_dp , 0.000001600_dp ,& 14 9.0_dp , 14 8.943284000_dp , 0.000002700_dp ,& 15 0.0_dp , 14 9.946441100_dp , 0.000006100_dp ,& 15 1.0_dp , 15 0.951755_dp , 0.000429_dp ,& 15 2.0_dp , 15 1.955330_dp , 0.000429_dp ,& 15 3.0_dp , 15 2.960848_dp , 0.000429_dp ,& 15 4.0_dp , 15 3.964659_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: La_naw = & naw_type ( 42 , transpose ( reshape ([& 11 6.0_dp , 11 5.957005_dp , 0.000345_dp ,& 11 7.0_dp , 11 6.950326_dp , 0.000215_dp ,& 11 8.0_dp , 11 7.946731_dp , 0.000322_dp ,& 11 9.0_dp , 11 8.940934_dp , 0.000322_dp ,& 12 0.0_dp , 11 9.938196_dp , 0.000322_dp ,& 12 1.0_dp , 12 0.933236_dp , 0.000322_dp ,& 12 2.0_dp , 12 1.930710_dp , 0.000320_dp ,& 12 3.0_dp , 12 2.926300_dp , 0.000210_dp ,& 12 4.0_dp , 12 3.924574275_dp , 0.000060836_dp ,& 12 5.0_dp , 12 4.920815931_dp , 0.000027909_dp ,& 12 6.0_dp , 12 5.919512667_dp , 0.000097163_dp ,& 12 7.0_dp , 12 6.916375083_dp , 0.000027912_dp ,& 12 8.0_dp , 12 7.915592123_dp , 0.000058452_dp ,& 12 9.0_dp , 12 8.912695592_dp , 0.000022913_dp ,& 13 0.0_dp , 12 9.912369413_dp , 0.000027854_dp ,& 13 1.0_dp , 13 0.910070000_dp , 0.000030000_dp ,& 13 2.0_dp , 13 1.910119047_dp , 0.000039032_dp ,& 13 3.0_dp , 13 2.908218000_dp , 0.000030000_dp ,& 13 4.0_dp , 13 3.908514011_dp , 0.000021395_dp ,& 13 5.0_dp , 13 4.906984427_dp , 0.000010126_dp ,& 13 6.0_dp , 13 5.907634962_dp , 0.000057081_dp ,& 13 7.0_dp , 13 6.906450438_dp , 0.000001760_dp ,& 13 8.0_dp , 13 7.907124041_dp , 0.000000446_dp ,& 13 9.0_dp , 13 8.906362927_dp , 0.000000651_dp ,& 14 0.0_dp , 13 9.909487285_dp , 0.000000651_dp ,& 14 1.0_dp , 14 0.910971155_dp , 0.000004430_dp ,& 14 2.0_dp , 14 1.914090760_dp , 0.000006748_dp ,& 14 3.0_dp , 14 2.916079482_dp , 0.000007868_dp ,& 14 4.0_dp , 14 3.919645589_dp , 0.000013888_dp ,& 14 5.0_dp , 14 4.921808065_dp , 0.000013170_dp ,& 14 6.0_dp , 14 5.925688017_dp , 0.000001797_dp ,& 14 7.0_dp , 14 6.928417800_dp , 0.000011500_dp ,& 14 8.0_dp , 14 7.932679400_dp , 0.000020900_dp ,& 14 9.0_dp , 14 8.935351259_dp , 0.000214990_dp ,& 15 0.0_dp , 14 9.939547500_dp , 0.000002700_dp ,& 15 1.0_dp , 15 0.942769000_dp , 0.000467500_dp ,& 15 2.0_dp , 15 1.947085_dp , 0.000322_dp ,& 15 3.0_dp , 15 2.950553_dp , 0.000322_dp ,& 15 4.0_dp , 15 3.955416_dp , 0.000322_dp ,& 15 5.0_dp , 15 4.959280_dp , 0.000429_dp ,& 15 6.0_dp , 15 5.964519_dp , 0.000429_dp ,& 15 7.0_dp , 15 6.968792_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ce_naw = & naw_type ( 41 , transpose ( reshape ([& 11 9.0_dp , 11 8.952957_dp , 0.000537_dp ,& 12 0.0_dp , 11 9.946613_dp , 0.000537_dp ,& 12 1.0_dp , 12 0.943435_dp , 0.000430_dp ,& 12 2.0_dp , 12 1.937870_dp , 0.000430_dp ,& 12 3.0_dp , 12 2.935280_dp , 0.000320_dp ,& 12 4.0_dp , 12 3.930310_dp , 0.000320_dp ,& 12 5.0_dp , 12 4.928440_dp , 0.000210_dp ,& 12 6.0_dp , 12 5.923971000_dp , 0.000030000_dp ,& 12 7.0_dp , 12 6.922727000_dp , 0.000031000_dp ,& 12 8.0_dp , 12 7.918911000_dp , 0.000030000_dp ,& 12 9.0_dp , 12 8.918102000_dp , 0.000030000_dp ,& 13 0.0_dp , 12 9.914736000_dp , 0.000030000_dp ,& 13 1.0_dp , 13 0.914429465_dp , 0.000035214_dp ,& 13 2.0_dp , 13 1.911466226_dp , 0.000021907_dp ,& 13 3.0_dp , 13 2.911520402_dp , 0.000017557_dp ,& 13 4.0_dp , 13 3.908928142_dp , 0.000021886_dp ,& 13 5.0_dp , 13 4.909160662_dp , 0.000011021_dp ,& 13 6.0_dp , 13 5.907129256_dp , 0.000000348_dp ,& 13 7.0_dp , 13 6.907762416_dp , 0.000000386_dp ,& 13 8.0_dp , 13 7.905994180_dp , 0.000000536_dp ,& 13 9.0_dp , 13 8.906647029_dp , 0.000002242_dp ,& 14 0.0_dp , 13 9.905448433_dp , 0.000001409_dp ,& 14 1.0_dp , 14 0.908285991_dp , 0.000001411_dp ,& 14 2.0_dp , 14 1.909250208_dp , 0.000002623_dp ,& 14 3.0_dp , 14 2.912391953_dp , 0.000002621_dp ,& 14 4.0_dp , 14 3.913652763_dp , 0.000003041_dp ,& 14 5.0_dp , 14 4.917265113_dp , 0.000036393_dp ,& 14 6.0_dp , 14 5.918812294_dp , 0.000015743_dp ,& 14 7.0_dp , 14 6.922689900_dp , 0.000009211_dp ,& 14 8.0_dp , 14 7.924424186_dp , 0.000012017_dp ,& 14 9.0_dp , 14 8.928426900_dp , 0.000011000_dp ,& 15 0.0_dp , 14 9.930384032_dp , 0.000012556_dp ,& 15 1.0_dp , 15 0.934272200_dp , 0.000019000_dp ,& 15 2.0_dp , 15 1.936682_dp , 0.000215_dp ,& 15 3.0_dp , 15 2.941052_dp , 0.000215_dp ,& 15 4.0_dp , 15 3.943940_dp , 0.000215_dp ,& 15 5.0_dp , 15 4.948706_dp , 0.000322_dp ,& 15 6.0_dp , 15 5.951884_dp , 0.000322_dp ,& 15 7.0_dp , 15 6.957133_dp , 0.000429_dp ,& 15 8.0_dp , 15 7.960773_dp , 0.000429_dp ,& 15 9.0_dp , 15 8.966355_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pr_naw = & naw_type ( 41 , transpose ( reshape ([& 12 1.0_dp , 12 0.955393_dp , 0.000537_dp ,& 12 2.0_dp , 12 1.951927_dp , 0.000537_dp ,& 12 3.0_dp , 12 2.946076_dp , 0.000429_dp ,& 12 4.0_dp , 12 3.942940_dp , 0.000430_dp ,& 12 5.0_dp , 12 4.937659_dp , 0.000322_dp ,& 12 6.0_dp , 12 5.935240_dp , 0.000210_dp ,& 12 7.0_dp , 12 6.930710_dp , 0.000210_dp ,& 12 8.0_dp , 12 7.928791000_dp , 0.000032000_dp ,& 12 9.0_dp , 12 8.925095000_dp , 0.000032000_dp ,& 13 0.0_dp , 12 9.923590000_dp , 0.000069000_dp ,& 13 1.0_dp , 13 0.920234960_dp , 0.000050451_dp ,& 13 2.0_dp , 13 1.919240000_dp , 0.000031000_dp ,& 13 3.0_dp , 13 2.916330558_dp , 0.000013416_dp ,& 13 4.0_dp , 13 3.915696729_dp , 0.000021810_dp ,& 13 5.0_dp , 13 4.913111772_dp , 0.000012686_dp ,& 13 6.0_dp , 13 5.912677470_dp , 0.000012296_dp ,& 13 7.0_dp , 13 6.910679183_dp , 0.000008733_dp ,& 13 8.0_dp , 13 7.910757495_dp , 0.000010748_dp ,& 13 9.0_dp , 13 8.908932700_dp , 0.000003917_dp ,& 14 0.0_dp , 13 9.909085600_dp , 0.000006593_dp ,& 14 1.0_dp , 14 0.907659604_dp , 0.000001607_dp ,& 14 2.0_dp , 14 1.910051640_dp , 0.000001607_dp ,& 14 3.0_dp , 14 2.910822624_dp , 0.000001949_dp ,& 14 4.0_dp , 14 3.913310682_dp , 0.000002907_dp ,& 14 5.0_dp , 14 4.914517987_dp , 0.000007674_dp ,& 14 6.0_dp , 14 5.917687630_dp , 0.000036882_dp ,& 14 7.0_dp , 14 6.919007438_dp , 0.000017020_dp ,& 14 8.0_dp , 14 7.922129992_dp , 0.000016147_dp ,& 14 9.0_dp , 14 8.923736100_dp , 0.000010600_dp ,& 15 0.0_dp , 14 9.926676391_dp , 0.000009677_dp ,& 15 1.0_dp , 15 0.928309066_dp , 0.000012506_dp ,& 15 2.0_dp , 15 1.931552900_dp , 0.000019900_dp ,& 15 3.0_dp , 15 2.933903511_dp , 0.000012755_dp ,& 15 4.0_dp , 15 3.937885165_dp , 0.000107360_dp ,& 15 5.0_dp , 15 4.940509193_dp , 0.000018462_dp ,& 15 6.0_dp , 15 5.944766900_dp , 0.000001100_dp ,& 15 7.0_dp , 15 6.948003100_dp , 0.000003400_dp ,& 15 8.0_dp , 15 7.952603_dp , 0.000322_dp ,& 15 9.0_dp , 15 8.956232_dp , 0.000429_dp ,& 16 0.0_dp , 15 9.961138_dp , 0.000429_dp ,& 16 1.0_dp , 16 0.965121_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Nd_naw = & naw_type ( 40 , transpose ( reshape ([& 12 4.0_dp , 12 3.951873_dp , 0.000537_dp ,& 12 5.0_dp , 12 4.948395_dp , 0.000429_dp ,& 12 6.0_dp , 12 5.942694_dp , 0.000322_dp ,& 12 7.0_dp , 12 6.939978_dp , 0.000322_dp ,& 12 8.0_dp , 12 7.935018_dp , 0.000215_dp ,& 12 9.0_dp , 12 8.933038_dp , 0.000217_dp ,& 13 0.0_dp , 12 9.928506000_dp , 0.000030000_dp ,& 13 1.0_dp , 13 0.927248020_dp , 0.000029541_dp ,& 13 2.0_dp , 13 1.923321237_dp , 0.000025985_dp ,& 13 3.0_dp , 13 2.922348000_dp , 0.000050000_dp ,& 13 4.0_dp , 13 3.918790207_dp , 0.000012686_dp ,& 13 5.0_dp , 13 4.918181318_dp , 0.000020534_dp ,& 13 6.0_dp , 13 5.914976061_dp , 0.000012686_dp ,& 13 7.0_dp , 13 6.914563099_dp , 0.000012586_dp ,& 13 8.0_dp , 13 7.911950938_dp , 0.000012456_dp ,& 13 9.0_dp , 13 8.911951208_dp , 0.000029545_dp ,& 14 0.0_dp , 13 9.909546130_dp , 0.000003500_dp ,& 14 1.0_dp , 14 0.909616690_dp , 0.000003417_dp ,& 14 2.0_dp , 14 1.907728824_dp , 0.000001348_dp ,& 14 3.0_dp , 14 2.909819815_dp , 0.000001347_dp ,& 14 4.0_dp , 14 3.910092798_dp , 0.000001346_dp ,& 14 5.0_dp , 14 4.912579151_dp , 0.000001364_dp ,& 14 6.0_dp , 14 5.913122459_dp , 0.000001366_dp ,& 14 7.0_dp , 14 6.916105969_dp , 0.000001368_dp ,& 14 8.0_dp , 14 7.916899027_dp , 0.000002203_dp ,& 14 9.0_dp , 14 8.920154583_dp , 0.000002205_dp ,& 15 0.0_dp , 14 9.920901322_dp , 0.000001211_dp ,& 15 1.0_dp , 15 0.923839363_dp , 0.000001215_dp ,& 15 2.0_dp , 15 1.924691242_dp , 0.000026276_dp ,& 15 3.0_dp , 15 2.927717868_dp , 0.000002949_dp ,& 15 4.0_dp , 15 3.929597404_dp , 0.000001100_dp ,& 15 5.0_dp , 15 4.933135598_dp , 0.000009826_dp ,& 15 6.0_dp , 15 5.935370358_dp , 0.000001400_dp ,& 15 7.0_dp , 15 6.939351074_dp , 0.000002294_dp ,& 15 8.0_dp , 15 7.942205620_dp , 0.000001400_dp ,& 15 9.0_dp , 15 8.946619085_dp , 0.000032000_dp ,& 16 0.0_dp , 15 9.949839172_dp , 0.000050000_dp ,& 16 1.0_dp , 16 0.954664_dp , 0.000429_dp ,& 16 2.0_dp , 16 1.958121_dp , 0.000429_dp ,& 16 3.0_dp , 16 2.963414_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pm_naw = & naw_type ( 40 , transpose ( reshape ([& 12 6.0_dp , 12 5.957327_dp , 0.000537_dp ,& 12 7.0_dp , 12 6.951358_dp , 0.000429_dp ,& 12 8.0_dp , 12 7.948234_dp , 0.000322_dp ,& 12 9.0_dp , 12 8.942909_dp , 0.000322_dp ,& 13 0.0_dp , 12 9.940451_dp , 0.000215_dp ,& 13 1.0_dp , 13 0.935834_dp , 0.000215_dp ,& 13 2.0_dp , 13 1.933840_dp , 0.000160_dp ,& 13 3.0_dp , 13 2.929782000_dp , 0.000054000_dp ,& 13 4.0_dp , 13 3.928326000_dp , 0.000045000_dp ,& 13 5.0_dp , 13 4.924785000_dp , 0.000089000_dp ,& 13 6.0_dp , 13 5.923595949_dp , 0.000074152_dp ,& 13 7.0_dp , 13 6.920479519_dp , 0.000014000_dp ,& 13 8.0_dp , 13 7.919576119_dp , 0.000012456_dp ,& 13 9.0_dp , 13 8.916799228_dp , 0.000014587_dp ,& 14 0.0_dp , 13 9.916035918_dp , 0.000026001_dp ,& 14 1.0_dp , 14 0.913555081_dp , 0.000015000_dp ,& 14 2.0_dp , 14 1.912890982_dp , 0.000025330_dp ,& 14 3.0_dp , 14 2.910938068_dp , 0.000003160_dp ,& 14 4.0_dp , 14 3.912596208_dp , 0.000003126_dp ,& 14 5.0_dp , 14 4.912755748_dp , 0.000003011_dp ,& 14 6.0_dp , 14 5.914702240_dp , 0.000004589_dp ,& 14 7.0_dp , 14 6.915144944_dp , 0.000001382_dp ,& 14 8.0_dp , 14 7.917481091_dp , 0.000006108_dp ,& 14 9.0_dp , 14 8.918341507_dp , 0.000002344_dp ,& 15 0.0_dp , 14 9.920990014_dp , 0.000021504_dp ,& 15 1.0_dp , 15 0.921216613_dp , 0.000004949_dp ,& 15 2.0_dp , 15 1.923505185_dp , 0.000027809_dp ,& 15 3.0_dp , 15 2.924156252_dp , 0.000009729_dp ,& 15 4.0_dp , 15 3.926712791_dp , 0.000026861_dp ,& 15 5.0_dp , 15 4.928136951_dp , 0.000005065_dp ,& 15 6.0_dp , 15 5.931114059_dp , 0.000001275_dp ,& 15 7.0_dp , 15 6.933121298_dp , 0.000007521_dp ,& 15 8.0_dp , 15 7.936546948_dp , 0.000000953_dp ,& 15 9.0_dp , 15 8.939286409_dp , 0.000010777_dp ,& 16 0.0_dp , 15 9.943215272_dp , 0.000002200_dp ,& 16 1.0_dp , 16 0.946229837_dp , 0.000009700_dp ,& 16 2.0_dp , 16 1.950574_dp , 0.000322_dp ,& 16 3.0_dp , 16 2.953881_dp , 0.000429_dp ,& 16 4.0_dp , 16 3.958819_dp , 0.000429_dp ,& 16 5.0_dp , 16 4.962780_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sm_naw = & naw_type ( 41 , transpose ( reshape ([& 12 8.0_dp , 12 7.957971_dp , 0.000537_dp ,& 12 9.0_dp , 12 8.954557_dp , 0.000537_dp ,& 13 0.0_dp , 12 9.948792_dp , 0.000429_dp ,& 13 1.0_dp , 13 0.946022_dp , 0.000429_dp ,& 13 2.0_dp , 13 1.940805_dp , 0.000322_dp ,& 13 3.0_dp , 13 2.938560_dp , 0.000320_dp ,& 13 4.0_dp , 13 3.934110_dp , 0.000210_dp ,& 13 5.0_dp , 13 4.932520000_dp , 0.000166000_dp ,& 13 6.0_dp , 13 5.928275553_dp , 0.000013416_dp ,& 13 7.0_dp , 13 6.927007959_dp , 0.000030718_dp ,& 13 8.0_dp , 13 7.923243988_dp , 0.000012686_dp ,& 13 9.0_dp , 13 8.922296631_dp , 0.000011684_dp ,& 14 0.0_dp , 13 9.918994714_dp , 0.000013416_dp ,& 14 1.0_dp , 14 0.918481545_dp , 0.000009162_dp ,& 14 2.0_dp , 14 1.915209415_dp , 0.000002002_dp ,& 14 3.0_dp , 14 2.914634848_dp , 0.000002951_dp ,& 14 4.0_dp , 14 3.912006285_dp , 0.000001566_dp ,& 14 5.0_dp , 14 4.913417157_dp , 0.000001594_dp ,& 14 6.0_dp , 14 5.913046835_dp , 0.000003269_dp ,& 14 7.0_dp , 14 6.914904401_dp , 0.000001354_dp ,& 14 8.0_dp , 14 7.914829233_dp , 0.000001337_dp ,& 14 9.0_dp , 14 8.917191211_dp , 0.000001241_dp ,& 15 0.0_dp , 14 9.917281993_dp , 0.000001193_dp ,& 15 1.0_dp , 15 0.919938859_dp , 0.000001191_dp ,& 15 2.0_dp , 15 1.919738646_dp , 0.000001090_dp ,& 15 3.0_dp , 15 2.922103576_dp , 0.000001100_dp ,& 15 4.0_dp , 15 3.922215756_dp , 0.000001400_dp ,& 15 5.0_dp , 15 4.924646645_dp , 0.000001429_dp ,& 15 6.0_dp , 15 5.925538191_dp , 0.000009148_dp ,& 15 7.0_dp , 15 6.928418598_dp , 0.000004759_dp ,& 15 8.0_dp , 15 7.929949262_dp , 0.000005133_dp ,& 15 9.0_dp , 15 8.933217130_dp , 0.000006370_dp ,& 16 0.0_dp , 15 9.935337032_dp , 0.000002100_dp ,& 16 1.0_dp , 16 0.939160062_dp , 0.000007318_dp ,& 16 2.0_dp , 16 1.941621687_dp , 0.000003782_dp ,& 16 3.0_dp , 16 2.945679085_dp , 0.000007900_dp ,& 16 4.0_dp , 16 3.948550061_dp , 0.000004400_dp ,& 16 5.0_dp , 16 4.953290_dp , 0.000429_dp ,& 16 6.0_dp , 16 5.956575_dp , 0.000429_dp ,& 16 7.0_dp , 16 6.962072_dp , 0.000537_dp ,& 16 8.0_dp , 16 7.966033_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Eu_naw = & naw_type ( 41 , transpose ( reshape ([& 13 0.0_dp , 12 9.964022_dp , 0.000578_dp ,& 13 1.0_dp , 13 0.957634_dp , 0.000429_dp ,& 13 2.0_dp , 13 1.954696_dp , 0.000429_dp ,& 13 3.0_dp , 13 2.949290_dp , 0.000320_dp ,& 13 4.0_dp , 13 3.946537_dp , 0.000322_dp ,& 13 5.0_dp , 13 4.941870_dp , 0.000210_dp ,& 13 6.0_dp , 13 5.939620_dp , 0.000210_dp ,& 13 7.0_dp , 13 6.935430719_dp , 0.000004700_dp ,& 13 8.0_dp , 13 7.933709000_dp , 0.000030000_dp ,& 13 9.0_dp , 13 8.929792307_dp , 0.000014117_dp ,& 14 0.0_dp , 13 9.928087633_dp , 0.000055328_dp ,& 14 1.0_dp , 14 0.924931734_dp , 0.000013568_dp ,& 14 2.0_dp , 14 1.923446719_dp , 0.000032268_dp ,& 14 3.0_dp , 14 2.920298678_dp , 0.000011793_dp ,& 14 4.0_dp , 14 3.918819481_dp , 0.000011580_dp ,& 14 5.0_dp , 14 4.916272659_dp , 0.000003285_dp ,& 14 6.0_dp , 14 5.917210852_dp , 0.000006451_dp ,& 14 7.0_dp , 14 6.916752440_dp , 0.000002758_dp ,& 14 8.0_dp , 14 7.918091288_dp , 0.000010693_dp ,& 14 9.0_dp , 14 8.917936875_dp , 0.000004190_dp ,& 15 0.0_dp , 14 9.919707092_dp , 0.000006688_dp ,& 15 1.0_dp , 15 0.919856606_dp , 0.000001251_dp ,& 15 2.0_dp , 15 1.921750980_dp , 0.000001252_dp ,& 15 3.0_dp , 15 2.921236789_dp , 0.000001257_dp ,& 15 4.0_dp , 15 3.922985699_dp , 0.000001275_dp ,& 15 5.0_dp , 15 4.922899847_dp , 0.000001343_dp ,& 15 6.0_dp , 15 5.924762976_dp , 0.000003791_dp ,& 15 7.0_dp , 15 6.925432556_dp , 0.000004545_dp ,& 15 8.0_dp , 15 7.927782192_dp , 0.000002181_dp ,& 15 9.0_dp , 15 8.929099512_dp , 0.000004637_dp ,& 16 0.0_dp , 15 9.931836982_dp , 0.000000970_dp ,& 16 1.0_dp , 16 0.933663991_dp , 0.000011164_dp ,& 16 2.0_dp , 16 1.936958329_dp , 0.000001410_dp ,& 16 3.0_dp , 16 2.939265510_dp , 0.000000970_dp ,& 16 4.0_dp , 16 3.942852943_dp , 0.000002219_dp ,& 16 5.0_dp , 16 4.945540070_dp , 0.000005596_dp ,& 16 6.0_dp , 16 5.949813_dp , 0.000107_dp ,& 16 7.0_dp , 16 6.953011_dp , 0.000429_dp ,& 16 8.0_dp , 16 7.957863_dp , 0.000429_dp ,& 16 9.0_dp , 16 8.961717_dp , 0.000537_dp ,& 17 0.0_dp , 16 9.966870_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Gd_naw = & naw_type ( 40 , transpose ( reshape ([& 13 3.0_dp , 13 2.961288_dp , 0.000537_dp ,& 13 4.0_dp , 13 3.955416_dp , 0.000429_dp ,& 13 5.0_dp , 13 4.952496_dp , 0.000429_dp ,& 13 6.0_dp , 13 5.947300_dp , 0.000320_dp ,& 13 7.0_dp , 13 6.945020_dp , 0.000320_dp ,& 13 8.0_dp , 13 7.940247_dp , 0.000215_dp ,& 13 9.0_dp , 13 8.938130_dp , 0.000210_dp ,& 14 0.0_dp , 13 9.933674000_dp , 0.000030000_dp ,& 14 1.0_dp , 14 0.932126000_dp , 0.000021213_dp ,& 14 2.0_dp , 14 1.928116000_dp , 0.000030000_dp ,& 14 3.0_dp , 14 2.926750678_dp , 0.000215032_dp ,& 14 4.0_dp , 14 3.922963000_dp , 0.000030000_dp ,& 14 5.0_dp , 14 4.921710051_dp , 0.000021165_dp ,& 14 6.0_dp , 14 5.918318513_dp , 0.000004376_dp ,& 14 7.0_dp , 14 6.919101014_dp , 0.000002025_dp ,& 14 8.0_dp , 14 7.918121414_dp , 0.000001566_dp ,& 14 9.0_dp , 14 8.919347666_dp , 0.000003553_dp ,& 15 0.0_dp , 14 9.918663949_dp , 0.000006500_dp ,& 15 1.0_dp , 15 0.920354922_dp , 0.000003212_dp ,& 15 2.0_dp , 15 1.919798414_dp , 0.000001081_dp ,& 15 3.0_dp , 15 2.921756945_dp , 0.000001075_dp ,& 15 4.0_dp , 15 3.920872974_dp , 0.000001066_dp ,& 15 5.0_dp , 15 4.922629356_dp , 0.000001055_dp ,& 15 6.0_dp , 15 5.922130120_dp , 0.000001054_dp ,& 15 7.0_dp , 15 6.923967424_dp , 0.000001048_dp ,& 15 8.0_dp , 15 7.924111200_dp , 0.000001048_dp ,& 15 9.0_dp , 15 8.926395822_dp , 0.000001051_dp ,& 16 0.0_dp , 15 9.927061202_dp , 0.000001206_dp ,& 16 1.0_dp , 16 0.929676267_dp , 0.000001614_dp ,& 16 2.0_dp , 16 1.930991812_dp , 0.000004254_dp ,& 16 3.0_dp , 16 2.934096640_dp , 0.000000855_dp ,& 16 4.0_dp , 16 3.935916193_dp , 0.000001073_dp ,& 16 5.0_dp , 16 4.939317080_dp , 0.000001400_dp ,& 16 6.0_dp , 16 5.941630413_dp , 0.000001700_dp ,& 16 7.0_dp , 16 6.945490012_dp , 0.000005596_dp ,& 16 8.0_dp , 16 7.948309_dp , 0.000322_dp ,& 16 9.0_dp , 16 8.952882_dp , 0.000429_dp ,& 17 0.0_dp , 16 9.956146_dp , 0.000537_dp ,& 17 1.0_dp , 17 0.961127_dp , 0.000537_dp ,& 17 2.0_dp , 17 1.964605_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Tb_naw = & naw_type ( 40 , transpose ( reshape ([& 13 5.0_dp , 13 4.964516_dp , 0.000429_dp ,& 13 6.0_dp , 13 5.961460_dp , 0.000537_dp ,& 13 7.0_dp , 13 6.956020_dp , 0.000430_dp ,& 13 8.0_dp , 13 7.953193_dp , 0.000322_dp ,& 13 9.0_dp , 13 8.948330_dp , 0.000320_dp ,& 14 0.0_dp , 13 9.945805048_dp , 0.000859359_dp ,& 14 1.0_dp , 14 0.941448000_dp , 0.000113000_dp ,& 14 2.0_dp , 14 1.939280858_dp , 0.000752079_dp ,& 14 3.0_dp , 14 2.935137332_dp , 0.000055000_dp ,& 14 4.0_dp , 14 3.933045000_dp , 0.000030000_dp ,& 14 5.0_dp , 14 4.928717001_dp , 0.000119051_dp ,& 14 6.0_dp , 14 5.927252739_dp , 0.000048159_dp ,& 14 7.0_dp , 14 6.924054620_dp , 0.000008691_dp ,& 14 8.0_dp , 14 7.924275476_dp , 0.000013379_dp ,& 14 9.0_dp , 14 8.923253792_dp , 0.000003895_dp ,& 15 0.0_dp , 14 9.923664799_dp , 0.000007912_dp ,& 15 1.0_dp , 15 0.923108970_dp , 0.000004395_dp ,& 15 2.0_dp , 15 1.924081855_dp , 0.000042955_dp ,& 15 3.0_dp , 15 2.923441694_dp , 0.000004237_dp ,& 15 4.0_dp , 15 3.924683681_dp , 0.000048641_dp ,& 15 5.0_dp , 15 4.923509511_dp , 0.000010552_dp ,& 15 6.0_dp , 15 5.924754209_dp , 0.000004044_dp ,& 15 7.0_dp , 15 6.924031888_dp , 0.000001092_dp ,& 15 8.0_dp , 15 7.925419942_dp , 0.000001360_dp ,& 15 9.0_dp , 15 8.925353707_dp , 0.000001184_dp ,& 16 0.0_dp , 15 9.927174553_dp , 0.000001191_dp ,& 16 1.0_dp , 16 0.927576806_dp , 0.000001308_dp ,& 16 2.0_dp , 16 1.929275400_dp , 0.000002200_dp ,& 16 3.0_dp , 16 2.930653609_dp , 0.000004358_dp ,& 16 4.0_dp , 16 3.933327561_dp , 0.000002000_dp ,& 16 5.0_dp , 16 4.934955198_dp , 0.000001654_dp ,& 16 6.0_dp , 16 5.937939727_dp , 0.000001570_dp ,& 16 7.0_dp , 16 6.940007046_dp , 0.000002071_dp ,& 16 8.0_dp , 16 7.943337074_dp , 0.000004500_dp ,& 16 9.0_dp , 16 8.945807_dp , 0.000322_dp ,& 17 0.0_dp , 16 9.949855_dp , 0.000322_dp ,& 17 1.0_dp , 17 0.953011_dp , 0.000429_dp ,& 17 2.0_dp , 17 1.957391_dp , 0.000537_dp ,& 17 3.0_dp , 17 2.960805_dp , 0.000537_dp ,& 17 4.0_dp , 17 3.965679_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Dy_naw = & naw_type ( 39 , transpose ( reshape ([& 13 8.0_dp , 13 7.962500_dp , 0.000540_dp ,& 13 9.0_dp , 13 8.959527_dp , 0.000537_dp ,& 14 0.0_dp , 13 9.954020_dp , 0.000430_dp ,& 14 1.0_dp , 14 0.951280_dp , 0.000320_dp ,& 14 2.0_dp , 14 1.946194_dp , 0.000782_dp ,& 14 3.0_dp , 14 2.943994332_dp , 0.000014000_dp ,& 14 4.0_dp , 14 3.939269512_dp , 0.000007700_dp ,& 14 5.0_dp , 14 4.937473992_dp , 0.000007000_dp ,& 14 6.0_dp , 14 5.932844526_dp , 0.000007187_dp ,& 14 7.0_dp , 14 6.931082712_dp , 0.000009500_dp ,& 14 8.0_dp , 14 7.927149944_dp , 0.000009365_dp ,& 14 9.0_dp , 14 8.927327516_dp , 0.000009858_dp ,& 15 0.0_dp , 14 9.925593068_dp , 0.000004636_dp ,& 15 1.0_dp , 15 0.926191279_dp , 0.000003486_dp ,& 15 2.0_dp , 15 1.924725274_dp , 0.000004930_dp ,& 15 3.0_dp , 15 2.925771729_dp , 0.000004295_dp ,& 15 4.0_dp , 15 3.924428920_dp , 0.000007977_dp ,& 15 5.0_dp , 15 4.925758049_dp , 0.000010354_dp ,& 15 6.0_dp , 15 5.924283593_dp , 0.000001060_dp ,& 15 7.0_dp , 15 6.925469555_dp , 0.000005532_dp ,& 15 8.0_dp , 15 7.924414817_dp , 0.000002509_dp ,& 15 9.0_dp , 15 8.925745938_dp , 0.000001544_dp ,& 16 0.0_dp , 15 9.925203578_dp , 0.000000751_dp ,& 16 1.0_dp , 16 0.926939425_dp , 0.000000748_dp ,& 16 2.0_dp , 16 1.926804507_dp , 0.000000746_dp ,& 16 3.0_dp , 16 2.928737221_dp , 0.000000744_dp ,& 16 4.0_dp , 16 3.929180819_dp , 0.000000746_dp ,& 16 5.0_dp , 16 4.931709402_dp , 0.000000748_dp ,& 16 6.0_dp , 16 5.932812810_dp , 0.000000862_dp ,& 16 7.0_dp , 16 6.935682415_dp , 0.000004300_dp ,& 16 8.0_dp , 16 7.937134977_dp , 0.000150303_dp ,& 16 9.0_dp , 16 8.940315231_dp , 0.000322781_dp ,& 17 0.0_dp , 16 9.942340_dp , 0.000215_dp ,& 17 1.0_dp , 17 0.946312_dp , 0.000215_dp ,& 17 2.0_dp , 17 1.948728_dp , 0.000322_dp ,& 17 3.0_dp , 17 2.953043_dp , 0.000429_dp ,& 17 4.0_dp , 17 3.955845_dp , 0.000537_dp ,& 17 5.0_dp , 17 4.960569_dp , 0.000537_dp ,& 17 6.0_dp , 17 5.963918_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ho_naw = & naw_type ( 39 , transpose ( reshape ([& 14 0.0_dp , 13 9.968526_dp , 0.000537_dp ,& 14 1.0_dp , 14 0.963108_dp , 0.000430_dp ,& 14 2.0_dp , 14 1.960010_dp , 0.000430_dp ,& 14 3.0_dp , 14 2.954860_dp , 0.000320_dp ,& 14 4.0_dp , 14 3.952109712_dp , 0.000009100_dp ,& 14 5.0_dp , 14 4.947267392_dp , 0.000008000_dp ,& 14 6.0_dp , 14 5.944993503_dp , 0.000007071_dp ,& 14 7.0_dp , 14 6.940142293_dp , 0.000005368_dp ,& 14 8.0_dp , 14 7.937743925_dp , 0.000090000_dp ,& 14 9.0_dp , 14 8.933820457_dp , 0.000012866_dp ,& 15 0.0_dp , 14 9.933498353_dp , 0.000015209_dp ,& 15 1.0_dp , 15 0.931698176_dp , 0.000008908_dp ,& 15 2.0_dp , 15 1.931717618_dp , 0.000013449_dp ,& 15 3.0_dp , 15 2.930206671_dp , 0.000005438_dp ,& 15 4.0_dp , 15 3.930606776_dp , 0.000008820_dp ,& 15 5.0_dp , 15 4.929103363_dp , 0.000018754_dp ,& 15 6.0_dp , 15 5.929641634_dp , 0.000041249_dp ,& 15 7.0_dp , 15 6.928251974_dp , 0.000025194_dp ,& 15 8.0_dp , 15 7.928944910_dp , 0.000029099_dp ,& 15 9.0_dp , 15 8.927718683_dp , 0.000003268_dp ,& 16 0.0_dp , 15 9.928735538_dp , 0.000016120_dp ,& 16 1.0_dp , 16 0.927861815_dp , 0.000002309_dp ,& 16 2.0_dp , 16 1.929102543_dp , 0.000003330_dp ,& 16 3.0_dp , 16 2.928740260_dp , 0.000000744_dp ,& 16 4.0_dp , 16 3.930240548_dp , 0.000001492_dp ,& 16 5.0_dp , 16 4.930329116_dp , 0.000000844_dp ,& 16 6.0_dp , 16 5.932291209_dp , 0.000000844_dp ,& 16 7.0_dp , 16 6.933140254_dp , 0.000005570_dp ,& 16 8.0_dp , 16 7.935523766_dp , 0.000032207_dp ,& 16 9.0_dp , 16 8.936879890_dp , 0.000021522_dp ,& 17 0.0_dp , 16 9.939626548_dp , 0.000053697_dp ,& 17 1.0_dp , 17 0.941472713_dp , 0.000644128_dp ,& 17 2.0_dp , 17 1.944730_dp , 0.000210_dp ,& 17 3.0_dp , 17 2.947020_dp , 0.000320_dp ,& 17 4.0_dp , 17 3.950757_dp , 0.000322_dp ,& 17 5.0_dp , 17 4.953516_dp , 0.000429_dp ,& 17 6.0_dp , 17 5.957713_dp , 0.000537_dp ,& 17 7.0_dp , 17 6.961052_dp , 0.000537_dp ,& 17 8.0_dp , 17 7.965507_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Er_naw = & naw_type ( 39 , transpose ( reshape ([& 14 2.0_dp , 14 1.970016_dp , 0.000537_dp ,& 14 3.0_dp , 14 2.966548_dp , 0.000429_dp ,& 14 4.0_dp , 14 3.960700_dp , 0.000210_dp ,& 14 5.0_dp , 14 4.957874_dp , 0.000215_dp ,& 14 6.0_dp , 14 5.952418357_dp , 0.000007197_dp ,& 14 7.0_dp , 14 6.949964456_dp , 0.000041000_dp ,& 14 8.0_dp , 14 7.944735026_dp , 0.000011000_dp ,& 14 9.0_dp , 14 8.942306000_dp , 0.000030000_dp ,& 15 0.0_dp , 14 9.937915524_dp , 0.000018458_dp ,& 15 1.0_dp , 15 0.937448567_dp , 0.000017681_dp ,& 15 2.0_dp , 15 1.935050347_dp , 0.000009478_dp ,& 15 3.0_dp , 15 2.935086350_dp , 0.000009967_dp ,& 15 4.0_dp , 15 3.932790799_dp , 0.000005325_dp ,& 15 5.0_dp , 15 4.933215710_dp , 0.000006520_dp ,& 15 6.0_dp , 15 5.931065926_dp , 0.000026440_dp ,& 15 7.0_dp , 15 6.931922652_dp , 0.000028454_dp ,& 15 8.0_dp , 15 7.929893474_dp , 0.000027074_dp ,& 15 9.0_dp , 15 8.930690790_dp , 0.000003910_dp ,& 16 0.0_dp , 15 9.929077193_dp , 0.000026029_dp ,& 16 1.0_dp , 16 0.930003530_dp , 0.000009419_dp ,& 16 2.0_dp , 16 1.928787299_dp , 0.000000811_dp ,& 16 3.0_dp , 16 2.930039908_dp , 0.000004967_dp ,& 16 4.0_dp , 16 3.929207739_dp , 0.000000755_dp ,& 16 5.0_dp , 16 4.930733482_dp , 0.000000985_dp ,& 16 6.0_dp , 16 5.930301067_dp , 0.000000358_dp ,& 16 7.0_dp , 16 6.932056192_dp , 0.000000306_dp ,& 16 8.0_dp , 16 7.932378282_dp , 0.000000280_dp ,& 16 9.0_dp , 16 8.934598444_dp , 0.000000326_dp ,& 17 0.0_dp , 16 9.935471933_dp , 0.000001488_dp ,& 17 1.0_dp , 17 0.938037372_dp , 0.000001511_dp ,& 17 2.0_dp , 17 1.939363461_dp , 0.000004253_dp ,& 17 3.0_dp , 17 2.942400_dp , 0.000210_dp ,& 17 4.0_dp , 17 3.944230_dp , 0.000320_dp ,& 17 5.0_dp , 17 4.947770_dp , 0.000430_dp ,& 17 6.0_dp , 17 5.949940_dp , 0.000430_dp ,& 17 7.0_dp , 17 6.953990_dp , 0.000540_dp ,& 17 8.0_dp , 17 7.956779_dp , 0.000640_dp ,& 17 9.0_dp , 17 8.961267_dp , 0.000537_dp ,& 18 0.0_dp , 17 9.964380_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Tm_naw = & naw_type ( 39 , transpose ( reshape ([& 14 4.0_dp , 14 3.976211_dp , 0.000429_dp ,& 14 5.0_dp , 14 4.970389_dp , 0.000210_dp ,& 14 6.0_dp , 14 5.966661_dp , 0.000215_dp ,& 14 7.0_dp , 14 6.961379887_dp , 0.000007341_dp ,& 14 8.0_dp , 14 7.958384026_dp , 0.000011000_dp ,& 14 9.0_dp , 14 8.952828_dp , 0.000215_dp ,& 15 0.0_dp , 14 9.950090_dp , 0.000210_dp ,& 15 1.0_dp , 15 0.945494433_dp , 0.000020799_dp ,& 15 2.0_dp , 15 1.944476000_dp , 0.000058000_dp ,& 15 3.0_dp , 15 2.942058023_dp , 0.000012860_dp ,& 15 4.0_dp , 15 3.941570062_dp , 0.000015471_dp ,& 15 5.0_dp , 15 4.939209576_dp , 0.000010651_dp ,& 15 6.0_dp , 15 5.938985746_dp , 0.000015328_dp ,& 15 7.0_dp , 15 6.936973000_dp , 0.000030000_dp ,& 15 8.0_dp , 15 7.936979525_dp , 0.000027074_dp ,& 15 9.0_dp , 15 8.934975000_dp , 0.000030000_dp ,& 16 0.0_dp , 15 9.935264177_dp , 0.000035089_dp ,& 16 1.0_dp , 16 0.933549000_dp , 0.000030000_dp ,& 16 2.0_dp , 16 1.934001211_dp , 0.000027974_dp ,& 16 3.0_dp , 16 2.932658282_dp , 0.000005920_dp ,& 16 4.0_dp , 16 3.933538019_dp , 0.000026845_dp ,& 16 5.0_dp , 16 4.932441843_dp , 0.000001779_dp ,& 16 6.0_dp , 16 5.933562136_dp , 0.000012401_dp ,& 16 7.0_dp , 16 6.932857206_dp , 0.000001350_dp ,& 16 8.0_dp , 16 7.934178457_dp , 0.000001800_dp ,& 16 9.0_dp , 16 8.934218956_dp , 0.000000792_dp ,& 17 0.0_dp , 16 9.935807093_dp , 0.000000785_dp ,& 17 1.0_dp , 17 0.936435162_dp , 0.000001043_dp ,& 17 2.0_dp , 17 1.938406959_dp , 0.000005884_dp ,& 17 3.0_dp , 17 2.939606630_dp , 0.000004723_dp ,& 17 4.0_dp , 17 3.942174061_dp , 0.000048010_dp ,& 17 5.0_dp , 17 4.943842310_dp , 0.000053677_dp ,& 17 6.0_dp , 17 5.946997707_dp , 0.000107354_dp ,& 17 7.0_dp , 17 6.948932_dp , 0.000215_dp ,& 17 8.0_dp , 17 7.952506_dp , 0.000322_dp ,& 17 9.0_dp , 17 8.955018_dp , 0.000429_dp ,& 18 0.0_dp , 17 9.959023_dp , 0.000429_dp ,& 18 1.0_dp , 18 0.961954_dp , 0.000537_dp ,& 18 2.0_dp , 18 1.966194_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Yb_naw = & naw_type ( 38 , transpose ( reshape ([& 14 8.0_dp , 14 7.967547_dp , 0.000429_dp ,& 14 9.0_dp , 14 8.964219_dp , 0.000322_dp ,& 15 0.0_dp , 14 9.958314_dp , 0.000322_dp ,& 15 1.0_dp , 15 0.955402453_dp , 0.000322591_dp ,& 15 2.0_dp , 15 1.950326699_dp , 0.000160718_dp ,& 15 3.0_dp , 15 2.949372_dp , 0.000215_dp ,& 15 4.0_dp , 15 3.946395696_dp , 0.000018551_dp ,& 15 5.0_dp , 15 4.945783216_dp , 0.000017820_dp ,& 15 6.0_dp , 15 5.942817096_dp , 0.000009992_dp ,& 15 7.0_dp , 15 6.942651368_dp , 0.000011706_dp ,& 15 8.0_dp , 15 7.939871202_dp , 0.000008559_dp ,& 15 9.0_dp , 15 8.940060257_dp , 0.000018874_dp ,& 16 0.0_dp , 15 9.937559210_dp , 0.000005900_dp ,& 16 1.0_dp , 16 0.937912384_dp , 0.000016211_dp ,& 16 2.0_dp , 16 1.935779342_dp , 0.000016213_dp ,& 16 3.0_dp , 16 2.936345406_dp , 0.000016215_dp ,& 16 4.0_dp , 16 3.934500743_dp , 0.000016217_dp ,& 16 5.0_dp , 16 4.935270241_dp , 0.000028490_dp ,& 16 6.0_dp , 16 5.933876439_dp , 0.000007515_dp ,& 16 7.0_dp , 16 6.934954069_dp , 0.000004251_dp ,& 16 8.0_dp , 16 7.933891297_dp , 0.000000100_dp ,& 16 9.0_dp , 16 8.935184208_dp , 0.000000191_dp ,& 17 0.0_dp , 16 9.934767242_dp , 0.000000011_dp ,& 17 1.0_dp , 17 0.936331515_dp , 0.000000013_dp ,& 17 2.0_dp , 17 1.936386654_dp , 0.000000014_dp ,& 17 3.0_dp , 17 2.938216211_dp , 0.000000012_dp ,& 17 4.0_dp , 17 3.938867545_dp , 0.000000011_dp ,& 17 5.0_dp , 17 4.941281907_dp , 0.000000076_dp ,& 17 6.0_dp , 17 5.942574706_dp , 0.000000015_dp ,& 17 7.0_dp , 17 6.945263846_dp , 0.000000236_dp ,& 17 8.0_dp , 17 7.946669400_dp , 0.000007072_dp ,& 17 9.0_dp , 17 8.949930_dp , 0.000215_dp ,& 18 0.0_dp , 17 9.951991_dp , 0.000322_dp ,& 18 1.0_dp , 18 0.955890_dp , 0.000320_dp ,& 18 2.0_dp , 18 1.958239_dp , 0.000429_dp ,& 18 3.0_dp , 18 2.962426_dp , 0.000429_dp ,& 18 4.0_dp , 18 3.965002_dp , 0.000540_dp ,& 18 5.0_dp , 18 4.969425_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Lu_naw = & naw_type ( 39 , transpose ( reshape ([& 15 0.0_dp , 14 9.973407_dp , 0.000322_dp ,& 15 1.0_dp , 15 0.967471_dp , 0.000322_dp ,& 15 2.0_dp , 15 1.964120_dp , 0.000210_dp ,& 15 3.0_dp , 15 2.958802248_dp , 0.000161050_dp ,& 15 4.0_dp , 15 3.957416_dp , 0.000216_dp ,& 15 5.0_dp , 15 4.954326005_dp , 0.000020660_dp ,& 15 6.0_dp , 15 5.953086606_dp , 0.000058102_dp ,& 15 7.0_dp , 15 6.950144807_dp , 0.000012961_dp ,& 15 8.0_dp , 15 7.949315620_dp , 0.000016236_dp ,& 15 9.0_dp , 15 8.946635615_dp , 0.000040433_dp ,& 16 0.0_dp , 15 9.946033000_dp , 0.000061000_dp ,& 16 1.0_dp , 16 0.943572000_dp , 0.000030000_dp ,& 16 2.0_dp , 16 1.943282776_dp , 0.000080554_dp ,& 16 3.0_dp , 16 2.941179000_dp , 0.000030000_dp ,& 16 4.0_dp , 16 3.941339000_dp , 0.000030000_dp ,& 16 5.0_dp , 16 4.939406758_dp , 0.000028490_dp ,& 16 6.0_dp , 16 5.939859000_dp , 0.000032000_dp ,& 16 7.0_dp , 16 6.938243000_dp , 0.000040000_dp ,& 16 8.0_dp , 16 7.938729798_dp , 0.000040766_dp ,& 16 9.0_dp , 16 8.937645845_dp , 0.000003226_dp ,& 17 0.0_dp , 16 9.938479230_dp , 0.000018081_dp ,& 17 1.0_dp , 17 0.937918591_dp , 0.000001999_dp ,& 17 2.0_dp , 17 1.939091320_dp , 0.000002507_dp ,& 17 3.0_dp , 17 2.938935722_dp , 0.000001682_dp ,& 17 4.0_dp , 17 3.940342840_dp , 0.000001682_dp ,& 17 5.0_dp , 17 4.940777211_dp , 0.000001295_dp ,& 17 6.0_dp , 17 5.942691711_dp , 0.000001301_dp ,& 17 7.0_dp , 17 6.943763570_dp , 0.000001310_dp ,& 17 8.0_dp , 17 7.945960065_dp , 0.000002416_dp ,& 17 9.0_dp , 17 8.947332985_dp , 0.000005528_dp ,& 18 0.0_dp , 17 9.949890744_dp , 0.000075926_dp ,& 18 1.0_dp , 18 0.951908000_dp , 0.000135000_dp ,& 18 2.0_dp , 18 1.955158_dp , 0.000215_dp ,& 18 3.0_dp , 18 2.957363000_dp , 0.000086000_dp ,& 18 4.0_dp , 18 3.961030_dp , 0.000215_dp ,& 18 5.0_dp , 18 4.963542_dp , 0.000322_dp ,& 18 6.0_dp , 18 5.967450_dp , 0.000429_dp ,& 18 7.0_dp , 18 6.970188_dp , 0.000429_dp ,& 18 8.0_dp , 18 7.974428_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Hf_naw = & naw_type ( 38 , transpose ( reshape ([& 15 3.0_dp , 15 2.970692_dp , 0.000322_dp ,& 15 4.0_dp , 15 3.964863_dp , 0.000322_dp ,& 15 5.0_dp , 15 4.963167_dp , 0.000322_dp ,& 15 6.0_dp , 15 5.959399083_dp , 0.000160752_dp ,& 15 7.0_dp , 15 6.958288_dp , 0.000215_dp ,& 15 8.0_dp , 15 7.954801217_dp , 0.000018780_dp ,& 15 9.0_dp , 15 8.953995837_dp , 0.000018049_dp ,& 16 0.0_dp , 15 9.950682728_dp , 0.000010241_dp ,& 16 1.0_dp , 16 0.950277927_dp , 0.000025174_dp ,& 16 2.0_dp , 16 1.947215526_dp , 0.000009610_dp ,& 16 3.0_dp , 16 2.947107211_dp , 0.000027582_dp ,& 16 4.0_dp , 16 3.944370709_dp , 0.000016975_dp ,& 16 5.0_dp , 16 4.944567000_dp , 0.000030000_dp ,& 16 6.0_dp , 16 5.942180000_dp , 0.000030000_dp ,& 16 7.0_dp , 16 6.942600000_dp , 0.000030000_dp ,& 16 8.0_dp , 16 7.940568000_dp , 0.000030000_dp ,& 16 9.0_dp , 16 8.941259000_dp , 0.000030000_dp ,& 17 0.0_dp , 16 9.939609000_dp , 0.000030000_dp ,& 17 1.0_dp , 17 0.940492000_dp , 0.000031000_dp ,& 17 2.0_dp , 17 1.939449716_dp , 0.000026224_dp ,& 17 3.0_dp , 17 2.940513000_dp , 0.000030000_dp ,& 17 4.0_dp , 17 3.940048377_dp , 0.000002425_dp ,& 17 5.0_dp , 17 4.941511424_dp , 0.000002450_dp ,& 17 6.0_dp , 17 5.941409797_dp , 0.000001591_dp ,& 17 7.0_dp , 17 6.943230187_dp , 0.000001514_dp ,& 17 8.0_dp , 17 7.943708322_dp , 0.000001519_dp ,& 17 9.0_dp , 17 8.945825705_dp , 0.000001520_dp ,& 18 0.0_dp , 17 9.946559537_dp , 0.000001525_dp ,& 18 1.0_dp , 18 0.949110834_dp , 0.000001527_dp ,& 18 2.0_dp , 18 1.950563684_dp , 0.000006619_dp ,& 18 3.0_dp , 18 2.953533203_dp , 0.000032251_dp ,& 18 4.0_dp , 18 3.955448507_dp , 0.000042625_dp ,& 18 5.0_dp , 18 4.958862000_dp , 0.000069000_dp ,& 18 6.0_dp , 18 5.960897000_dp , 0.000055000_dp ,& 18 7.0_dp , 18 6.964573_dp , 0.000215_dp ,& 18 8.0_dp , 18 7.966903_dp , 0.000322_dp ,& 18 9.0_dp , 18 8.970853_dp , 0.000322_dp ,& 19 0.0_dp , 18 9.973376_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ta_naw = & naw_type ( 40 , transpose ( reshape ([& 15 5.0_dp , 15 4.974248_dp , 0.000322_dp ,& 15 6.0_dp , 15 5.972087_dp , 0.000322_dp ,& 15 7.0_dp , 15 6.968227445_dp , 0.000161087_dp ,& 15 8.0_dp , 15 7.966593_dp , 0.000215_dp ,& 15 9.0_dp , 15 8.963028046_dp , 0.000021137_dp ,& 16 0.0_dp , 15 9.961541678_dp , 0.000058310_dp ,& 16 1.0_dp , 16 0.958369489_dp , 0.000026174_dp ,& 16 2.0_dp , 16 1.957292907_dp , 0.000067979_dp ,& 16 3.0_dp , 16 2.954337194_dp , 0.000040860_dp ,& 16 4.0_dp , 16 3.953534000_dp , 0.000030000_dp ,& 16 5.0_dp , 16 4.950780287_dp , 0.000014571_dp ,& 16 6.0_dp , 16 5.950512000_dp , 0.000030000_dp ,& 16 7.0_dp , 16 6.948093000_dp , 0.000030000_dp ,& 16 8.0_dp , 16 7.948047000_dp , 0.000030000_dp ,& 16 9.0_dp , 16 8.946011000_dp , 0.000030000_dp ,& 17 0.0_dp , 16 9.946175000_dp , 0.000030000_dp ,& 17 1.0_dp , 17 0.944476000_dp , 0.000030000_dp ,& 17 2.0_dp , 17 1.944895000_dp , 0.000030000_dp ,& 17 3.0_dp , 17 2.943750000_dp , 0.000030000_dp ,& 17 4.0_dp , 17 3.944454000_dp , 0.000030000_dp ,& 17 5.0_dp , 17 4.943737000_dp , 0.000030000_dp ,& 17 6.0_dp , 17 5.944857000_dp , 0.000033000_dp ,& 17 7.0_dp , 17 6.944481940_dp , 0.000003558_dp ,& 17 8.0_dp , 17 7.945680_dp , 0.000056_dp ,& 17 9.0_dp , 17 8.945939050_dp , 0.000001574_dp ,& 18 0.0_dp , 17 9.947467589_dp , 0.000002219_dp ,& 18 1.0_dp , 18 0.947998528_dp , 0.000001692_dp ,& 18 2.0_dp , 18 1.950154612_dp , 0.000001693_dp ,& 18 3.0_dp , 18 2.951375380_dp , 0.000001707_dp ,& 18 4.0_dp , 18 3.954009958_dp , 0.000027923_dp ,& 18 5.0_dp , 18 4.955561317_dp , 0.000015202_dp ,& 18 6.0_dp , 18 5.958553036_dp , 0.000064425_dp ,& 18 7.0_dp , 18 6.960391000_dp , 0.000060000_dp ,& 18 8.0_dp , 18 7.963596_dp , 0.000215_dp ,& 18 9.0_dp , 18 8.965690_dp , 0.000215_dp ,& 19 0.0_dp , 18 9.969168_dp , 0.000215_dp ,& 19 1.0_dp , 19 0.971530_dp , 0.000322_dp ,& 19 2.0_dp , 19 1.975201_dp , 0.000429_dp ,& 19 3.0_dp , 19 2.977660_dp , 0.000429_dp ,& 19 4.0_dp , 19 3.981610_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: W_naw = & naw_type ( 41 , transpose ( reshape ([& 15 7.0_dp , 15 6.978862_dp , 0.000429_dp ,& 15 8.0_dp , 15 7.974565_dp , 0.000322_dp ,& 15 9.0_dp , 15 8.972696_dp , 0.000322_dp ,& 16 0.0_dp , 15 9.968513946_dp , 0.000160828_dp ,& 16 1.0_dp , 16 0.967249_dp , 0.000215_dp ,& 16 2.0_dp , 16 1.963500341_dp , 0.000018955_dp ,& 16 3.0_dp , 16 2.962524251_dp , 0.000062722_dp ,& 16 4.0_dp , 16 3.958952445_dp , 0.000010384_dp ,& 16 5.0_dp , 16 4.958280663_dp , 0.000027649_dp ,& 16 6.0_dp , 16 5.955031952_dp , 0.000010159_dp ,& 16 7.0_dp , 16 6.954811080_dp , 0.000020078_dp ,& 16 8.0_dp , 16 7.951805459_dp , 0.000014233_dp ,& 16 9.0_dp , 16 8.951778689_dp , 0.000016571_dp ,& 17 0.0_dp , 16 9.949231235_dp , 0.000014165_dp ,& 17 1.0_dp , 17 0.949451000_dp , 0.000030000_dp ,& 17 2.0_dp , 17 1.947292000_dp , 0.000030000_dp ,& 17 3.0_dp , 17 2.947689000_dp , 0.000030000_dp ,& 17 4.0_dp , 17 3.946079000_dp , 0.000030000_dp ,& 17 5.0_dp , 17 4.946717000_dp , 0.000030000_dp ,& 17 6.0_dp , 17 5.945634000_dp , 0.000030000_dp ,& 17 7.0_dp , 17 6.946643000_dp , 0.000030000_dp ,& 17 8.0_dp , 17 7.945885791_dp , 0.000016316_dp ,& 17 9.0_dp , 17 8.947079378_dp , 0.000015644_dp ,& 18 0.0_dp , 17 9.946713304_dp , 0.000001545_dp ,& 18 1.0_dp , 18 0.948218733_dp , 0.000001554_dp ,& 18 2.0_dp , 18 1.948205636_dp , 0.000000799_dp ,& 18 3.0_dp , 18 2.950224416_dp , 0.000000798_dp ,& 18 4.0_dp , 18 3.950933180_dp , 0.000000792_dp ,& 18 5.0_dp , 18 4.953421206_dp , 0.000000793_dp ,& 18 6.0_dp , 18 5.954365140_dp , 0.000001302_dp ,& 18 7.0_dp , 18 6.957161249_dp , 0.000001302_dp ,& 18 8.0_dp , 18 7.958488325_dp , 0.000003316_dp ,& 18 9.0_dp , 18 8.961557_dp , 0.000215_dp ,& 19 0.0_dp , 18 9.963103542_dp , 0.000037993_dp ,& 19 1.0_dp , 19 0.966531000_dp , 0.000045000_dp ,& 19 2.0_dp , 19 1.968202_dp , 0.000215_dp ,& 19 3.0_dp , 19 2.971884_dp , 0.000215_dp ,& 19 4.0_dp , 19 3.973795_dp , 0.000322_dp ,& 19 5.0_dp , 19 4.977735_dp , 0.000322_dp ,& 19 6.0_dp , 19 5.979882_dp , 0.000429_dp ,& 19 7.0_dp , 19 6.984036_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Re_naw = & naw_type ( 41 , transpose ( reshape ([& 15 9.0_dp , 15 8.984106_dp , 0.000327_dp ,& 16 0.0_dp , 15 9.981880_dp , 0.000322_dp ,& 16 1.0_dp , 16 0.977624313_dp , 0.000160930_dp ,& 16 2.0_dp , 16 1.975896_dp , 0.000215_dp ,& 16 3.0_dp , 16 2.972085434_dp , 0.000019897_dp ,& 16 4.0_dp , 16 3.970507122_dp , 0.000058566_dp ,& 16 5.0_dp , 16 4.967085831_dp , 0.000025328_dp ,& 16 6.0_dp , 16 5.965821216_dp , 0.000094731_dp ,& 16 7.0_dp , 16 6.962604_dp , 0.000043_dp ,& 16 8.0_dp , 16 7.961572607_dp , 0.000033087_dp ,& 16 9.0_dp , 16 8.958765979_dp , 0.000012204_dp ,& 17 0.0_dp , 16 9.958234844_dp , 0.000012267_dp ,& 17 1.0_dp , 17 0.955716000_dp , 0.000030000_dp ,& 17 2.0_dp , 17 1.955376165_dp , 0.000038183_dp ,& 17 3.0_dp , 17 2.953243000_dp , 0.000030000_dp ,& 17 4.0_dp , 17 3.953115000_dp , 0.000030000_dp ,& 17 5.0_dp , 17 4.951381000_dp , 0.000030000_dp ,& 17 6.0_dp , 17 5.951623000_dp , 0.000030000_dp ,& 17 7.0_dp , 17 6.950328000_dp , 0.000030000_dp ,& 17 8.0_dp , 17 7.950989000_dp , 0.000030000_dp ,& 17 9.0_dp , 17 8.949989686_dp , 0.000026450_dp ,& 18 0.0_dp , 17 9.950791568_dp , 0.000022965_dp ,& 18 1.0_dp , 18 0.950061507_dp , 0.000013471_dp ,& 18 2.0_dp , 18 1.951211560_dp , 0.000109483_dp ,& 18 3.0_dp , 18 2.950821306_dp , 0.000008625_dp ,& 18 4.0_dp , 18 3.952528073_dp , 0.000004590_dp ,& 18 5.0_dp , 18 4.952958320_dp , 0.000000879_dp ,& 18 6.0_dp , 18 5.954989172_dp , 0.000000880_dp ,& 18 7.0_dp , 18 6.955752217_dp , 0.000000791_dp ,& 18 8.0_dp , 18 7.958113658_dp , 0.000000792_dp ,& 18 9.0_dp , 18 8.959227764_dp , 0.000008793_dp ,& 19 0.0_dp , 18 9.961800064_dp , 0.000005227_dp ,& 19 1.0_dp , 19 0.963123322_dp , 0.000011019_dp ,& 19 2.0_dp , 19 1.966088000_dp , 0.000076000_dp ,& 19 3.0_dp , 19 2.967545000_dp , 0.000042000_dp ,& 19 4.0_dp , 19 3.970735_dp , 0.000215_dp ,& 19 5.0_dp , 19 4.972560_dp , 0.000322_dp ,& 19 6.0_dp , 19 5.975996_dp , 0.000322_dp ,& 19 7.0_dp , 19 6.978153_dp , 0.000322_dp ,& 19 8.0_dp , 19 7.981760_dp , 0.000429_dp ,& 19 9.0_dp , 19 8.984187_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Os_naw = & naw_type ( 43 , transpose ( reshape ([& 16 1.0_dp , 16 0.989054_dp , 0.000429_dp ,& 16 2.0_dp , 16 1.984434_dp , 0.000322_dp ,& 16 3.0_dp , 16 2.982462_dp , 0.000322_dp ,& 16 4.0_dp , 16 3.978073158_dp , 0.000160927_dp ,& 16 5.0_dp , 16 4.976654_dp , 0.000215_dp ,& 16 6.0_dp , 16 5.972698135_dp , 0.000019287_dp ,& 16 7.0_dp , 16 6.971552304_dp , 0.000086841_dp ,& 16 8.0_dp , 16 7.967799050_dp , 0.000010631_dp ,& 16 9.0_dp , 16 8.967017521_dp , 0.000027847_dp ,& 17 0.0_dp , 16 9.963579273_dp , 0.000010476_dp ,& 17 1.0_dp , 17 0.963180402_dp , 0.000019589_dp ,& 17 2.0_dp , 17 1.960017309_dp , 0.000013704_dp ,& 17 3.0_dp , 17 2.959808387_dp , 0.000016059_dp ,& 17 4.0_dp , 17 3.957063192_dp , 0.000011008_dp ,& 17 5.0_dp , 17 4.956945126_dp , 0.000012640_dp ,& 17 6.0_dp , 17 5.954770315_dp , 0.000011754_dp ,& 17 7.0_dp , 17 6.954957902_dp , 0.000015687_dp ,& 17 8.0_dp , 17 7.953253334_dp , 0.000014634_dp ,& 17 9.0_dp , 17 8.953815985_dp , 0.000016645_dp ,& 18 0.0_dp , 17 9.952381665_dp , 0.000016878_dp ,& 18 1.0_dp , 18 0.953247188_dp , 0.000027201_dp ,& 18 2.0_dp , 18 1.952110154_dp , 0.000023344_dp ,& 18 3.0_dp , 18 2.953125028_dp , 0.000053428_dp ,& 18 4.0_dp , 18 3.952492919_dp , 0.000000890_dp ,& 18 5.0_dp , 18 4.954045969_dp , 0.000000893_dp ,& 18 6.0_dp , 18 5.953837569_dp , 0.000000816_dp ,& 18 7.0_dp , 18 6.955749569_dp , 0.000000791_dp ,& 18 8.0_dp , 18 7.955837292_dp , 0.000000788_dp ,& 18 9.0_dp , 18 8.958145949_dp , 0.000000715_dp ,& 19 0.0_dp , 18 9.958445442_dp , 0.000000697_dp ,& 19 1.0_dp , 19 0.960928105_dp , 0.000000707_dp ,& 19 2.0_dp , 19 1.961478765_dp , 0.000002484_dp ,& 19 3.0_dp , 19 2.964149637_dp , 0.000002490_dp ,& 19 4.0_dp , 19 3.965179407_dp , 0.000002579_dp ,& 19 5.0_dp , 19 4.968318000_dp , 0.000060000_dp ,& 19 6.0_dp , 19 5.969643261_dp , 0.000043000_dp ,& 19 7.0_dp , 19 6.973076_dp , 0.000215_dp ,& 19 8.0_dp , 19 7.974664_dp , 0.000215_dp ,& 19 9.0_dp , 19 8.978239_dp , 0.000215_dp ,& 20 0.0_dp , 19 9.980086_dp , 0.000322_dp ,& 20 1.0_dp , 20 0.984069_dp , 0.000322_dp ,& 20 2.0_dp , 20 1.986548_dp , 0.000429_dp ,& 20 3.0_dp , 20 2.992195_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ir_naw = & naw_type ( 43 , transpose ( reshape ([& 16 3.0_dp , 16 2.994299_dp , 0.000429_dp ,& 16 4.0_dp , 16 3.991966_dp , 0.000339_dp ,& 16 5.0_dp , 16 4.987552_dp , 0.000170_dp ,& 16 6.0_dp , 16 5.985716_dp , 0.000215_dp ,& 16 7.0_dp , 16 6.981671973_dp , 0.000019694_dp ,& 16 8.0_dp , 16 7.979960978_dp , 0.000059277_dp ,& 16 9.0_dp , 16 8.976281743_dp , 0.000025020_dp ,& 17 0.0_dp , 16 9.975113_dp , 0.000109_dp ,& 17 1.0_dp , 17 0.971645520_dp , 0.000041295_dp ,& 17 2.0_dp , 17 1.970607035_dp , 0.000034785_dp ,& 17 3.0_dp , 17 2.967505477_dp , 0.000011316_dp ,& 17 4.0_dp , 17 3.966949939_dp , 0.000012046_dp ,& 17 5.0_dp , 17 4.964149519_dp , 0.000013295_dp ,& 17 6.0_dp , 17 5.963626261_dp , 0.000008679_dp ,& 17 7.0_dp , 17 6.961301500_dp , 0.000021213_dp ,& 17 8.0_dp , 17 7.961079395_dp , 0.000020204_dp ,& 17 9.0_dp , 17 8.959117594_dp , 0.000010489_dp ,& 18 0.0_dp , 17 9.959229446_dp , 0.000023302_dp ,& 18 1.0_dp , 18 0.957634691_dp , 0.000005631_dp ,& 18 2.0_dp , 18 1.958076296_dp , 0.000022509_dp ,& 18 3.0_dp , 18 2.956841231_dp , 0.000026486_dp ,& 18 4.0_dp , 18 3.957476000_dp , 0.000030000_dp ,& 18 5.0_dp , 18 4.956698000_dp , 0.000030000_dp ,& 18 6.0_dp , 18 5.957946754_dp , 0.000017740_dp ,& 18 7.0_dp , 18 6.957542000_dp , 0.000030000_dp ,& 18 8.0_dp , 18 7.958834999_dp , 0.000010116_dp ,& 18 9.0_dp , 18 8.958722602_dp , 0.000013500_dp ,& 19 0.0_dp , 18 9.960543374_dp , 0.000001470_dp ,& 19 1.0_dp , 19 0.960591455_dp , 0.000001406_dp ,& 19 2.0_dp , 19 1.962602414_dp , 0.000001410_dp ,& 19 3.0_dp , 19 2.962923753_dp , 0.000001425_dp ,& 19 4.0_dp , 19 3.965075703_dp , 0.000001429_dp ,& 19 5.0_dp , 19 4.965976898_dp , 0.000001431_dp ,& 19 6.0_dp , 19 5.968399669_dp , 0.000041239_dp ,& 19 7.0_dp , 19 6.969657217_dp , 0.000021588_dp ,& 19 8.0_dp , 19 7.972399_dp , 0.000215_dp ,& 19 9.0_dp , 19 8.973807097_dp , 0.000044073_dp ,& 20 0.0_dp , 19 9.976844_dp , 0.000210_dp ,& 20 1.0_dp , 20 0.978701_dp , 0.000215_dp ,& 20 2.0_dp , 20 1.982136_dp , 0.000322_dp ,& 20 3.0_dp , 20 2.984573_dp , 0.000429_dp ,& 20 4.0_dp , 20 3.989726_dp , 0.000429_dp ,& 20 5.0_dp , 20 4.993988_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pt_naw = & naw_type ( 44 , transpose ( reshape ([& 16 5.0_dp , 16 4.999658_dp , 0.000429_dp ,& 16 6.0_dp , 16 5.994866_dp , 0.000322_dp ,& 16 7.0_dp , 16 6.992750_dp , 0.000329_dp ,& 16 8.0_dp , 16 7.988180196_dp , 0.000160960_dp ,& 16 9.0_dp , 16 8.986619_dp , 0.000215_dp ,& 17 0.0_dp , 16 9.982502087_dp , 0.000019588_dp ,& 17 1.0_dp , 17 0.981248868_dp , 0.000086904_dp ,& 17 2.0_dp , 17 1.977341059_dp , 0.000011139_dp ,& 17 3.0_dp , 17 2.976449922_dp , 0.000068096_dp ,& 17 4.0_dp , 17 3.972820431_dp , 0.000011098_dp ,& 17 5.0_dp , 17 4.972400593_dp , 0.000019982_dp ,& 17 6.0_dp , 17 5.968938162_dp , 0.000013647_dp ,& 17 7.0_dp , 17 6.968469541_dp , 0.000016090_dp ,& 17 8.0_dp , 17 7.965649288_dp , 0.000010878_dp ,& 17 9.0_dp , 17 8.965358742_dp , 0.000008563_dp ,& 18 0.0_dp , 17 9.963038010_dp , 0.000010790_dp ,& 18 1.0_dp , 18 0.963089946_dp , 0.000014695_dp ,& 18 2.0_dp , 18 1.961171605_dp , 0.000014057_dp ,& 18 3.0_dp , 18 2.961595895_dp , 0.000015261_dp ,& 18 4.0_dp , 18 3.959921929_dp , 0.000015828_dp ,& 18 5.0_dp , 18 4.960613659_dp , 0.000027731_dp ,& 18 6.0_dp , 18 5.959350845_dp , 0.000023344_dp ,& 18 7.0_dp , 18 6.960616646_dp , 0.000025837_dp ,& 18 8.0_dp , 18 7.959397521_dp , 0.000005694_dp ,& 18 9.0_dp , 18 8.960848485_dp , 0.000010832_dp ,& 19 0.0_dp , 18 9.959949823_dp , 0.000000705_dp ,& 19 1.0_dp , 19 0.961676261_dp , 0.000004430_dp ,& 19 2.0_dp , 19 1.961042667_dp , 0.000002758_dp ,& 19 3.0_dp , 19 2.962984546_dp , 0.000001458_dp ,& 19 4.0_dp , 19 3.962683498_dp , 0.000000532_dp ,& 19 5.0_dp , 19 4.964794325_dp , 0.000000540_dp ,& 19 6.0_dp , 19 5.964954648_dp , 0.000000547_dp ,& 19 7.0_dp , 19 6.967343030_dp , 0.000000575_dp ,& 19 8.0_dp , 19 7.967896718_dp , 0.000002254_dp ,& 19 9.0_dp , 19 8.970597022_dp , 0.000002317_dp ,& 20 0.0_dp , 19 9.971444609_dp , 0.000021588_dp ,& 20 1.0_dp , 20 0.974513305_dp , 0.000053788_dp ,& 20 2.0_dp , 20 1.975639000_dp , 0.000027000_dp ,& 20 3.0_dp , 20 2.979055_dp , 0.000215_dp ,& 20 4.0_dp , 20 3.981084_dp , 0.000215_dp ,& 20 5.0_dp , 20 4.986237_dp , 0.000322_dp ,& 20 6.0_dp , 20 5.990080_dp , 0.000322_dp ,& 20 7.0_dp , 20 6.995556_dp , 0.000429_dp ,& 20 8.0_dp , 20 7.999463_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Au_naw = & naw_type ( 43 , transpose ( reshape ([& 16 8.0_dp , 16 8.002716_dp , 0.000429_dp ,& 16 9.0_dp , 16 8.998080_dp , 0.000320_dp ,& 17 0.0_dp , 16 9.996024_dp , 0.000216_dp ,& 17 1.0_dp , 17 0.991881533_dp , 0.000022236_dp ,& 17 2.0_dp , 17 1.989996704_dp , 0.000060287_dp ,& 17 3.0_dp , 17 2.986224263_dp , 0.000024458_dp ,& 17 4.0_dp , 17 3.984908_dp , 0.000109_dp ,& 17 5.0_dp , 17 4.981316375_dp , 0.000041399_dp ,& 17 6.0_dp , 17 5.980116925_dp , 0.000035625_dp ,& 17 7.0_dp , 17 6.976869701_dp , 0.000010700_dp ,& 17 8.0_dp , 17 7.976056714_dp , 0.000011000_dp ,& 17 9.0_dp , 17 8.973173666_dp , 0.000012555_dp ,& 18 0.0_dp , 17 9.972489738_dp , 0.000005108_dp ,& 18 1.0_dp , 18 0.970079102_dp , 0.000021445_dp ,& 18 2.0_dp , 18 1.969614433_dp , 0.000020143_dp ,& 18 3.0_dp , 18 2.967588106_dp , 0.000010116_dp ,& 18 4.0_dp , 18 3.967451523_dp , 0.000023912_dp ,& 18 5.0_dp , 18 4.965798871_dp , 0.000002800_dp ,& 18 6.0_dp , 18 5.965952703_dp , 0.000022509_dp ,& 18 7.0_dp , 18 6.964542147_dp , 0.000024153_dp ,& 18 8.0_dp , 18 7.965247966_dp , 0.000002900_dp ,& 18 9.0_dp , 18 8.963948286_dp , 0.000021558_dp ,& 19 0.0_dp , 18 9.964751746_dp , 0.000003700_dp ,& 19 1.0_dp , 19 0.963716452_dp , 0.000005288_dp ,& 19 2.0_dp , 19 1.964817615_dp , 0.000016991_dp ,& 19 3.0_dp , 19 2.964138442_dp , 0.000009311_dp ,& 19 4.0_dp , 19 3.965419051_dp , 0.000002273_dp ,& 19 5.0_dp , 19 4.965037823_dp , 0.000001201_dp ,& 19 6.0_dp , 19 5.966571213_dp , 0.000003179_dp ,& 19 7.0_dp , 19 6.966570103_dp , 0.000000581_dp ,& 19 8.0_dp , 19 7.968243714_dp , 0.000000579_dp ,& 19 9.0_dp , 19 8.968766573_dp , 0.000000581_dp ,& 20 0.0_dp , 19 9.970756558_dp , 0.000028681_dp ,& 20 1.0_dp , 20 0.971657678_dp , 0.000003455_dp ,& 20 2.0_dp , 20 1.973856000_dp , 0.000025000_dp ,& 20 3.0_dp , 20 2.975154492_dp , 0.000003309_dp ,& 20 4.0_dp , 20 3.978110_dp , 0.000215_dp ,& 20 5.0_dp , 20 4.980064_dp , 0.000215_dp ,& 20 6.0_dp , 20 5.984766_dp , 0.000322_dp ,& 20 7.0_dp , 20 6.988577_dp , 0.000322_dp ,& 20 8.0_dp , 20 7.993655_dp , 0.000322_dp ,& 20 9.0_dp , 20 8.997606_dp , 0.000429_dp ,& 21 0.0_dp , 21 0.002877_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Hg_naw = & naw_type ( 47 , transpose ( reshape ([& 17 0.0_dp , 17 0.005814_dp , 0.000324_dp ,& 17 1.0_dp , 17 1.003585_dp , 0.000329_dp ,& 17 2.0_dp , 17 1.998860581_dp , 0.000161098_dp ,& 17 3.0_dp , 17 2.997143_dp , 0.000215_dp ,& 17 4.0_dp , 17 3.992870575_dp , 0.000020623_dp ,& 17 5.0_dp , 17 4.991444451_dp , 0.000087047_dp ,& 17 6.0_dp , 17 5.987348670_dp , 0.000011936_dp ,& 17 7.0_dp , 17 6.986284590_dp , 0.000090952_dp ,& 17 8.0_dp , 17 7.982484756_dp , 0.000011548_dp ,& 17 9.0_dp , 17 8.981821759_dp , 0.000030188_dp ,& 18 0.0_dp , 17 9.978260180_dp , 0.000013574_dp ,& 18 1.0_dp , 18 0.977819368_dp , 0.000016513_dp ,& 18 2.0_dp , 18 1.974689173_dp , 0.000010510_dp ,& 18 3.0_dp , 18 2.974444652_dp , 0.000007604_dp ,& 18 4.0_dp , 18 3.971717709_dp , 0.000010235_dp ,& 18 5.0_dp , 18 4.971890696_dp , 0.000014641_dp ,& 18 6.0_dp , 18 5.969362061_dp , 0.000012507_dp ,& 18 7.0_dp , 18 6.969813540_dp , 0.000013810_dp ,& 18 8.0_dp , 18 7.967580738_dp , 0.000007285_dp ,& 18 9.0_dp , 18 8.968194776_dp , 0.000033873_dp ,& 19 0.0_dp , 18 9.966322250_dp , 0.000017076_dp ,& 19 1.0_dp , 19 0.967158301_dp , 0.000023918_dp ,& 19 2.0_dp , 19 1.965634263_dp , 0.000016679_dp ,& 19 3.0_dp , 19 2.966653395_dp , 0.000016645_dp ,& 19 4.0_dp , 19 3.965449108_dp , 0.000003100_dp ,& 19 5.0_dp , 19 4.966705809_dp , 0.000024843_dp ,& 19 6.0_dp , 19 5.965833445_dp , 0.000003163_dp ,& 19 7.0_dp , 19 6.967213715_dp , 0.000003442_dp ,& 19 8.0_dp , 19 7.966769177_dp , 0.000000491_dp ,& 19 9.0_dp , 19 8.968280994_dp , 0.000000564_dp ,& 20 0.0_dp , 19 9.968326941_dp , 0.000000568_dp ,& 20 1.0_dp , 20 0.970303054_dp , 0.000000763_dp ,& 20 2.0_dp , 20 1.970643604_dp , 0.000000757_dp ,& 20 3.0_dp , 20 2.972872396_dp , 0.000001750_dp ,& 20 4.0_dp , 20 3.973494037_dp , 0.000000534_dp ,& 20 5.0_dp , 20 4.976073151_dp , 0.000003923_dp ,& 20 6.0_dp , 20 5.977513837_dp , 0.000021943_dp ,& 20 7.0_dp , 20 6.982300000_dp , 0.000032000_dp ,& 20 8.0_dp , 20 7.985759000_dp , 0.000033000_dp ,& 20 9.0_dp , 20 8.990757_dp , 0.000161_dp ,& 21 0.0_dp , 20 9.994310_dp , 0.000215_dp ,& 21 1.0_dp , 21 0.999581_dp , 0.000215_dp ,& 21 2.0_dp , 21 2.003242_dp , 0.000322_dp ,& 21 3.0_dp , 21 3.008803_dp , 0.000322_dp ,& 21 4.0_dp , 21 4.012636_dp , 0.000429_dp ,& 21 5.0_dp , 21 5.018368_dp , 0.000429_dp ,& 21 6.0_dp , 21 6.022459_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Tl_naw = & naw_type ( 43 , transpose ( reshape ([& 17 6.0_dp , 17 6.000627731_dp , 0.000089166_dp ,& 17 7.0_dp , 17 6.996414252_dp , 0.000023218_dp ,& 17 8.0_dp , 17 7.995047_dp , 0.000110_dp ,& 17 9.0_dp , 17 8.991122185_dp , 0.000041495_dp ,& 18 0.0_dp , 17 9.989918950_dp , 0.000075058_dp ,& 18 1.0_dp , 18 0.986259978_dp , 0.000009771_dp ,& 18 2.0_dp , 18 1.985692649_dp , 0.000012856_dp ,& 18 3.0_dp , 18 2.982192843_dp , 0.000010017_dp ,& 18 4.0_dp , 18 3.981874973_dp , 0.000010747_dp ,& 18 5.0_dp , 18 4.978789189_dp , 0.000022194_dp ,& 18 6.0_dp , 18 5.978654787_dp , 0.000022276_dp ,& 18 7.0_dp , 18 6.975904740_dp , 0.000008640_dp ,& 18 8.0_dp , 18 7.976020886_dp , 0.000032103_dp ,& 18 9.0_dp , 18 8.973573525_dp , 0.000008983_dp ,& 19 0.0_dp , 18 9.973841771_dp , 0.000007784_dp ,& 19 1.0_dp , 19 0.971784093_dp , 0.000007889_dp ,& 19 2.0_dp , 19 1.972225000_dp , 0.000034000_dp ,& 19 3.0_dp , 19 2.970501994_dp , 0.000007200_dp ,& 19 4.0_dp , 19 3.971081408_dp , 0.000015000_dp ,& 19 5.0_dp , 19 4.969774052_dp , 0.000011944_dp ,& 19 6.0_dp , 19 5.970481189_dp , 0.000013000_dp ,& 19 7.0_dp , 19 6.969560492_dp , 0.000014573_dp ,& 19 8.0_dp , 19 7.970446669_dp , 0.000008100_dp ,& 19 9.0_dp , 19 8.969877000_dp , 0.000030000_dp ,& 20 0.0_dp , 19 9.970963608_dp , 0.000006182_dp ,& 20 1.0_dp , 20 0.970820235_dp , 0.000015228_dp ,& 20 2.0_dp , 20 1.972108874_dp , 0.000001972_dp ,& 20 3.0_dp , 20 2.972344098_dp , 0.000001257_dp ,& 20 4.0_dp , 20 3.973863420_dp , 0.000001238_dp ,& 20 5.0_dp , 20 4.974427318_dp , 0.000001330_dp ,& 20 6.0_dp , 20 5.976110108_dp , 0.000001380_dp ,& 20 7.0_dp , 20 6.977418605_dp , 0.000005839_dp ,& 20 8.0_dp , 20 7.982018006_dp , 0.000001989_dp ,& 20 9.0_dp , 20 8.985351713_dp , 0.000006559_dp ,& 21 0.0_dp , 20 9.990072942_dp , 0.000012456_dp ,& 21 1.0_dp , 21 0.993475000_dp , 0.000045000_dp ,& 21 2.0_dp , 21 1.998335_dp , 0.000215_dp ,& 21 3.0_dp , 21 3.001915000_dp , 0.000029000_dp ,& 21 4.0_dp , 21 4.006940_dp , 0.000210_dp ,& 21 5.0_dp , 21 5.010768_dp , 0.000322_dp ,& 21 6.0_dp , 21 6.015964_dp , 0.000322_dp ,& 21 7.0_dp , 21 7.020032_dp , 0.000429_dp ,& 21 8.0_dp , 21 8.025454_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pb_naw = & naw_type ( 43 , transpose ( reshape ([& 17 8.0_dp , 17 8.003836171_dp , 0.000024889_dp ,& 17 9.0_dp , 17 9.002202492_dp , 0.000087203_dp ,& 18 0.0_dp , 17 9.997916177_dp , 0.000013306_dp ,& 18 1.0_dp , 18 0.996660600_dp , 0.000091290_dp ,& 18 2.0_dp , 18 1.992673537_dp , 0.000012975_dp ,& 18 3.0_dp , 18 2.991862527_dp , 0.000031110_dp ,& 18 4.0_dp , 18 3.988135634_dp , 0.000013743_dp ,& 18 5.0_dp , 18 4.987610000_dp , 0.000017364_dp ,& 18 6.0_dp , 18 5.984239409_dp , 0.000011813_dp ,& 18 7.0_dp , 18 6.983910842_dp , 0.000005468_dp ,& 18 8.0_dp , 18 7.980879079_dp , 0.000010868_dp ,& 18 9.0_dp , 18 8.980843658_dp , 0.000015096_dp ,& 19 0.0_dp , 18 9.978081872_dp , 0.000013434_dp ,& 19 1.0_dp , 19 0.978216455_dp , 0.000007099_dp ,& 19 2.0_dp , 19 1.975789598_dp , 0.000006147_dp ,& 19 3.0_dp , 19 2.976135914_dp , 0.000011044_dp ,& 19 4.0_dp , 19 3.974011788_dp , 0.000018717_dp ,& 19 5.0_dp , 19 4.974516167_dp , 0.000005461_dp ,& 19 6.0_dp , 19 5.972787552_dp , 0.000008277_dp ,& 19 7.0_dp , 19 6.973434737_dp , 0.000005157_dp ,& 19 8.0_dp , 19 7.972015450_dp , 0.000009393_dp ,& 19 9.0_dp , 19 8.972912620_dp , 0.000007322_dp ,& 20 0.0_dp , 19 9.971818546_dp , 0.000010744_dp ,& 20 1.0_dp , 20 0.972870431_dp , 0.000014758_dp ,& 20 2.0_dp , 20 1.972151613_dp , 0.000004075_dp ,& 20 3.0_dp , 20 2.973390617_dp , 0.000007036_dp ,& 20 4.0_dp , 20 3.973043506_dp , 0.000001231_dp ,& 20 5.0_dp , 20 4.974481682_dp , 0.000001228_dp ,& 20 6.0_dp , 20 5.974465210_dp , 0.000001228_dp ,& 20 7.0_dp , 20 6.975896821_dp , 0.000001231_dp ,& 20 8.0_dp , 20 7.976652005_dp , 0.000001232_dp ,& 20 9.0_dp , 20 8.981089978_dp , 0.000001875_dp ,& 21 0.0_dp , 20 9.984188381_dp , 0.000001554_dp ,& 21 1.0_dp , 21 0.988735288_dp , 0.000002426_dp ,& 21 2.0_dp , 21 1.991895891_dp , 0.000001975_dp ,& 21 3.0_dp , 21 2.996560796_dp , 0.000007465_dp ,& 21 4.0_dp , 21 3.999803521_dp , 0.000002114_dp ,& 21 5.0_dp , 21 5.004661591_dp , 0.000056560_dp ,& 21 6.0_dp , 21 6.008062_dp , 0.000215_dp ,& 21 7.0_dp , 21 7.013162_dp , 0.000322_dp ,& 21 8.0_dp , 21 8.016779_dp , 0.000322_dp ,& 21 9.0_dp , 21 9.022136_dp , 0.000429_dp ,& 22 0.0_dp , 22 0.025905_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Bi_naw = & naw_type ( 41 , transpose ( reshape ([& 18 4.0_dp , 18 4.001347_dp , 0.000131_dp ,& 18 5.0_dp , 18 4.997600_dp , 0.000087_dp ,& 18 6.0_dp , 18 5.996623169_dp , 0.000018200_dp ,& 18 7.0_dp , 18 6.993147272_dp , 0.000010740_dp ,& 18 8.0_dp , 18 7.992276064_dp , 0.000012001_dp ,& 18 9.0_dp , 18 8.989195139_dp , 0.000022384_dp ,& 19 0.0_dp , 18 9.988624828_dp , 0.000022515_dp ,& 19 1.0_dp , 19 0.985786972_dp , 0.000008037_dp ,& 19 2.0_dp , 19 1.985470077_dp , 0.000032326_dp ,& 19 3.0_dp , 19 2.982947220_dp , 0.000008132_dp ,& 19 4.0_dp , 19 3.982798581_dp , 0.000005638_dp ,& 19 5.0_dp , 19 4.980648759_dp , 0.000005675_dp ,& 19 6.0_dp , 19 5.980666509_dp , 0.000026224_dp ,& 19 7.0_dp , 19 6.978864927_dp , 0.000008946_dp ,& 19 8.0_dp , 19 7.979201316_dp , 0.000029598_dp ,& 19 9.0_dp , 19 8.977672841_dp , 0.000011395_dp ,& 20 0.0_dp , 19 9.978131290_dp , 0.000024370_dp ,& 20 1.0_dp , 20 0.976995017_dp , 0.000013072_dp ,& 20 2.0_dp , 20 1.977723042_dp , 0.000015032_dp ,& 20 3.0_dp , 20 2.976892077_dp , 0.000013717_dp ,& 20 4.0_dp , 20 3.977835687_dp , 0.000009854_dp ,& 20 5.0_dp , 20 4.977385182_dp , 0.000005161_dp ,& 20 6.0_dp , 20 5.978498843_dp , 0.000008193_dp ,& 20 7.0_dp , 20 6.978470551_dp , 0.000002573_dp ,& 20 8.0_dp , 20 7.979742060_dp , 0.000002474_dp ,& 20 9.0_dp , 20 8.980398599_dp , 0.000001465_dp ,& 21 0.0_dp , 20 9.984120237_dp , 0.000001463_dp ,& 21 1.0_dp , 21 0.987268715_dp , 0.000005842_dp ,& 21 2.0_dp , 21 1.991285030_dp , 0.000001989_dp ,& 21 3.0_dp , 21 2.994383570_dp , 0.000005455_dp ,& 21 4.0_dp , 21 3.998710909_dp , 0.000012033_dp ,& 21 5.0_dp , 21 5.001749095_dp , 0.000006037_dp ,& 21 6.0_dp , 21 6.006305985_dp , 0.000012000_dp ,& 21 7.0_dp , 21 7.009372000_dp , 0.000019000_dp ,& 21 8.0_dp , 21 8.014188000_dp , 0.000029000_dp ,& 21 9.0_dp , 21 9.017520_dp , 0.000215_dp ,& 22 0.0_dp , 22 0.022501_dp , 0.000322_dp ,& 22 1.0_dp , 22 1.025980_dp , 0.000322_dp ,& 22 2.0_dp , 22 2.031079_dp , 0.000322_dp ,& 22 3.0_dp , 22 3.034611_dp , 0.000429_dp ,& 22 4.0_dp , 22 4.039796_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Po_naw = & naw_type ( 42 , transpose ( reshape ([& 18 6.0_dp , 18 6.004403174_dp , 0.000019622_dp ,& 18 7.0_dp , 18 7.003031482_dp , 0.000035030_dp ,& 18 8.0_dp , 18 7.999415586_dp , 0.000021438_dp ,& 18 9.0_dp , 18 8.998473425_dp , 0.000023681_dp ,& 19 0.0_dp , 18 9.995101731_dp , 0.000014131_dp ,& 19 1.0_dp , 19 0.994558494_dp , 0.000007624_dp ,& 19 2.0_dp , 19 1.991340274_dp , 0.000011416_dp ,& 19 3.0_dp , 19 2.991062421_dp , 0.000015599_dp ,& 19 4.0_dp , 19 3.988186058_dp , 0.000013860_dp ,& 19 5.0_dp , 19 4.988065781_dp , 0.000006486_dp ,& 19 6.0_dp , 19 5.985540722_dp , 0.000005778_dp ,& 19 7.0_dp , 19 6.985621939_dp , 0.000010585_dp ,& 19 8.0_dp , 19 7.983388753_dp , 0.000018705_dp ,& 19 9.0_dp , 19 8.983640445_dp , 0.000005828_dp ,& 20 0.0_dp , 19 9.981812355_dp , 0.000008136_dp ,& 20 1.0_dp , 20 0.982263799_dp , 0.000005305_dp ,& 20 2.0_dp , 20 1.980738934_dp , 0.000009307_dp ,& 20 3.0_dp , 20 2.981416072_dp , 0.000004981_dp ,& 20 4.0_dp , 20 3.980310078_dp , 0.000010811_dp ,& 20 5.0_dp , 20 4.981190006_dp , 0.000010798_dp ,& 20 6.0_dp , 20 5.980473662_dp , 0.000004306_dp ,& 20 7.0_dp , 20 6.981593334_dp , 0.000007148_dp ,& 20 8.0_dp , 20 7.981246035_dp , 0.000001795_dp ,& 20 9.0_dp , 20 8.982430361_dp , 0.000001909_dp ,& 21 0.0_dp , 20 9.982873686_dp , 0.000001230_dp ,& 21 1.0_dp , 21 0.986653171_dp , 0.000001347_dp ,& 21 2.0_dp , 21 1.988867982_dp , 0.000001237_dp ,& 21 3.0_dp , 21 2.992857154_dp , 0.000003277_dp ,& 21 4.0_dp , 21 3.995201287_dp , 0.000001556_dp ,& 21 5.0_dp , 21 4.999418385_dp , 0.000002276_dp ,& 21 6.0_dp , 21 6.001913416_dp , 0.000001948_dp ,& 21 7.0_dp , 21 7.006316145_dp , 0.000007025_dp ,& 21 8.0_dp , 21 8.008971234_dp , 0.000002112_dp ,& 21 9.0_dp , 21 9.013614000_dp , 0.000017000_dp ,& 22 0.0_dp , 22 0.016386000_dp , 0.000019000_dp ,& 22 1.0_dp , 22 1.021228000_dp , 0.000021000_dp ,& 22 2.0_dp , 22 2.024140000_dp , 0.000043000_dp ,& 22 3.0_dp , 22 3.029070_dp , 0.000210_dp ,& 22 4.0_dp , 22 4.032110_dp , 0.000210_dp ,& 22 5.0_dp , 22 5.037123_dp , 0.000322_dp ,& 22 6.0_dp , 22 6.040310_dp , 0.000430_dp ,& 22 7.0_dp , 22 7.045390_dp , 0.000430_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: At_naw = & naw_type ( 39 , transpose ( reshape ([& 19 1.0_dp , 19 1.004148081_dp , 0.000017287_dp ,& 19 2.0_dp , 19 2.003140912_dp , 0.000029922_dp ,& 19 3.0_dp , 19 2.999927725_dp , 0.000023222_dp ,& 19 4.0_dp , 19 3.999230816_dp , 0.000025230_dp ,& 19 5.0_dp , 19 4.996274480_dp , 0.000010276_dp ,& 19 6.0_dp , 19 5.995799034_dp , 0.000032458_dp ,& 19 7.0_dp , 19 6.993177353_dp , 0.000008570_dp ,& 19 8.0_dp , 19 7.992797864_dp , 0.000005265_dp ,& 19 9.0_dp , 19 8.990527715_dp , 0.000005780_dp ,& 20 0.0_dp , 19 9.990351099_dp , 0.000026264_dp ,& 20 1.0_dp , 20 0.988417058_dp , 0.000008786_dp ,& 20 2.0_dp , 20 1.988625686_dp , 0.000029631_dp ,& 20 3.0_dp , 20 2.986942904_dp , 0.000011404_dp ,& 20 4.0_dp , 20 3.987251393_dp , 0.000024335_dp ,& 20 5.0_dp , 20 4.986060546_dp , 0.000012941_dp ,& 20 6.0_dp , 20 5.986645768_dp , 0.000014523_dp ,& 20 7.0_dp , 20 6.985799715_dp , 0.000013318_dp ,& 20 8.0_dp , 20 7.986613011_dp , 0.000009577_dp ,& 20 9.0_dp , 20 8.986168701_dp , 0.000005094_dp ,& 21 0.0_dp , 20 9.987147423_dp , 0.000008261_dp ,& 21 1.0_dp , 21 0.987496226_dp , 0.000002929_dp ,& 21 2.0_dp , 21 1.990737301_dp , 0.000002559_dp ,& 21 3.0_dp , 21 2.992936593_dp , 0.000005258_dp ,& 21 4.0_dp , 21 3.996372331_dp , 0.000004274_dp ,& 21 5.0_dp , 21 4.998651002_dp , 0.000007116_dp ,& 21 6.0_dp , 21 6.002422643_dp , 0.000003837_dp ,& 21 7.0_dp , 21 7.004717794_dp , 0.000005368_dp ,& 21 8.0_dp , 21 8.008695941_dp , 0.000012349_dp ,& 21 9.0_dp , 21 9.011160587_dp , 0.000003474_dp ,& 22 0.0_dp , 22 0.015433000_dp , 0.000015000_dp ,& 22 1.0_dp , 22 1.018017000_dp , 0.000015000_dp ,& 22 2.0_dp , 22 2.022494000_dp , 0.000017000_dp ,& 22 3.0_dp , 22 3.025151000_dp , 0.000015000_dp ,& 22 4.0_dp , 22 4.029749000_dp , 0.000024000_dp ,& 22 5.0_dp , 22 5.032528_dp , 0.000322_dp ,& 22 6.0_dp , 22 6.037209_dp , 0.000322_dp ,& 22 7.0_dp , 22 7.040183_dp , 0.000322_dp ,& 22 8.0_dp , 22 8.044960_dp , 0.000429_dp ,& 22 9.0_dp , 22 9.048191_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Rn_naw = & naw_type ( 39 , transpose ( reshape ([& 19 3.0_dp , 19 3.009707973_dp , 0.000026958_dp ,& 19 4.0_dp , 19 4.006145636_dp , 0.000017884_dp ,& 19 5.0_dp , 19 5.005421703_dp , 0.000055487_dp ,& 19 6.0_dp , 19 6.002120431_dp , 0.000015087_dp ,& 19 7.0_dp , 19 7.001621446_dp , 0.000017383_dp ,& 19 8.0_dp , 19 7.998679197_dp , 0.000014406_dp ,& 19 9.0_dp , 19 8.998325436_dp , 0.000007833_dp ,& 20 0.0_dp , 19 9.995705335_dp , 0.000006217_dp ,& 20 1.0_dp , 20 0.995590511_dp , 0.000010865_dp ,& 20 2.0_dp , 20 1.993263982_dp , 0.000018808_dp ,& 20 3.0_dp , 20 2.993361155_dp , 0.000006242_dp ,& 20 4.0_dp , 20 3.991443729_dp , 0.000007991_dp ,& 20 5.0_dp , 20 4.991723228_dp , 0.000005453_dp ,& 20 6.0_dp , 20 5.990195409_dp , 0.000009223_dp ,& 20 7.0_dp , 20 6.990730224_dp , 0.000005090_dp ,& 20 8.0_dp , 20 7.989634513_dp , 0.000010910_dp ,& 20 9.0_dp , 20 8.990401389_dp , 0.000010692_dp ,& 21 0.0_dp , 20 9.989688862_dp , 0.000004892_dp ,& 21 1.0_dp , 21 0.990600767_dp , 0.000007314_dp ,& 21 2.0_dp , 21 1.990703946_dp , 0.000003338_dp ,& 21 3.0_dp , 21 2.993885147_dp , 0.000003618_dp ,& 21 4.0_dp , 21 3.995362650_dp , 0.000009862_dp ,& 21 5.0_dp , 21 4.998745037_dp , 0.000006538_dp ,& 21 6.0_dp , 21 6.000271942_dp , 0.000006192_dp ,& 21 7.0_dp , 21 7.003927632_dp , 0.000004506_dp ,& 21 8.0_dp , 21 8.005601123_dp , 0.000002486_dp ,& 21 9.0_dp , 21 9.009478683_dp , 0.000002254_dp ,& 22 0.0_dp , 22 0.011392443_dp , 0.000001947_dp ,& 22 1.0_dp , 22 1.015535637_dp , 0.000006134_dp ,& 22 2.0_dp , 22 2.017576017_dp , 0.000002086_dp ,& 22 3.0_dp , 22 3.021889283_dp , 0.000008397_dp ,& 22 4.0_dp , 22 4.024095803_dp , 0.000010536_dp ,& 22 5.0_dp , 22 5.028485572_dp , 0.000011958_dp ,& 22 6.0_dp , 22 6.030861380_dp , 0.000011247_dp ,& 22 7.0_dp , 22 7.035304393_dp , 0.000015127_dp ,& 22 8.0_dp , 22 8.037835415_dp , 0.000018977_dp ,& 22 9.0_dp , 22 9.042257272_dp , 0.000014000_dp ,& 23 0.0_dp , 23 0.045271_dp , 0.000215_dp ,& 23 1.0_dp , 23 1.049973_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Fr_naw = & naw_type ( 37 , transpose ( reshape ([& 19 7.0_dp , 19 7.011008086_dp , 0.000060584_dp ,& 19 8.0_dp , 19 8.010282081_dp , 0.000033419_dp ,& 19 9.0_dp , 19 9.007269384_dp , 0.000014734_dp ,& 20 0.0_dp , 20 0.006584666_dp , 0.000032769_dp ,& 20 1.0_dp , 20 1.003852491_dp , 0.000009747_dp ,& 20 2.0_dp , 20 2.003329637_dp , 0.000006476_dp ,& 20 3.0_dp , 20 3.000940867_dp , 0.000006689_dp ,& 20 4.0_dp , 20 4.000651972_dp , 0.000026389_dp ,& 20 5.0_dp , 20 4.998593854_dp , 0.000008399_dp ,& 20 6.0_dp , 20 5.998661441_dp , 0.000029856_dp ,& 20 7.0_dp , 20 6.996941450_dp , 0.000018847_dp ,& 20 8.0_dp , 20 7.997139082_dp , 0.000012514_dp ,& 20 9.0_dp , 20 8.995939701_dp , 0.000012349_dp ,& 21 0.0_dp , 20 9.996410596_dp , 0.000014407_dp ,& 21 1.0_dp , 21 0.995555189_dp , 0.000012872_dp ,& 21 2.0_dp , 21 1.996225420_dp , 0.000009419_dp ,& 21 3.0_dp , 21 2.996184410_dp , 0.000005053_dp ,& 21 4.0_dp , 21 3.998971193_dp , 0.000009145_dp ,& 21 5.0_dp , 21 5.000341534_dp , 0.000007585_dp ,& 21 6.0_dp , 21 6.003189523_dp , 0.000004480_dp ,& 21 7.0_dp , 21 7.004631980_dp , 0.000007011_dp ,& 21 8.0_dp , 21 8.007578620_dp , 0.000004546_dp ,& 21 9.0_dp , 21 9.009250664_dp , 0.000007380_dp ,& 22 0.0_dp , 22 0.012326789_dp , 0.000004324_dp ,& 22 1.0_dp , 22 1.014253714_dp , 0.000005245_dp ,& 22 2.0_dp , 22 2.017582615_dp , 0.000008000_dp ,& 22 3.0_dp , 22 3.019734241_dp , 0.000002073_dp ,& 22 4.0_dp , 22 4.023348096_dp , 0.000012000_dp ,& 22 5.0_dp , 22 5.025572466_dp , 0.000012847_dp ,& 22 6.0_dp , 22 6.029544512_dp , 0.000006688_dp ,& 22 7.0_dp , 22 7.031865413_dp , 0.000006332_dp ,& 22 8.0_dp , 22 8.035839433_dp , 0.000007226_dp ,& 22 9.0_dp , 22 9.038291443_dp , 0.000005368_dp ,& 23 0.0_dp , 23 0.042390787_dp , 0.000007022_dp ,& 23 1.0_dp , 23 1.045175353_dp , 0.000008300_dp ,& 23 2.0_dp , 23 2.049461219_dp , 0.000015000_dp ,& 23 3.0_dp , 23 3.052517833_dp , 0.000021000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ra_naw = & naw_type ( 35 , transpose ( reshape ([& 20 1.0_dp , 20 1.012814699_dp , 0.000021794_dp ,& 20 2.0_dp , 20 2.009742305_dp , 0.000016122_dp ,& 20 3.0_dp , 20 3.009233907_dp , 0.000010400_dp ,& 20 4.0_dp , 20 4.006506855_dp , 0.000009580_dp ,& 20 5.0_dp , 20 5.006230692_dp , 0.000024446_dp ,& 20 6.0_dp , 20 6.003827842_dp , 0.000019332_dp ,& 20 7.0_dp , 20 7.003772420_dp , 0.000062572_dp ,& 20 8.0_dp , 20 8.001855012_dp , 0.000009686_dp ,& 20 9.0_dp , 20 9.001994902_dp , 0.000006169_dp ,& 21 0.0_dp , 21 0.000475406_dp , 0.000009868_dp ,& 21 1.0_dp , 21 1.000893049_dp , 0.000005331_dp ,& 21 2.0_dp , 21 1.999786619_dp , 0.000011007_dp ,& 21 3.0_dp , 21 3.000370971_dp , 0.000010540_dp ,& 21 4.0_dp , 21 4.000099560_dp , 0.000005636_dp ,& 21 5.0_dp , 21 5.002718208_dp , 0.000007730_dp ,& 21 6.0_dp , 21 6.003533534_dp , 0.000008592_dp ,& 21 7.0_dp , 21 7.006322676_dp , 0.000007564_dp ,& 21 8.0_dp , 21 8.007134297_dp , 0.000010528_dp ,& 21 9.0_dp , 21 9.010084715_dp , 0.000007315_dp ,& 22 0.0_dp , 22 0.011027542_dp , 0.000008153_dp ,& 22 1.0_dp , 22 1.013917293_dp , 0.000004970_dp ,& 22 2.0_dp , 22 2.015373371_dp , 0.000004781_dp ,& 22 3.0_dp , 22 3.018500648_dp , 0.000002243_dp ,& 22 4.0_dp , 22 4.020210361_dp , 0.000001944_dp ,& 22 5.0_dp , 22 5.023610502_dp , 0.000002786_dp ,& 22 6.0_dp , 22 6.025408186_dp , 0.000002068_dp ,& 22 7.0_dp , 22 7.029176205_dp , 0.000002089_dp ,& 22 8.0_dp , 22 8.031068574_dp , 0.000002141_dp ,& 22 9.0_dp , 22 9.034956703_dp , 0.000016576_dp ,& 23 0.0_dp , 23 0.037054776_dp , 0.000011053_dp ,& 23 1.0_dp , 23 1.041027085_dp , 0.000012206_dp ,& 23 2.0_dp , 23 2.043475267_dp , 0.000009823_dp ,& 23 3.0_dp , 23 3.047594570_dp , 0.000009235_dp ,& 23 4.0_dp , 23 4.050382100_dp , 0.000009000_dp ,& 23 5.0_dp , 23 5.054890_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ac_naw = & naw_type ( 33 , transpose ( reshape ([& 20 5.0_dp , 20 5.015144152_dp , 0.000063682_dp ,& 20 6.0_dp , 20 6.014476477_dp , 0.000069874_dp ,& 20 7.0_dp , 20 7.011965967_dp , 0.000060384_dp ,& 20 8.0_dp , 20 8.011552251_dp , 0.000069225_dp ,& 20 9.0_dp , 20 9.009495375_dp , 0.000059953_dp ,& 21 0.0_dp , 21 0.009408625_dp , 0.000066782_dp ,& 21 1.0_dp , 21 1.007668846_dp , 0.000057706_dp ,& 21 2.0_dp , 21 2.007836442_dp , 0.000023492_dp ,& 21 3.0_dp , 21 3.006592665_dp , 0.000012522_dp ,& 21 4.0_dp , 21 4.006906400_dp , 0.000014547_dp ,& 21 5.0_dp , 21 5.006474061_dp , 0.000013318_dp ,& 21 6.0_dp , 21 6.008749101_dp , 0.000009908_dp ,& 21 7.0_dp , 21 7.009342325_dp , 0.000012048_dp ,& 21 8.0_dp , 21 8.011648860_dp , 0.000061853_dp ,& 21 9.0_dp , 21 9.012420425_dp , 0.000055263_dp ,& 22 0.0_dp , 22 0.014754527_dp , 0.000006579_dp ,& 22 1.0_dp , 22 1.015599721_dp , 0.000061086_dp ,& 22 2.0_dp , 22 2.017844232_dp , 0.000005044_dp ,& 22 3.0_dp , 22 3.019135982_dp , 0.000007457_dp ,& 22 4.0_dp , 22 4.021722249_dp , 0.000004389_dp ,& 22 5.0_dp , 22 5.023228601_dp , 0.000005107_dp ,& 22 6.0_dp , 22 6.026096999_dp , 0.000003327_dp ,& 22 7.0_dp , 22 7.027750594_dp , 0.000002068_dp ,& 22 8.0_dp , 22 8.031019685_dp , 0.000002247_dp ,& 22 9.0_dp , 22 9.032947000_dp , 0.000013000_dp ,& 23 0.0_dp , 23 0.036327000_dp , 0.000017000_dp ,& 23 1.0_dp , 23 1.038393000_dp , 0.000014000_dp ,& 23 2.0_dp , 23 2.042034000_dp , 0.000014000_dp ,& 23 3.0_dp , 23 3.044346000_dp , 0.000014000_dp ,& 23 4.0_dp , 23 4.048139000_dp , 0.000015000_dp ,& 23 5.0_dp , 23 5.050840000_dp , 0.000015000_dp ,& 23 6.0_dp , 23 6.054988000_dp , 0.000041000_dp ,& 23 7.0_dp , 23 7.057993_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Th_naw = & naw_type ( 32 , transpose ( reshape ([& 20 8.0_dp , 20 8.017915348_dp , 0.000034208_dp ,& 20 9.0_dp , 20 9.017601_dp , 0.000111_dp ,& 21 0.0_dp , 21 0.015093515_dp , 0.000020299_dp ,& 21 1.0_dp , 21 1.014896923_dp , 0.000092399_dp ,& 21 2.0_dp , 21 2.013001570_dp , 0.000010852_dp ,& 21 3.0_dp , 21 3.013011470_dp , 0.000009895_dp ,& 21 4.0_dp , 21 4.011481480_dp , 0.000011445_dp ,& 21 5.0_dp , 21 5.011724640_dp , 0.000006800_dp ,& 21 6.0_dp , 21 6.011055933_dp , 0.000011920_dp ,& 21 7.0_dp , 21 7.013103443_dp , 0.000011394_dp ,& 21 8.0_dp , 21 8.013276248_dp , 0.000011289_dp ,& 21 9.0_dp , 21 9.015526432_dp , 0.000060611_dp ,& 22 0.0_dp , 22 0.015769866_dp , 0.000014693_dp ,& 22 1.0_dp , 22 1.018185757_dp , 0.000008582_dp ,& 22 2.0_dp , 22 2.018468220_dp , 0.000010966_dp ,& 22 3.0_dp , 22 3.020811083_dp , 0.000008527_dp ,& 22 4.0_dp , 22 4.021466137_dp , 0.000010310_dp ,& 22 5.0_dp , 22 5.023950975_dp , 0.000005467_dp ,& 22 6.0_dp , 22 6.024903699_dp , 0.000004810_dp ,& 22 7.0_dp , 22 7.027702546_dp , 0.000002241_dp ,& 22 8.0_dp , 22 8.028739741_dp , 0.000001938_dp ,& 22 9.0_dp , 22 9.031761357_dp , 0.000002581_dp ,& 23 0.0_dp , 23 0.033132267_dp , 0.000001297_dp ,& 23 1.0_dp , 23 1.036302764_dp , 0.000001306_dp ,& 23 2.0_dp , 23 2.038053606_dp , 0.000001525_dp ,& 23 3.0_dp , 23 3.041580126_dp , 0.000001528_dp ,& 23 4.0_dp , 23 4.043599801_dp , 0.000002779_dp ,& 23 5.0_dp , 23 5.047255000_dp , 0.000014000_dp ,& 23 6.0_dp , 23 6.049657000_dp , 0.000015000_dp ,& 23 7.0_dp , 23 7.053629000_dp , 0.000017000_dp ,& 23 8.0_dp , 23 8.056388_dp , 0.000304_dp ,& 23 9.0_dp , 23 9.060655_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pa_naw = & naw_type ( 31 , transpose ( reshape ([& 21 1.0_dp , 21 1.023674036_dp , 0.000074581_dp ,& 21 2.0_dp , 21 2.023184819_dp , 0.000094047_dp ,& 21 3.0_dp , 21 3.021099644_dp , 0.000061374_dp ,& 21 4.0_dp , 21 4.020891055_dp , 0.000087180_dp ,& 21 5.0_dp , 21 5.019113955_dp , 0.000088513_dp ,& 21 6.0_dp , 21 6.019134633_dp , 0.000026459_dp ,& 21 7.0_dp , 21 7.018309024_dp , 0.000013417_dp ,& 21 8.0_dp , 21 8.020021133_dp , 0.000019158_dp ,& 21 9.0_dp , 21 9.019949909_dp , 0.000074831_dp ,& 22 0.0_dp , 22 0.021769753_dp , 0.000015732_dp ,& 22 1.0_dp , 22 1.021873393_dp , 0.000063746_dp ,& 22 2.0_dp , 22 2.023687064_dp , 0.000092975_dp ,& 22 3.0_dp , 22 3.023980414_dp , 0.000081193_dp ,& 22 4.0_dp , 22 4.025617286_dp , 0.000008145_dp ,& 22 5.0_dp , 22 5.026147927_dp , 0.000087887_dp ,& 22 6.0_dp , 22 6.027948217_dp , 0.000012037_dp ,& 22 7.0_dp , 22 7.028803586_dp , 0.000007797_dp ,& 22 8.0_dp , 22 8.031050758_dp , 0.000004659_dp ,& 22 9.0_dp , 22 9.032095585_dp , 0.000003521_dp ,& 23 0.0_dp , 23 0.034539717_dp , 0.000003261_dp ,& 23 1.0_dp , 23 1.035882500_dp , 0.000001901_dp ,& 23 2.0_dp , 23 2.038590205_dp , 0.000008206_dp ,& 23 3.0_dp , 23 3.040246535_dp , 0.000001433_dp ,& 23 4.0_dp , 23 4.043305555_dp , 0.000004395_dp ,& 23 5.0_dp , 23 5.045399000_dp , 0.000015000_dp ,& 23 6.0_dp , 23 6.048668000_dp , 0.000015000_dp ,& 23 7.0_dp , 23 7.051023000_dp , 0.000014000_dp ,& 23 8.0_dp , 23 8.054637000_dp , 0.000017000_dp ,& 23 9.0_dp , 23 9.057260_dp , 0.000210_dp ,& 24 0.0_dp , 24 0.061203_dp , 0.000215_dp ,& 24 1.0_dp , 24 1.064134_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: U_naw = & naw_type ( 29 , transpose ( reshape ([& 21 5.0_dp , 21 5.026719774_dp , 0.000111794_dp ,& 21 6.0_dp , 21 6.024762829_dp , 0.000030158_dp ,& 21 7.0_dp , 21 7.024660_dp , 0.000086_dp ,& 21 8.0_dp , 21 8.023504877_dp , 0.000014722_dp ,& 21 9.0_dp , 21 9.025009233_dp , 0.000014319_dp ,& 22 0.0_dp , 22 0.024706_dp , 0.000108_dp ,& 22 1.0_dp , 22 1.026323297_dp , 0.000077440_dp ,& 22 2.0_dp , 22 2.026057957_dp , 0.000055817_dp ,& 22 3.0_dp , 22 3.027960754_dp , 0.000063396_dp ,& 22 4.0_dp , 22 4.027635913_dp , 0.000016383_dp ,& 22 5.0_dp , 22 5.029385050_dp , 0.000010664_dp ,& 22 6.0_dp , 22 6.029338669_dp , 0.000011884_dp ,& 22 7.0_dp , 22 7.031181124_dp , 0.000009136_dp ,& 22 8.0_dp , 22 8.031368959_dp , 0.000014465_dp ,& 22 9.0_dp , 22 9.033505976_dp , 0.000006374_dp ,& 23 0.0_dp , 23 0.033940114_dp , 0.000004841_dp ,& 23 1.0_dp , 23 1.036292180_dp , 0.000002866_dp ,& 23 2.0_dp , 23 2.037154765_dp , 0.000001941_dp ,& 23 3.0_dp , 23 3.039634294_dp , 0.000002420_dp ,& 23 4.0_dp , 23 4.040950296_dp , 0.000001212_dp ,& 23 5.0_dp , 23 5.043928117_dp , 0.000001198_dp ,& 23 6.0_dp , 23 6.045566130_dp , 0.000001193_dp ,& 23 7.0_dp , 23 7.048728309_dp , 0.000001290_dp ,& 23 8.0_dp , 23 8.050786936_dp , 0.000001601_dp ,& 23 9.0_dp , 23 9.054291989_dp , 0.000001612_dp ,& 24 0.0_dp , 24 0.056592411_dp , 0.000002740_dp ,& 24 1.0_dp , 24 1.060330_dp , 0.000210_dp ,& 24 2.0_dp , 24 2.062931_dp , 0.000215_dp ,& 24 3.0_dp , 24 3.067075_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Np_naw = & naw_type ( 27 , transpose ( reshape ([& 21 9.0_dp , 21 9.031601865_dp , 0.000098732_dp ,& 22 0.0_dp , 22 0.032716280_dp , 0.000032977_dp ,& 22 1.0_dp , 22 1.032110_dp , 0.000215_dp ,& 22 2.0_dp , 22 2.033574706_dp , 0.000040849_dp ,& 22 3.0_dp , 22 3.032913340_dp , 0.000088956_dp ,& 22 4.0_dp , 22 4.034388030_dp , 0.000031052_dp ,& 22 5.0_dp , 22 5.033943422_dp , 0.000098355_dp ,& 22 6.0_dp , 22 6.035230364_dp , 0.000109568_dp ,& 22 7.0_dp , 22 7.034975012_dp , 0.000082651_dp ,& 22 8.0_dp , 22 8.036313_dp , 0.000108_dp ,& 22 9.0_dp , 22 9.036287269_dp , 0.000108618_dp ,& 23 0.0_dp , 23 0.037828060_dp , 0.000059051_dp ,& 23 1.0_dp , 23 1.038243598_dp , 0.000054916_dp ,& 23 2.0_dp , 23 2.040107_dp , 0.000107_dp ,& 23 3.0_dp , 23 3.040739421_dp , 0.000054729_dp ,& 23 4.0_dp , 23 4.042893245_dp , 0.000009014_dp ,& 23 5.0_dp , 23 5.044061518_dp , 0.000001490_dp ,& 23 6.0_dp , 23 6.046568296_dp , 0.000054129_dp ,& 23 7.0_dp , 23 7.048171640_dp , 0.000001201_dp ,& 23 8.0_dp , 23 8.050944603_dp , 0.000001220_dp ,& 23 9.0_dp , 23 9.052937538_dp , 0.000001406_dp ,& 24 0.0_dp , 24 0.056163778_dp , 0.000018284_dp ,& 24 1.0_dp , 24 1.058309671_dp , 0.000107360_dp ,& 24 2.0_dp , 24 2.061639548_dp , 0.000214712_dp ,& 24 3.0_dp , 24 3.064204_dp , 0.000034_dp ,& 24 4.0_dp , 24 4.067891_dp , 0.000107_dp ,& 24 5.0_dp , 24 5.070693_dp , 0.000215_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pu_naw = & naw_type ( 27 , transpose ( reshape ([& 22 1.0_dp , 22 1.038572_dp , 0.000322_dp ,& 22 2.0_dp , 22 2.037638_dp , 0.000322_dp ,& 22 3.0_dp , 22 3.038777_dp , 0.000322_dp ,& 22 4.0_dp , 22 4.037875_dp , 0.000322_dp ,& 22 5.0_dp , 22 5.038970_dp , 0.000322_dp ,& 22 6.0_dp , 22 6.038250_dp , 0.000215_dp ,& 22 7.0_dp , 22 7.039474_dp , 0.000107_dp ,& 22 8.0_dp , 22 8.038763325_dp , 0.000025069_dp ,& 22 9.0_dp , 22 9.040145099_dp , 0.000065092_dp ,& 23 0.0_dp , 23 0.039648313_dp , 0.000015514_dp ,& 23 1.0_dp , 23 1.041125946_dp , 0.000023683_dp ,& 23 2.0_dp , 23 2.041182133_dp , 0.000018126_dp ,& 23 3.0_dp , 23 3.042997411_dp , 0.000058162_dp ,& 23 4.0_dp , 23 4.043317489_dp , 0.000007298_dp ,& 23 5.0_dp , 23 5.045284609_dp , 0.000022030_dp ,& 23 6.0_dp , 23 6.046056661_dp , 0.000001942_dp ,& 23 7.0_dp , 23 7.048407888_dp , 0.000001821_dp ,& 23 8.0_dp , 23 8.049558175_dp , 0.000001221_dp ,& 23 9.0_dp , 23 9.052161596_dp , 0.000001194_dp ,& 24 0.0_dp , 24 0.053811740_dp , 0.000001186_dp ,& 24 1.0_dp , 24 1.056849651_dp , 0.000001186_dp ,& 24 2.0_dp , 24 2.058740979_dp , 0.000001336_dp ,& 24 3.0_dp , 24 3.062002068_dp , 0.000002728_dp ,& 24 4.0_dp , 24 4.064204401_dp , 0.000002518_dp ,& 24 5.0_dp , 24 5.067824554_dp , 0.000014621_dp ,& 24 6.0_dp , 24 6.070204172_dp , 0.000016087_dp ,& 24 7.0_dp , 24 7.074300_dp , 0.000215_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Am_naw = & naw_type ( 27 , transpose ( reshape ([& 22 3.0_dp , 22 3.045840_dp , 0.000322_dp ,& 22 4.0_dp , 22 4.046442_dp , 0.000429_dp ,& 22 5.0_dp , 22 5.045508_dp , 0.000429_dp ,& 22 6.0_dp , 22 6.046130_dp , 0.000322_dp ,& 22 7.0_dp , 22 7.045282_dp , 0.000215_dp ,& 22 8.0_dp , 22 8.046001_dp , 0.000215_dp ,& 22 9.0_dp , 22 9.045282534_dp , 0.000114169_dp ,& 23 0.0_dp , 23 0.046025_dp , 0.000153_dp ,& 23 1.0_dp , 23 1.045529_dp , 0.000322_dp ,& 23 2.0_dp , 23 2.046613_dp , 0.000322_dp ,& 23 3.0_dp , 23 3.046468_dp , 0.000123_dp ,& 23 4.0_dp , 23 4.047731_dp , 0.000172_dp ,& 23 5.0_dp , 23 5.047906478_dp , 0.000056661_dp ,& 23 6.0_dp , 23 6.049427_dp , 0.000127_dp ,& 23 7.0_dp , 23 7.049995_dp , 0.000064_dp ,& 23 8.0_dp , 23 8.051982531_dp , 0.000063243_dp ,& 23 9.0_dp , 23 9.053022729_dp , 0.000002127_dp ,& 24 0.0_dp , 24 0.055298374_dp , 0.000014849_dp ,& 24 1.0_dp , 24 1.056827343_dp , 0.000001195_dp ,& 24 2.0_dp , 24 2.059547358_dp , 0.000001199_dp ,& 24 3.0_dp , 24 3.061379889_dp , 0.000001490_dp ,& 24 4.0_dp , 24 4.064282892_dp , 0.000001600_dp ,& 24 5.0_dp , 24 5.066452827_dp , 0.000002024_dp ,& 24 6.0_dp , 24 6.069774_dp , 0.000019_dp ,& 24 7.0_dp , 24 7.072092_dp , 0.000107_dp ,& 24 8.0_dp , 24 8.075752_dp , 0.000215_dp ,& 24 9.0_dp , 24 9.078480_dp , 0.000320_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cm_naw = & naw_type ( 22 , transpose ( reshape ([& 23 1.0_dp , 23 1.050746_dp , 0.000322_dp ,& 23 2.0_dp , 23 2.049740_dp , 0.000216_dp ,& 23 3.0_dp , 23 3.050771485_dp , 0.000087059_dp ,& 23 4.0_dp , 23 4.050158568_dp , 0.000018333_dp ,& 23 5.0_dp , 23 5.051545_dp , 0.000110_dp ,& 23 6.0_dp , 23 6.051372112_dp , 0.000018931_dp ,& 23 7.0_dp , 23 7.052868988_dp , 0.000079870_dp ,& 23 8.0_dp , 23 8.053081606_dp , 0.000013133_dp ,& 23 9.0_dp , 23 9.054908519_dp , 0.000161107_dp ,& 24 0.0_dp , 24 0.055528233_dp , 0.000002045_dp ,& 24 1.0_dp , 24 1.057651218_dp , 0.000001725_dp ,& 24 2.0_dp , 24 2.058834187_dp , 0.000001224_dp ,& 24 3.0_dp , 24 3.061387329_dp , 0.000001605_dp ,& 24 4.0_dp , 24 4.062750622_dp , 0.000001187_dp ,& 24 5.0_dp , 24 5.065491047_dp , 0.000001233_dp ,& 24 6.0_dp , 24 6.067222016_dp , 0.000001637_dp ,& 24 7.0_dp , 24 7.070352678_dp , 0.000004076_dp ,& 24 8.0_dp , 24 8.072349086_dp , 0.000002531_dp ,& 24 9.0_dp , 24 9.075953992_dp , 0.000002545_dp ,& 25 0.0_dp , 25 0.078357541_dp , 0.000011029_dp ,& 25 1.0_dp , 25 1.082284988_dp , 0.000024367_dp ,& 25 2.0_dp , 25 2.084870_dp , 0.000320_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Bk_naw = & naw_type ( 22 , transpose ( reshape ([& 23 3.0_dp , 23 3.056652_dp , 0.000250_dp ,& 23 4.0_dp , 23 4.057322_dp , 0.000164_dp ,& 23 5.0_dp , 23 5.056651_dp , 0.000430_dp ,& 23 6.0_dp , 23 6.057479_dp , 0.000387_dp ,& 23 7.0_dp , 23 7.057123_dp , 0.000247_dp ,& 23 8.0_dp , 23 8.058204_dp , 0.000275_dp ,& 23 9.0_dp , 23 9.058239_dp , 0.000222_dp ,& 24 0.0_dp , 24 0.059758_dp , 0.000161_dp ,& 24 1.0_dp , 24 1.060098_dp , 0.000178_dp ,& 24 2.0_dp , 24 2.061999_dp , 0.000144_dp ,& 24 3.0_dp , 24 3.063005905_dp , 0.000004856_dp ,& 24 4.0_dp , 24 4.065178969_dp , 0.000015457_dp ,& 24 5.0_dp , 24 5.066359814_dp , 0.000001923_dp ,& 24 6.0_dp , 24 6.068671300_dp , 0.000064433_dp ,& 24 7.0_dp , 24 7.070305889_dp , 0.000005570_dp ,& 24 8.0_dp , 24 8.073141689_dp , 0.000053739_dp ,& 24 9.0_dp , 24 9.074983118_dp , 0.000001339_dp ,& 25 0.0_dp , 25 0.078317195_dp , 0.000003110_dp ,& 25 1.0_dp , 25 1.080760555_dp , 0.000011523_dp ,& 25 2.0_dp , 25 2.084310_dp , 0.000215_dp ,& 25 3.0_dp , 25 3.086880_dp , 0.000385_dp ,& 25 4.0_dp , 25 4.090600_dp , 0.000320_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cf_naw = & naw_type ( 20 , transpose ( reshape ([& 23 7.0_dp , 23 7.062199272_dp , 0.000104506_dp ,& 23 8.0_dp , 23 8.061490_dp , 0.000320_dp ,& 23 9.0_dp , 23 9.062482_dp , 0.000129_dp ,& 24 0.0_dp , 24 0.062253447_dp , 0.000019360_dp ,& 24 1.0_dp , 24 1.063690_dp , 0.000180_dp ,& 24 2.0_dp , 24 2.063754544_dp , 0.000013840_dp ,& 24 3.0_dp , 24 3.065475_dp , 0.000194_dp ,& 24 4.0_dp , 24 4.065999447_dp , 0.000002809_dp ,& 24 5.0_dp , 24 5.068046755_dp , 0.000002606_dp ,& 24 6.0_dp , 24 6.068803685_dp , 0.000001625_dp ,& 24 7.0_dp , 24 7.070971348_dp , 0.000015380_dp ,& 24 8.0_dp , 24 8.072182905_dp , 0.000005497_dp ,& 24 9.0_dp , 24 9.074850428_dp , 0.000001269_dp ,& 25 0.0_dp , 25 0.076404494_dp , 0.000001650_dp ,& 25 1.0_dp , 25 1.079587171_dp , 0.000004187_dp ,& 25 2.0_dp , 25 2.081626507_dp , 0.000002531_dp ,& 25 3.0_dp , 25 3.085133723_dp , 0.000004570_dp ,& 25 4.0_dp , 25 4.087323575_dp , 0.000012304_dp ,& 25 5.0_dp , 25 5.091046_dp , 0.000215_dp ,& 25 6.0_dp , 25 6.093442_dp , 0.000338_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Es_naw = & naw_type ( 20 , transpose ( reshape ([& 23 9.0_dp , 23 9.068310_dp , 0.000322_dp ,& 24 0.0_dp , 24 0.068949_dp , 0.000393_dp ,& 24 1.0_dp , 24 1.068592_dp , 0.000248_dp ,& 24 2.0_dp , 24 2.069567_dp , 0.000276_dp ,& 24 3.0_dp , 24 3.069508_dp , 0.000222_dp ,& 24 4.0_dp , 24 4.070881_dp , 0.000195_dp ,& 24 5.0_dp , 24 5.071192_dp , 0.000178_dp ,& 24 6.0_dp , 24 6.072806474_dp , 0.000096538_dp ,& 24 7.0_dp , 24 7.073621929_dp , 0.000020870_dp ,& 24 8.0_dp , 24 8.075469_dp , 0.000056_dp ,& 24 9.0_dp , 24 9.076409_dp , 0.000032_dp ,& 25 0.0_dp , 25 0.078611_dp , 0.000107_dp ,& 25 1.0_dp , 25 1.079991431_dp , 0.000005676_dp ,& 25 2.0_dp , 25 2.082979173_dp , 0.000053736_dp ,& 25 3.0_dp , 25 3.084821241_dp , 0.000001341_dp ,& 25 4.0_dp , 25 4.088024337_dp , 0.000003152_dp ,& 25 5.0_dp , 25 5.090273504_dp , 0.000011612_dp ,& 25 6.0_dp , 25 6.093597_dp , 0.000107_dp ,& 25 7.0_dp , 25 7.095979_dp , 0.000441_dp ,& 25 8.0_dp , 25 8.099520_dp , 0.000430_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Fm_naw = & naw_type ( 20 , transpose ( reshape ([& 24 1.0_dp , 24 1.074311_dp , 0.000322_dp ,& 24 2.0_dp , 24 2.073430_dp , 0.000430_dp ,& 24 3.0_dp , 24 3.074414_dp , 0.000140_dp ,& 24 4.0_dp , 24 4.074036_dp , 0.000216_dp ,& 24 5.0_dp , 24 5.075354_dp , 0.000210_dp ,& 24 6.0_dp , 24 6.075353334_dp , 0.000014675_dp ,& 24 7.0_dp , 24 7.076944_dp , 0.000194_dp ,& 24 8.0_dp , 24 8.077185451_dp , 0.000009122_dp ,& 24 9.0_dp , 24 9.078926042_dp , 0.000006668_dp ,& 25 0.0_dp , 25 0.079519765_dp , 0.000008468_dp ,& 25 1.0_dp , 25 1.081545130_dp , 0.000015342_dp ,& 25 2.0_dp , 25 2.082466019_dp , 0.000005604_dp ,& 25 3.0_dp , 25 3.085180945_dp , 0.000001662_dp ,& 25 4.0_dp , 25 4.086852424_dp , 0.000001978_dp ,& 25 5.0_dp , 25 5.089963495_dp , 0.000004223_dp ,& 25 6.0_dp , 25 6.091771699_dp , 0.000003241_dp ,& 25 7.0_dp , 25 7.095105419_dp , 0.000004669_dp ,& 25 8.0_dp , 25 8.097077_dp , 0.000215_dp ,& 25 9.0_dp , 25 9.100596_dp , 0.000304_dp ,& 26 0.0_dp , 26 0.102809_dp , 0.000467_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Md_naw = & naw_type ( 19 , transpose ( reshape ([& 24 4.0_dp , 24 4.081157_dp , 0.000402_dp ,& 24 5.0_dp , 24 5.080864_dp , 0.000279_dp ,& 24 6.0_dp , 24 6.081713_dp , 0.000279_dp ,& 24 7.0_dp , 24 7.081520_dp , 0.000223_dp ,& 24 8.0_dp , 24 8.082607_dp , 0.000198_dp ,& 24 9.0_dp , 24 9.082857155_dp , 0.000176516_dp ,& 25 0.0_dp , 25 0.084164934_dp , 0.000097606_dp ,& 25 1.0_dp , 25 1.084774287_dp , 0.000020310_dp ,& 25 2.0_dp , 25 2.086385000_dp , 0.000098000_dp ,& 25 3.0_dp , 25 3.087143_dp , 0.000034_dp ,& 25 4.0_dp , 25 4.089590_dp , 0.000107_dp ,& 25 5.0_dp , 25 5.091081702_dp , 0.000005976_dp ,& 25 6.0_dp , 25 6.093888_dp , 0.000133_dp ,& 25 7.0_dp , 25 7.095537343_dp , 0.000001683_dp ,& 25 8.0_dp , 25 8.098433634_dp , 0.000003729_dp ,& 25 9.0_dp , 25 9.100445_dp , 0.000108_dp ,& 26 0.0_dp , 26 0.103650_dp , 0.000339_dp ,& 26 1.0_dp , 26 1.105828_dp , 0.000546_dp ,& 26 2.0_dp , 26 2.109144_dp , 0.000481_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: No_naw = & naw_type ( 17 , transpose ( reshape ([& 24 8.0_dp , 24 8.086623_dp , 0.000241_dp ,& 24 9.0_dp , 24 9.087802_dp , 0.000300_dp ,& 25 0.0_dp , 25 0.087565_dp , 0.000215_dp ,& 25 1.0_dp , 25 1.088942_dp , 0.000194_dp ,& 25 2.0_dp , 25 2.088966070_dp , 0.000009975_dp ,& 25 3.0_dp , 25 3.090562780_dp , 0.000007420_dp ,& 25 4.0_dp , 25 4.090954211_dp , 0.000010367_dp ,& 25 5.0_dp , 25 5.093196439_dp , 0.000015079_dp ,& 25 6.0_dp , 25 6.094281912_dp , 0.000008103_dp ,& 25 7.0_dp , 25 7.096884203_dp , 0.000006652_dp ,& 25 8.0_dp , 25 8.098205_dp , 0.000107_dp ,& 25 9.0_dp , 25 9.100998364_dp , 0.000006829_dp ,& 26 0.0_dp , 26 0.102641_dp , 0.000215_dp ,& 26 1.0_dp , 26 1.105696_dp , 0.000215_dp ,& 26 2.0_dp , 26 2.107463_dp , 0.000387_dp ,& 26 3.0_dp , 26 3.110714_dp , 0.000526_dp ,& 26 4.0_dp , 26 4.112734_dp , 0.000634_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Lr_naw = & naw_type ( 16 , transpose ( reshape ([& 25 1.0_dp , 25 1.094289_dp , 0.000215_dp ,& 25 2.0_dp , 25 2.095048_dp , 0.000198_dp ,& 25 3.0_dp , 25 3.095033850_dp , 0.000176634_dp ,& 25 4.0_dp , 25 4.096238813_dp , 0.000098026_dp ,& 25 5.0_dp , 25 5.096562399_dp , 0.000019000_dp ,& 25 6.0_dp , 25 6.098494024_dp , 0.000089000_dp ,& 25 7.0_dp , 25 7.099480_dp , 0.000047_dp ,& 25 8.0_dp , 25 8.101753_dp , 0.000109_dp ,& 25 9.0_dp , 25 9.102900_dp , 0.000076_dp ,& 26 0.0_dp , 26 0.105504_dp , 0.000134_dp ,& 26 1.0_dp , 26 1.106879_dp , 0.000215_dp ,& 26 2.0_dp , 26 2.109615_dp , 0.000215_dp ,& 26 3.0_dp , 26 3.111293_dp , 0.000240_dp ,& 26 4.0_dp , 26 4.114198_dp , 0.000468_dp ,& 26 5.0_dp , 26 5.116193_dp , 0.000587_dp ,& 26 6.0_dp , 26 6.119874_dp , 0.000579_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Rf_naw = & naw_type ( 16 , transpose ( reshape ([& 25 3.0_dp , 25 3.100528_dp , 0.000440_dp ,& 25 4.0_dp , 25 4.100055_dp , 0.000304_dp ,& 25 5.0_dp , 25 5.101267_dp , 0.000194_dp ,& 25 6.0_dp , 25 6.101151464_dp , 0.000019160_dp ,& 25 7.0_dp , 25 7.102916796_dp , 0.000011612_dp ,& 25 8.0_dp , 25 8.103429895_dp , 0.000017288_dp ,& 25 9.0_dp , 25 9.105601_dp , 0.000078_dp ,& 26 0.0_dp , 26 0.106440_dp , 0.000215_dp ,& 26 1.0_dp , 26 1.108769591_dp , 0.000070492_dp ,& 26 2.0_dp , 26 2.109923_dp , 0.000240_dp ,& 26 3.0_dp , 26 3.112461_dp , 0.000164_dp ,& 26 4.0_dp , 26 4.113876_dp , 0.000387_dp ,& 26 5.0_dp , 26 5.116683_dp , 0.000387_dp ,& 26 6.0_dp , 26 6.118236_dp , 0.000443_dp ,& 26 7.0_dp , 26 7.121787_dp , 0.000617_dp ,& 26 8.0_dp , 26 8.123968_dp , 0.000711_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Db_naw = & naw_type ( 16 , transpose ( reshape ([& 25 5.0_dp , 25 5.106919_dp , 0.000304_dp ,& 25 6.0_dp , 25 6.107674_dp , 0.000201_dp ,& 25 7.0_dp , 25 7.107520042_dp , 0.000176741_dp ,& 25 8.0_dp , 25 8.108972995_dp , 0.000098613_dp ,& 25 9.0_dp , 25 9.109491859_dp , 0.000060854_dp ,& 26 0.0_dp , 26 0.111297_dp , 0.000100_dp ,& 26 1.0_dp , 26 1.111979_dp , 0.000118_dp ,& 26 2.0_dp , 26 2.114067_dp , 0.000154_dp ,& 26 3.0_dp , 26 3.114987_dp , 0.000180_dp ,& 26 4.0_dp , 26 4.117297_dp , 0.000253_dp ,& 26 5.0_dp , 26 5.118500_dp , 0.000240_dp ,& 26 6.0_dp , 26 6.121032_dp , 0.000304_dp ,& 26 7.0_dp , 26 7.122399_dp , 0.000402_dp ,& 26 8.0_dp , 26 8.125669_dp , 0.000568_dp ,& 26 9.0_dp , 26 9.127911_dp , 0.000669_dp ,& 27 0.0_dp , 27 0.131399_dp , 0.000617_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sg_naw = & naw_type ( 16 , transpose ( reshape ([& 25 8.0_dp , 25 8.113040_dp , 0.000443_dp ,& 25 9.0_dp , 25 9.114353_dp , 0.000194_dp ,& 26 0.0_dp , 26 0.114383435_dp , 0.000022045_dp ,& 26 1.0_dp , 26 1.115948135_dp , 0.000019853_dp ,& 26 2.0_dp , 26 2.116338978_dp , 0.000023797_dp ,& 26 3.0_dp , 26 3.118299_dp , 0.000101_dp ,& 26 4.0_dp , 26 4.118930_dp , 0.000304_dp ,& 26 5.0_dp , 26 5.121089_dp , 0.000149_dp ,& 26 6.0_dp , 26 6.121973_dp , 0.000263_dp ,& 26 7.0_dp , 26 7.124323_dp , 0.000281_dp ,& 26 8.0_dp , 26 8.125389_dp , 0.000504_dp ,& 26 9.0_dp , 26 9.128495_dp , 0.000395_dp ,& 27 0.0_dp , 27 0.130362_dp , 0.000492_dp ,& 27 1.0_dp , 27 1.133782_dp , 0.000634_dp ,& 27 2.0_dp , 27 2.135825_dp , 0.000743_dp ,& 27 3.0_dp , 27 3.139475_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Bh_naw = & naw_type ( 19 , transpose ( reshape ([& 26 0.0_dp , 26 0.121443_dp , 0.000211_dp ,& 26 1.0_dp , 26 1.121395733_dp , 0.000193026_dp ,& 26 2.0_dp , 26 2.122654688_dp , 0.000099919_dp ,& 26 3.0_dp , 26 3.122916_dp , 0.000328_dp ,& 26 4.0_dp , 26 4.124486_dp , 0.000190_dp ,& 26 5.0_dp , 26 5.124955_dp , 0.000257_dp ,& 26 6.0_dp , 26 6.126790_dp , 0.000175_dp ,& 26 7.0_dp , 26 7.127499_dp , 0.000282_dp ,& 26 8.0_dp , 26 8.129584_dp , 0.000410_dp ,& 26 9.0_dp , 26 9.130411_dp , 0.000402_dp ,& 27 0.0_dp , 27 0.133366_dp , 0.000320_dp ,& 27 1.0_dp , 27 1.135115_dp , 0.000412_dp ,& 27 2.0_dp , 27 2.138259_dp , 0.000571_dp ,& 27 3.0_dp , 27 3.140294_dp , 0.000703_dp ,& 27 4.0_dp , 27 4.143599_dp , 0.000620_dp ,& 27 5.0_dp , 27 5.145766_dp , 0.000644_dp ,& 27 6.0_dp , 27 6.149169_dp , 0.000644_dp ,& 27 7.0_dp , 27 7.151477_dp , 0.000644_dp ,& 27 8.0_dp , 27 8.154988_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Hs_naw = & naw_type ( 18 , transpose ( reshape ([& 26 3.0_dp , 26 3.128479_dp , 0.000212_dp ,& 26 4.0_dp , 26 4.128356330_dp , 0.000031005_dp ,& 26 5.0_dp , 26 5.129791744_dp , 0.000025719_dp ,& 26 6.0_dp , 26 6.130048783_dp , 0.000029099_dp ,& 26 7.0_dp , 26 7.131678_dp , 0.000102_dp ,& 26 8.0_dp , 26 8.132011_dp , 0.000322_dp ,& 26 9.0_dp , 26 9.133649_dp , 0.000141_dp ,& 27 0.0_dp , 27 0.134313_dp , 0.000266_dp ,& 27 1.0_dp , 27 1.137082_dp , 0.000296_dp ,& 27 2.0_dp , 27 2.138492_dp , 0.000547_dp ,& 27 3.0_dp , 27 3.141458_dp , 0.000401_dp ,& 27 4.0_dp , 27 4.143217_dp , 0.000504_dp ,& 27 5.0_dp , 27 5.146530_dp , 0.000637_dp ,& 27 6.0_dp , 27 6.148348_dp , 0.000773_dp ,& 27 7.0_dp , 27 7.151772_dp , 0.000480_dp ,& 27 8.0_dp , 27 8.153753_dp , 0.000322_dp ,& 27 9.0_dp , 27 9.157274_dp , 0.000644_dp ,& 28 0.0_dp , 28 0.159335_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Mt_naw = & naw_type ( 18 , transpose ( reshape ([& 26 5.0_dp , 26 5.135937_dp , 0.000471_dp ,& 26 6.0_dp , 26 6.137062253_dp , 0.000103568_dp ,& 26 7.0_dp , 26 7.137189_dp , 0.000540_dp ,& 26 8.0_dp , 26 8.138649_dp , 0.000250_dp ,& 26 9.0_dp , 26 9.138809_dp , 0.000335_dp ,& 27 0.0_dp , 27 0.140322_dp , 0.000205_dp ,& 27 1.0_dp , 27 1.140741_dp , 0.000354_dp ,& 27 2.0_dp , 27 2.143298_dp , 0.000521_dp ,& 27 3.0_dp , 27 3.144695_dp , 0.000455_dp ,& 27 4.0_dp , 27 4.147343_dp , 0.000404_dp ,& 27 5.0_dp , 27 5.148972_dp , 0.000416_dp ,& 27 6.0_dp , 27 6.151705_dp , 0.000571_dp ,& 27 7.0_dp , 27 7.153525_dp , 0.000711_dp ,& 27 8.0_dp , 27 8.156487_dp , 0.000621_dp ,& 27 9.0_dp , 27 9.158439_dp , 0.000720_dp ,& 28 0.0_dp , 28 0.161579_dp , 0.000644_dp ,& 28 1.0_dp , 28 1.163608_dp , 0.000644_dp ,& 28 2.0_dp , 28 2.166888_dp , 0.000480_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ds_naw = & naw_type ( 18 , transpose ( reshape ([& 26 7.0_dp , 26 7.143726_dp , 0.000219_dp ,& 26 8.0_dp , 26 8.143477_dp , 0.000324_dp ,& 26 9.0_dp , 26 9.144750965_dp , 0.000033712_dp ,& 27 0.0_dp , 27 0.144586620_dp , 0.000042163_dp ,& 27 1.0_dp , 27 1.145951_dp , 0.000104_dp ,& 27 2.0_dp , 27 2.146091_dp , 0.000456_dp ,& 27 3.0_dp , 27 3.148455_dp , 0.000152_dp ,& 27 4.0_dp , 27 4.149434_dp , 0.000418_dp ,& 27 5.0_dp , 27 5.152085_dp , 0.000366_dp ,& 27 6.0_dp , 27 6.153022_dp , 0.000588_dp ,& 27 7.0_dp , 27 7.155763_dp , 0.000421_dp ,& 27 8.0_dp , 27 8.157007_dp , 0.000548_dp ,& 27 9.0_dp , 27 9.159984_dp , 0.000649_dp ,& 28 0.0_dp , 28 0.161375_dp , 0.000803_dp ,& 28 1.0_dp , 28 1.164545_dp , 0.000529_dp ,& 28 2.0_dp , 28 2.166174_dp , 0.000322_dp ,& 28 3.0_dp , 28 3.169437_dp , 0.000537_dp ,& 28 4.0_dp , 28 4.171187_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Rg_naw = & naw_type ( 15 , transpose ( reshape ([& 27 2.0_dp , 27 2.153273_dp , 0.000251_dp ,& 27 3.0_dp , 27 3.153393_dp , 0.000429_dp ,& 27 4.0_dp , 27 4.155247_dp , 0.000225_dp ,& 27 5.0_dp , 27 5.156088_dp , 0.000479_dp ,& 27 6.0_dp , 27 6.158226_dp , 0.000675_dp ,& 27 7.0_dp , 27 7.159322_dp , 0.000504_dp ,& 27 8.0_dp , 27 8.161590_dp , 0.000417_dp ,& 27 9.0_dp , 27 9.162880_dp , 0.000453_dp ,& 28 0.0_dp , 28 0.165204_dp , 0.000571_dp ,& 28 1.0_dp , 28 1.166757_dp , 0.000831_dp ,& 28 2.0_dp , 28 2.169343_dp , 0.000631_dp ,& 28 3.0_dp , 28 3.171101_dp , 0.000728_dp ,& 28 4.0_dp , 28 4.173882_dp , 0.000537_dp ,& 28 5.0_dp , 28 5.175771_dp , 0.000644_dp ,& 28 6.0_dp , 28 6.178756_dp , 0.000492_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cn_naw = & naw_type ( 13 , transpose ( reshape ([& 27 6.0_dp , 27 6.161418_dp , 0.000537_dp ,& 27 7.0_dp , 27 7.163535_dp , 0.000165_dp ,& 27 8.0_dp , 27 8.164083_dp , 0.000470_dp ,& 27 9.0_dp , 27 9.166422_dp , 0.000424_dp ,& 28 0.0_dp , 28 0.167102_dp , 0.000626_dp ,& 28 1.0_dp , 28 1.169563_dp , 0.000427_dp ,& 28 2.0_dp , 28 2.170507_dp , 0.000588_dp ,& 28 3.0_dp , 28 3.173202_dp , 0.000660_dp ,& 28 4.0_dp , 28 4.174360_dp , 0.000819_dp ,& 28 5.0_dp , 28 5.177227_dp , 0.000544_dp ,& 28 6.0_dp , 28 6.178691_dp , 0.000751_dp ,& 28 7.0_dp , 28 7.181826_dp , 0.000751_dp ,& 28 8.0_dp , 28 8.183501_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Nh_naw = & naw_type ( 13 , transpose ( reshape ([& 27 8.0_dp , 27 8.170725_dp , 0.000240_dp ,& 27 9.0_dp , 27 9.171187_dp , 0.000644_dp ,& 28 0.0_dp , 28 0.173098_dp , 0.000429_dp ,& 28 1.0_dp , 28 1.173710_dp , 0.000322_dp ,& 28 2.0_dp , 28 2.175770_dp , 0.000430_dp ,& 28 3.0_dp , 28 3.176666_dp , 0.000469_dp ,& 28 4.0_dp , 28 4.178843_dp , 0.000573_dp ,& 28 5.0_dp , 28 5.180106_dp , 0.000832_dp ,& 28 6.0_dp , 28 6.182456_dp , 0.000634_dp ,& 28 7.0_dp , 28 7.184064_dp , 0.000759_dp ,& 28 8.0_dp , 28 8.186764_dp , 0.000751_dp ,& 28 9.0_dp , 28 9.188461_dp , 0.000537_dp ,& 29 0.0_dp , 29 0.191429_dp , 0.000503_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Fl_naw = & naw_type ( 8 , transpose ( reshape ([& 28 4.0_dp , 28 4.181192_dp , 0.000704_dp ,& 28 5.0_dp , 28 5.183503_dp , 0.000433_dp ,& 28 6.0_dp , 28 6.184226_dp , 0.000590_dp ,& 28 7.0_dp , 28 7.186720_dp , 0.000663_dp ,& 28 8.0_dp , 28 8.187781_dp , 0.000819_dp ,& 28 9.0_dp , 28 9.190517_dp , 0.000548_dp ,& 29 0.0_dp , 29 0.191875_dp , 0.000752_dp ,& 29 1.0_dp , 29 1.194848_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Mc_naw = & naw_type ( 6 , transpose ( reshape ([& 28 7.0_dp , 28 7.190820_dp , 0.000475_dp ,& 28 8.0_dp , 28 8.192879_dp , 0.000575_dp ,& 28 9.0_dp , 28 9.193971_dp , 0.000834_dp ,& 29 0.0_dp , 29 0.196235_dp , 0.000635_dp ,& 29 1.0_dp , 29 1.197725_dp , 0.000789_dp ,& 29 2.0_dp , 29 2.200323_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Lv_naw = & naw_type ( 5 , transpose ( reshape ([& 28 9.0_dp , 28 9.198023_dp , 0.000540_dp ,& 29 0.0_dp , 29 0.198635_dp , 0.000593_dp ,& 29 1.0_dp , 29 1.201014_dp , 0.000669_dp ,& 29 2.0_dp , 29 2.201969_dp , 0.000819_dp ,& 29 3.0_dp , 29 3.204583_dp , 0.000553_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ts_naw = & naw_type ( 4 , transpose ( reshape ([& 29 1.0_dp , 29 1.205748_dp , 0.000640_dp ,& 29 2.0_dp , 29 2.207861_dp , 0.000718_dp ,& 29 3.0_dp , 29 3.208727_dp , 0.000835_dp ,& 29 4.0_dp , 29 4.210840_dp , 0.000637_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Og_naw = & naw_type ( 3 , transpose ( reshape ([& 29 3.0_dp , 29 3.213423_dp , 0.000761_dp ,& 29 4.0_dp , 29 4.213979_dp , 0.000594_dp ,& 29 5.0_dp , 29 5.216178_dp , 0.000703_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) end module ciaaw__naw","tags":"","loc":"sourcefile/ciaaw_naw.f90.html"},{"title":"ciaaw_api.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_api.f90~~EfferentGraph sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_version.f90 ciaaw_version.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_version.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_api.f90~~AfferentGraph sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__api !! API !! See [specs](../page/specs/api.html) use ieee_arithmetic , only : ieee_value , ieee_quiet_nan , ieee_is_nan use ciaaw__version use ciaaw__common use ciaaw__types use ciaaw__pte private character ( len = :), allocatable , target :: version_f real ( dp ), allocatable , target :: n_ice_out (:,:) public :: pt public :: element_type , saw_type , ice_type , naw_type public :: get_version public :: get_saw public :: get_ice , get_nice public :: get_naw , get_nnaw public :: get_ice_values contains ! ------------------------------ ----------------------------------------------- ! VERSION function get_version () result ( fptr ) !! Get the version implicit none character ( len = :), pointer :: fptr !! Fortran pointer to a string indicating the version.. if ( allocated ( version_f )) then deallocate ( version_f ) endif allocate ( character ( len = len ( version )) :: version_f ) version_f = version fptr => version_f end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! Base search functions function is_in_pt ( z ) result ( res ) !! Check if the atomic number z is in the periodic table integer ( int32 ), intent ( in ) :: z !! Atomic number logical :: res if (( z < 1 ) . or . ( z > size ( pt ))) then res = . false . else res = . true . end if end function function get_z_by_symbol ( s ) result ( res ) !! Get the atomic number z of the element defined by the symbol s. !! Returns -1 if the element is not found. character ( len =* ), intent ( in ) :: s !! Element symbol integer ( int32 ) :: res !! Atomic number integer ( int32 ) :: i type ( element_type ) :: elmt res = - 1 do i = 1 , size ( pt ) elmt = pt ( i ) if ( s == elmt % symbol ) then res = i exit endif end do end function subroutine print_periodic_table () !! Print periodic table. integer ( int32 ) :: i , j character ( len = 20 ) :: v , u , w character ( len = 15 ) :: header ( 3 ) character ( len = 15 ) :: ice_headers ( 3 ) character ( len = 15 ) :: naw_headers ( 3 ) header = [ character ( len = 20 ) :: \"\" , \"\" , \"\" ] ice_headers = [ character ( len = 15 ) :: \"A\" , \"C /%\" , \"dC /%\" ] naw_headers = [ character ( len = 15 ) :: \"A\" , \"M\" , \"dM\" ] do i = 1 , size ( pt ) print \"(A)\" , \"=============================================\" header ( 1 ) = pt ( i )% symbol header ( 2 ) = pt ( i )% element write ( v , \"(I3)\" ) pt ( i )% z header ( 3 ) = \"z=\" // v print \"(3A15)\" , header print \"(A)\" , \"---------------------------------------------\" print \"(A)\" , \"STANDARD ATOMIC WEIGHTS\" write ( v , \"(F10.5)\" ) pt ( i )% saw % asaw write ( u , \"(F10.5)\" ) pt ( i )% saw % asaw_u print \"(A4, A10, A, A10)\" , \"M = \" , adjustl ( v ), \"+/-\" , adjustl ( u ) print \"(A)\" , \"---------------------------------------------\" print \"(A)\" , \"ISOTOPIC COMPOSITIONS\" print \"(3A15)\" , ice_headers do j = 1 , pt ( i )% ice % n write ( w , \"(I3)\" ) nint ( pt ( i )% ice % values ( j , 1 )) write ( v , \"(ES12.5)\" ) pt ( i )% ice % values ( j , 2 ) write ( u , \"(ES12.5)\" ) pt ( i )% ice % values ( j , 3 ) print \"(3A15)\" , adjustl ( w ), adjustl ( v ), adjustl ( u ) enddo print \"(A)\" , \"---------------------------------------------\" print \"(A)\" , \"NUCLIDE ATOMIC WEIGHTS\" print \"(3A15)\" , naw_headers do j = 1 , pt ( i )% naw % n write ( w , \"(I3)\" ) nint ( pt ( i )% naw % values ( j , 1 )) write ( v , \"(ES12.5)\" ) pt ( i )% naw % values ( j , 2 ) write ( u , \"(ES12.5)\" ) pt ( i )% naw % values ( j , 3 ) print \"(3A15)\" , adjustl ( w ), adjustl ( v ), adjustl ( u ) enddo print \"(A)\" , \"=============================================\" print * , \"\" print * , \"\" end do end subroutine !------------------------------------------------------------------------------- ! ------------------------------------------------------------------------------ ! SAW function get_saw ( s , abridged , uncertainty ) result ( res ) !! Get the standard atomic weight. By default the abridged value is provided. !! If the non abridged value is desired, set abridged to false. !! The uncertainty instead of the value can be retrieved if the uncertainty is set to true. !! Returns NaN if provided symbol is incorrect or -1 if the element does not have a SAW. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. logical , intent ( in ), optional :: abridged !! Flag for returning the abridged standard atomic weight. Default to TRUE. logical , intent ( in ), optional :: uncertainty !! Flag for returning the uncertainty instead of the value. Default to FALSE. ! Returns real ( dp ) :: res ! Variables real ( dp ) :: saw_max , saw_min , saw , saw_u integer ( int32 ) :: z , n logical :: a2 , u2 a2 = optval ( abridged , . true .) u2 = optval ( uncertainty , . false .) z = get_z_by_symbol ( s ) res = ieee_value ( 1.0_dp , ieee_quiet_nan ) if ( z > 0 ) then if ( a2 . eqv . . true .) then if ( u2 . eqv . . true .) then res = pt ( z )% saw % asaw_u else res = pt ( z )% saw % asaw end if else if (( pt ( z )% saw % saw == - 1.0_dp ) . and . ( pt ( z )% saw % saw_max > 0.0_dp ) . and . ( pt ( z )% saw % saw_min > 0.0_dp )) then saw_max = pt ( z )% saw % saw_max saw_min = pt ( z )% saw % saw_min saw = ( saw_max + saw_min ) / 2.0_dp saw_u = ( saw_max - saw_min ) / ( 2.0_dp * sqrt ( 3.0_dp )) n = floor ( log10 ( saw_u )) saw_u = ceiling ( saw_u * 1 0.0_dp ** ( - n )) * 1 0.0_dp ** n saw = nint ( saw * 1 0.0_dp ** ( - n )) * 1 0.0_dp ** n if ( u2 . eqv . . true .) then res = saw_u else res = saw end if else if ( u2 . eqv . . true .) then res = pt ( z )% saw % saw_u else res = pt ( z )% saw % saw end if end if end if end if end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! ICE function get_ice ( s , A , uncertainty ) result ( res ) !! Get the isotopic composition of the element s for the mass number A. !! The uncertainty instead of the value can be retrieved if the uncertainty is set to true. !! Returns NaN if the provided symbol or A are incorrect or -1 if the element does not have an ICE. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. integer ( int32 ), intent ( in ) :: A !! Mass number. logical , intent ( in ), optional :: uncertainty !! Flag for returning the uncertainty instead of the value. Default to FALSE. ! Returns real ( dp ) :: res ! Variables real ( dp ) :: A_double integer ( int32 ) :: i , z , col , row logical :: u2 u2 = optval ( uncertainty , . false .) z = get_z_by_symbol ( s ) A_double = real ( A , dp ) res = ieee_value ( 1.0_dp , ieee_quiet_nan ) if ( u2 . eqv . . true .) then col = 3 else col = 2 endif row = 0 if (( z > 0 ) . and . ( pt ( z )% ice % n > 0 )) then do i = 1 , pt ( z )% ice % n if ( pt ( z )% ice % values ( i , 1 ) == A_double ) then row = i exit endif end do endif if ( row > 0 ) then res = pt ( z )% ice % values ( row , col ) endif end function function get_nice ( s ) result ( res ) !! Get the number of isotopes in ICE. !! Returns -1 if the provided symbol is incorrect. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. ! Returns integer ( int32 ) :: res ! Variables integer ( int32 ) :: z z = get_z_by_symbol ( s ) if ( z > 0 ) then res = pt ( z )% ice % n else res = - 1 endif end function function get_ice_values ( s ) result ( res ) !! Get the (n, 3) values array. See [[ciaaw__types(module):ice_type(type)]]. !! Returns a null pointer if the provided symbol is incorrect. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. ! Returns real ( dp ), pointer :: res (:,:) ! Variables integer ( int32 ) :: z z = get_z_by_symbol ( s ) res => null () if ( allocated ( n_ice_out )) then deallocate ( n_ice_out ) end if if ( z > 0 ) then allocate ( n_ice_out ( pt ( z )% ice % n , 3 )) n_ice_out (:,:) = pt ( z )% ice % values ( 1 : pt ( z )% ice % n ,:) res => n_ice_out else allocate ( n_ice_out ( 1 , 3 )) n_ice_out ( 1 ,:) = ice_nan % values ( 1 ,:) res => null () endif end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! NAW function get_naw ( s , A , uncertainty ) result ( res ) !! Get the atomic weight of the nuclide s for the mass number A. !! The uncertainty instead of the value can be retrieved if the uncertainty is set to true. !! Returns NaN if provided symbol or A are incorrect !! or -1 if the element does not have an NAW. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. integer ( int32 ), intent ( in ) :: A !! Mass number. logical , intent ( in ), optional :: uncertainty !! Flag for returning the uncertainty instead of the value. Default to FALSE. ! Returns real ( dp ) :: res ! Variables real ( dp ) :: A_double integer ( int32 ) :: i , z , col , row logical :: u2 u2 = optval ( uncertainty , . false .) z = get_z_by_symbol ( s ) A_double = real ( A , dp ) res = ieee_value ( 1.0_dp , ieee_quiet_nan ) if ( u2 . eqv . . true .) then col = 3 else col = 2 endif row = 0 if (( z > 0 ) . and . ( pt ( z )% naw % n > 0 )) then do i = 1 , pt ( z )% naw % n if ( pt ( z )% naw % values ( i , 1 ) == A_double ) then row = i exit endif end do endif if ( row > 0 ) then res = pt ( z )% naw % values ( row , col ) endif end function function get_nnaw ( s ) result ( res ) !! Get the number of nuclides in NAW. !! Returns -1 if the provided symbol is incorrect. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. ! Returns integer ( int32 ) :: res ! Variables integer ( int32 ) :: z z = get_z_by_symbol ( s ) if ( z > 0 ) then res = pt ( z )% naw % n else res = - 1 endif end function !------------------------------------------------------------------------------- end module","tags":"","loc":"sourcefile/ciaaw_api.f90.html"},{"title":"ciaaw_version.f90 – ciaaw","text":"Files dependent on this one sourcefile~~ciaaw_version.f90~~AfferentGraph sourcefile~ciaaw_version.f90 ciaaw_version.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_version.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__version !! Version implicit none private character ( len =* ), parameter , public :: version = \"0.5.0dev0\" end module ciaaw__version","tags":"","loc":"sourcefile/ciaaw_version.f90.html"},{"title":"ciaaw.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw.f90~~EfferentGraph sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_version.f90 ciaaw_version.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_version.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw !! Main module for the CIAAW library. use ciaaw__pte use ciaaw__api use ciaaw__capi end module","tags":"","loc":"sourcefile/ciaaw.f90.html"},{"title":"ciaaw_saw.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_saw.f90~~EfferentGraph sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_saw.f90~~AfferentGraph sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__saw !! Ciaaw saw - Autogenerated !! See [specs](../page/specs/ciaaw_api.html) use ciaaw__common use ciaaw__types private type ( saw_type ), parameter , public :: H_saw = & saw_type ( 1.00784_dp , 1.00811_dp , - 1.0_dp , - 1.0_dp , & 1.0080_dp , 0.0002_dp ) !! H type ( saw_type ), parameter , public :: He_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 4.002602_dp , 0.000002_dp , & 4.0026_dp , 0.0001_dp ) !! He type ( saw_type ), parameter , public :: Li_saw = & saw_type ( 6.938_dp , 6.997_dp , - 1.0_dp , - 1.0_dp , & 6.94_dp , 0.06_dp ) !! Li type ( saw_type ), parameter , public :: Be_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 9.0121831_dp , 0.0000005_dp , & 9.0122_dp , 0.00001_dp ) !! Be type ( saw_type ), parameter , public :: B_saw = & saw_type ( 1 0.806_dp , 1 0.821_dp , - 1.0_dp , - 1.0_dp , & 1 0.81_dp , 0.02_dp ) !! B type ( saw_type ), parameter , public :: C_saw = & saw_type ( 1 2.0096_dp , 1 2.0116_dp , - 1.0_dp , - 1.0_dp , & 1 2.011_dp , 0.002_dp ) !! C type ( saw_type ), parameter , public :: N_saw = & saw_type ( 1 4.00643_dp , 1 4.00728_dp , - 1.0_dp , - 1.0_dp , & 1 4.007_dp , 0.001_dp ) !! N type ( saw_type ), parameter , public :: O_saw = & saw_type ( 1 5.99903_dp , 1 5.99977_dp , - 1.0_dp , - 1.0_dp , & 1 5.999_dp , 0.001_dp ) !! O type ( saw_type ), parameter , public :: F_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 1 8.998403162_dp , 0.000000005_dp , & 1 8.998_dp , 0.001_dp ) !! F type ( saw_type ), parameter , public :: Ne_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 2 0.1797_dp , 0.0006_dp , & 2 0.180_dp , 0.001_dp ) !! Ne type ( saw_type ), parameter , public :: Na_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 2 2.98976928_dp , 0.00000002_dp , & 2 2.990_dp , 0.001_dp ) !! Na type ( saw_type ), parameter , public :: Mg_saw = & saw_type ( 2 4.304_dp , 2 4.307_dp , - 1.0_dp , - 1.0_dp , & 2 4.305_dp , 0.002_dp ) !! Mg type ( saw_type ), parameter , public :: Al_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 2 6.9815384_dp , 0.0000003_dp , & 2 6.982_dp , 0.001_dp ) !! Al type ( saw_type ), parameter , public :: Si_saw = & saw_type ( 2 8.084_dp , 2 8.086_dp , - 1.0_dp , - 1.0_dp , & 2 8.085_dp , 0.001_dp ) !! Si type ( saw_type ), parameter , public :: P_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 3 0.973761998_dp , 0.000000005_dp , & 3 0.974_dp , 0.001_dp ) !! P type ( saw_type ), parameter , public :: S_saw = & saw_type ( 3 2.059_dp , 3 2.076_dp , - 1.0_dp , - 1.0_dp , & 3 2.06_dp , 0.02_dp ) !! S type ( saw_type ), parameter , public :: Cl_saw = & saw_type ( 3 5.446_dp , 3 5.457_dp , - 1.0_dp , - 1.0_dp , & 3 5.45_dp , 0.01_dp ) !! Cl type ( saw_type ), parameter , public :: Ar_saw = & saw_type ( 3 9.792_dp , 3 9.963_dp , - 1.0_dp , - 1.0_dp , & 3 9.95_dp , 0.16_dp ) !! Ar type ( saw_type ), parameter , public :: K_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 3 9.0983_dp , 0.0001_dp , & 3 9.098_dp , 0.001_dp ) !! K type ( saw_type ), parameter , public :: Ca_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 4 0.078_dp , 0.004_dp , & 4 0.078_dp , 0.004_dp ) !! Ca type ( saw_type ), parameter , public :: Sc_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 4 4.955907_dp , 0.000004_dp , & 4 4.956_dp , 0.001_dp ) !! Sc type ( saw_type ), parameter , public :: Ti_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 4 7.867_dp , 0.001_dp , & 4 7.867_dp , 0.001_dp ) !! Ti type ( saw_type ), parameter , public :: V_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 0.9415_dp , 0.0001_dp , & 5 0.942_dp , 0.001_dp ) !! V type ( saw_type ), parameter , public :: Cr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 1.9961_dp , 0.0006_dp , & 5 1.996_dp , 0.001_dp ) !! Cr type ( saw_type ), parameter , public :: Mn_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 4.938043_dp , 0.000002_dp , & 5 4.938_dp , 0.001_dp ) !! Mn type ( saw_type ), parameter , public :: Fe_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 5.845_dp , 0.002_dp , & 5 5.845_dp , 0.002_dp ) !! Fe type ( saw_type ), parameter , public :: Co_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 8.933194_dp , 0.000003_dp , & 5 8.933_dp , 0.001_dp ) !! Co type ( saw_type ), parameter , public :: Ni_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 8.6934_dp , 0.0004_dp , & 5 8.693_dp , 0.001_dp ) !! Ni type ( saw_type ), parameter , public :: Cu_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 6 3.546_dp , 0.003_dp , & 6 3.546_dp , 0.003_dp ) !! Cu type ( saw_type ), parameter , public :: Zn_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 6 5.38_dp , 0.02_dp , & 6 5.38_dp , 0.02_dp ) !! Zn type ( saw_type ), parameter , public :: Ga_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 6 9.723_dp , 0.001_dp , & 6 9.723_dp , 0.001_dp ) !! Ga type ( saw_type ), parameter , public :: Ge_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 7 2.630_dp , 0.008_dp , & 7 2.630_dp , 0.008_dp ) !! Ge type ( saw_type ), parameter , public :: As_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 7 4.921595_dp , 0.000006_dp , & 7 4.922_dp , 0.001_dp ) !! As type ( saw_type ), parameter , public :: Se_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 7 8.971_dp , 0.008_dp , & 7 8.971_dp , 0.008_dp ) !! Se type ( saw_type ), parameter , public :: Br_saw = & saw_type ( 7 9.901_dp , 7 9.907_dp , - 1.0_dp , - 1.0_dp , & 7 9.904_dp , 0.003_dp ) !! Br type ( saw_type ), parameter , public :: Kr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 8 3.798_dp , 0.002_dp , & 8 3.798_dp , 0.002_dp ) !! Kr type ( saw_type ), parameter , public :: Rb_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 8 5.4678_dp , 0.0003_dp , & 8 5.468_dp , 0.001_dp ) !! Rb type ( saw_type ), parameter , public :: Sr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 8 7.62_dp , 0.01_dp , & 8 7.62_dp , 0.01_dp ) !! Sr type ( saw_type ), parameter , public :: Y_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 8 8.905838_dp , 0.000002_dp , & 8 8.906_dp , 0.001_dp ) !! Y type ( saw_type ), parameter , public :: Zr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 9 1.224_dp , 0.002_dp , & 9 1.224_dp , 0.002_dp ) !! Zr type ( saw_type ), parameter , public :: Nb_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 9 2.90637_dp , 0.00001_dp , & 9 2.906_dp , 0.001_dp ) !! Nb type ( saw_type ), parameter , public :: Mo_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 9 5.95_dp , 0.01_dp , & 9 5.95_dp , 0.01_dp ) !! Mo type ( saw_type ), parameter , public :: Tc_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Tc type ( saw_type ), parameter , public :: Ru_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 10 1.07_dp , 0.02_dp , & 10 1.07_dp , 0.02_dp ) !! Ru type ( saw_type ), parameter , public :: Rh_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 10 2.90549_dp , 0.00002_dp , & 10 2.91_dp , 0.01_dp ) !! Rh type ( saw_type ), parameter , public :: Pd_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 10 6.42_dp , 0.01_dp , & 10 6.42_dp , 0.01_dp ) !! Pd type ( saw_type ), parameter , public :: Ag_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 10 7.8682_dp , 0.0002_dp , & 10 7.87_dp , 0.01_dp ) !! Ag type ( saw_type ), parameter , public :: Cd_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 11 2.414_dp , 0.004_dp , & 11 2.41_dp , 0.01_dp ) !! Cd type ( saw_type ), parameter , public :: In_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 11 4.818_dp , 0.001_dp , & 11 4.82_dp , 0.01_dp ) !! In type ( saw_type ), parameter , public :: Sn_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 11 8.70_dp , 0.007_dp , & 11 8.71_dp , 0.01_dp ) !! Sn type ( saw_type ), parameter , public :: Sb_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 12 1.760_dp , 0.001_dp , & 12 1.76_dp , 0.01_dp ) !! Sb type ( saw_type ), parameter , public :: Te_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 12 7.60_dp , 0.03_dp , & 12 7.60_dp , 0.03_dp ) !! Te type ( saw_type ), parameter , public :: I_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 12 6.90447_dp , 0.00003_dp , & 12 6.90_dp , 0.01_dp ) !! I type ( saw_type ), parameter , public :: Xe_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 13 1.293_dp , 0.006_dp , & 13 1.29_dp , 0.01_dp ) !! Xe type ( saw_type ), parameter , public :: Cs_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 13 2.90545196_dp , 0.00000006_dp , & 13 2.91_dp , 0.01_dp ) !! Cs type ( saw_type ), parameter , public :: Ba_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 13 7.327_dp , 0.007_dp , & 13 7.33_dp , 0.01_dp ) !! Ba type ( saw_type ), parameter , public :: La_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 13 8.90547_dp , 0.00007_dp , & 13 8.91_dp , 0.01_dp ) !! La type ( saw_type ), parameter , public :: Ce_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 14 0.116_dp , 0.001_dp , & 14 0.12_dp , 0.01_dp ) !! Ce type ( saw_type ), parameter , public :: Pr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 14 0.90766_dp , 0.00001_dp , & 14 0.91_dp , 0.01_dp ) !! Pr type ( saw_type ), parameter , public :: Nd_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 14 4.242_dp , 0.003_dp , & 14 4.24_dp , 0.01_dp ) !! Nd type ( saw_type ), parameter , public :: Pm_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Pm type ( saw_type ), parameter , public :: Sm_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 15 0.36_dp , 0.02_dp , & 15 0.36_dp , 0.02_dp ) !! Sm type ( saw_type ), parameter , public :: Eu_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 15 1.964_dp , 0.001_dp , & 15 1.96_dp , 0.01_dp ) !! Eu type ( saw_type ), parameter , public :: Gd_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 15 7.25_dp , 0.03_dp , & 15 7.25_dp , 0.03_dp ) !! Gd type ( saw_type ), parameter , public :: Tb_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 15 8.925354_dp , 0.000007_dp , & 15 8.93_dp , 0.01_dp ) !! Tb type ( saw_type ), parameter , public :: Dy_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 16 2.500_dp , 0.001_dp , & 16 2.50_dp , 0.01_dp ) !! Dy type ( saw_type ), parameter , public :: Ho_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 16 4.930329_dp , 0.000005_dp , & 16 4.93_dp , 0.01_dp ) !! Ho type ( saw_type ), parameter , public :: Er_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 16 7.259_dp , 0.003_dp , & 16 7.26_dp , 0.01_dp ) !! Er type ( saw_type ), parameter , public :: Tm_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 16 8.934219_dp , 0.000005_dp , & 16 8.93_dp , 0.01_dp ) !! Tm type ( saw_type ), parameter , public :: Yb_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 17 3.045_dp , 0.010_dp , & 17 3.05_dp , 0.02_dp ) !! Yb type ( saw_type ), parameter , public :: Lu_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 17 4.9668_dp , 0.0001_dp , & 17 4.97_dp , 0.01_dp ) !! Lu type ( saw_type ), parameter , public :: Hf_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 17 8.486_dp , 0.006_dp , & 17 8.49_dp , 0.01_dp ) !! Hf type ( saw_type ), parameter , public :: Ta_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 18 0.94788_dp , 0.00002_dp , & 18 0.95_dp , 0.01_dp ) !! Ta type ( saw_type ), parameter , public :: W_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 18 3.84_dp , 0.01_dp , & 18 3.84_dp , 0.01_dp ) !! W type ( saw_type ), parameter , public :: Re_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 18 6.207_dp , 0.001_dp , & 18 6.21_dp , 0.01_dp ) !! Re type ( saw_type ), parameter , public :: Os_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 19 0.23_dp , 0.03_dp , & 19 0.23_dp , 0.03_dp ) !! Os type ( saw_type ), parameter , public :: Ir_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 19 2.217_dp , 0.002_dp , & 19 2.22_dp , 0.01_dp ) !! Ir type ( saw_type ), parameter , public :: Pt_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 19 5.084_dp , 0.009_dp , & 19 5.08_dp , 0.02_dp ) !! Pt type ( saw_type ), parameter , public :: Au_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 19 6.966570_dp , 0.000004_dp , & 19 6.97_dp , 0.01_dp ) !! Au type ( saw_type ), parameter , public :: Hg_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 20 0.592_dp , 0.003_dp , & 20 0.59_dp , 0.01_dp ) !! Hg type ( saw_type ), parameter , public :: Tl_saw = & saw_type ( 20 4.382_dp , 20 4.385_dp , - 1.0_dp , - 1.0_dp , & 20 4.38_dp , 0.01_dp ) !! Tl type ( saw_type ), parameter , public :: Pb_saw = & saw_type ( 20 6.14_dp , 20 7.94_dp , - 1.0_dp , - 1.0_dp , & 20 7.2_dp , 1.1_dp ) !! Pb type ( saw_type ), parameter , public :: Bi_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 20 8.98040_dp , 0.00001_dp , & 20 8.98_dp , 0.01_dp ) !! Bi type ( saw_type ), parameter , public :: Po_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Po type ( saw_type ), parameter , public :: At_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! At type ( saw_type ), parameter , public :: Rn_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Rn type ( saw_type ), parameter , public :: Fr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Fr type ( saw_type ), parameter , public :: Ra_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Ra type ( saw_type ), parameter , public :: Ac_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Ac type ( saw_type ), parameter , public :: Th_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 23 2.0377_dp , 0.0004_dp , & 23 2.04_dp , 0.01_dp ) !! Th type ( saw_type ), parameter , public :: Pa_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 23 1.03588_dp , 0.00001_dp , & 23 1.04_dp , 0.01_dp ) !! Pa type ( saw_type ), parameter , public :: U_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 23 8.02891_dp , 0.00003_dp , & 23 8.03_dp , 0.01_dp ) !! U type ( saw_type ), parameter , public :: Np_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Np type ( saw_type ), parameter , public :: Pu_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Pu type ( saw_type ), parameter , public :: Am_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Am type ( saw_type ), parameter , public :: Cm_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Cm type ( saw_type ), parameter , public :: Bk_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Bk type ( saw_type ), parameter , public :: Cf_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Cf type ( saw_type ), parameter , public :: Es_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Es type ( saw_type ), parameter , public :: Fm_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Fm type ( saw_type ), parameter , public :: Md_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Md type ( saw_type ), parameter , public :: No_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! No type ( saw_type ), parameter , public :: Lr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Lr type ( saw_type ), parameter , public :: Rf_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Rf type ( saw_type ), parameter , public :: Db_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Db type ( saw_type ), parameter , public :: Sg_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Sg type ( saw_type ), parameter , public :: Bh_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Bh type ( saw_type ), parameter , public :: Hs_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Hs type ( saw_type ), parameter , public :: Mt_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Mt type ( saw_type ), parameter , public :: Ds_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Ds type ( saw_type ), parameter , public :: Rg_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Rg type ( saw_type ), parameter , public :: Cn_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Cn type ( saw_type ), parameter , public :: Nh_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Nh type ( saw_type ), parameter , public :: Fl_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Fl type ( saw_type ), parameter , public :: Mc_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Mc type ( saw_type ), parameter , public :: Lv_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Lv type ( saw_type ), parameter , public :: Ts_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Ts type ( saw_type ), parameter , public :: Og_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Og end module ciaaw__saw","tags":"","loc":"sourcefile/ciaaw_saw.f90.html"},{"title":"ciaaw_common.f90 – ciaaw","text":"Files dependent on this one sourcefile~~ciaaw_common.f90~~AfferentGraph sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__common !! Common parameters use stdlib_kinds , only : int64 , dp , int32 , sp use stdlib_optval , only : optval use ieee_arithmetic , only : ieee_quiet_nan , ieee_value private public optval public :: sp , dp , int32 , int64 end module","tags":"","loc":"sourcefile/ciaaw_common.f90.html"},{"title":"ciaaw_types.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_types.f90~~EfferentGraph sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_types.f90~~AfferentGraph sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__types !! Derived types for Standard Atomic Weights. use stdlib_string_type , only : string_type use ciaaw__common implicit none private integer ( int32 ), parameter :: NROWS_ICE = 10 integer ( int32 ), parameter :: NROWS_NAW = 50 type , public :: saw_type !! Derived type representing the standard atomic weight of an element. real ( dp ) :: saw_min !! Min standard atomic weight. real ( dp ) :: saw_max !! Max standard atomic weight. real ( dp ) :: saw !! Value standard atomic weight. real ( dp ) :: saw_u !! Uncertainty standard atomic weight. real ( dp ) :: asaw !! Abridged value standard atomic weight. real ( dp ) :: asaw_u !! Abridged uncertainty standard atomic weight. end type type , public :: ice_type !! Derived type reprensenting the isotopic abundance. integer ( int32 ) :: n !! Number of isotopic compositions real ( dp ) :: values ( NROWS_ICE , 3 ) !! Mass numbers, Abundance, Uncertainty end type type , public :: naw_type !! Derived type reprensenting the nuclide's atomic weights. integer ( int32 ) :: n !! Number of atomic weights real ( dp ) :: values ( NROWS_NAW , 3 ) !! Mass numbers, Atomic weight, Uncertainty end type type , public :: element_type !! Derived type representing an element. character ( len = 24 ) :: element !! Element name. character ( len = 8 ) :: symbol !! Element symbol. integer ( int32 ) :: z !! Element atomic number. type ( saw_type ) :: saw !! Standard atomic weights type ( ice_type ) :: ice !! Isotopic composition of the element type ( naw_type ) :: naw !! Atomic weight of the nuclide end type type ( ice_type ), parameter , public :: ice_nan = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) end module ciaaw__types","tags":"","loc":"sourcefile/ciaaw_types.f90.html"},{"title":"Contributing and specs – ciaaw","text":"Standard atomic weights according to CIAAW.","tags":"","loc":"page/index.html"},{"title":"Changelog – ciaaw","text":"0.5.1 Code refactoring. Documentation update. Not released 0.5.0 API break: Data for standard atomic weights are no directly accessed. SAW, ICE and NAW are stored in derived types for each elements. Each element is stored in a periodic table. Element properties are now accessed through getters. Doc update. Full changelog available at github 0.4.3 Refractoring. Documentation update. Full changelog available at github 0.4.2 Refractoring. Documentation update. Merge back C API and Python wrapper. Full changelog available at github 0.4.1 Fix bug in max value for saw. Full changelog available at github 0.4.0 Fix type error in tests Refractoring Documentation update. Full changelog available at github 0.3.0 Code refactoring. Move C API and Python wrapper to their own repositories. Improve documentatinon. Full changelog available at github 0.2.0 Fix error in phosphorus name. Possibility to have standard atomic weights for several years. Full changelog available at github 0.1.0 All elements from the periodic table added for the saw module. They are implemented as parameter derived type. Full changelog available at github","tags":"","loc":"page/changelog.html"},{"title":"Examples – ciaaw","text":"Fortran C Python Fortran program example_in_f use ciaaw implicit none character ( len = 8 ) :: s ! ASAW = Abridged Standard Atomic Weight ! SAW  = Standard Atomic Weight ! ICE  = Isotopic Composition of the Element ! NAW  = Nuclide Atomic Weight ! U    = Uncertainty print '(A)' , '########### CIAAW VERSION ##########' print * , \"version \" , get_version () print '(A)' , '########### CIAAW SAW ##########' print '(A10, F10.5)' , 'ASAW H   = ' , get_saw ( \"H\" , abridged = . true .) print '(A10, F10.5)' , 'U ASAW H = ' , get_saw ( \"H\" , uncertainty = . true .) print '(A10, F10.5)' , 'SAW H    = ' , get_saw ( \"H\" , abridged = . false .) print '(A10, F10.5)' , 'U SAW H  =  ' , get_saw ( \"H\" , abridged = . false ., uncertainty = . true .) print '(A10, F10.5)' , 'ASAW T   = ' , get_saw ( \"Tc\" , abridged = . true .) print '(A)' , '########### CIAAW ICE ##########' print '(A, I3)' , 'N ICE H    = ' , get_nice ( \"H\" ) print '(A, F12.6)' , 'ICE H 1    = ' , get_ice ( \"H\" , A = 1 ) print '(A, ES23.16)' , 'U ICE H 1  = ' , get_ice ( \"H\" , A = 1 , uncertainty = . true .) print '(A, F12.6)' , 'ICE H 2    = ' , get_ice ( \"H\" , A = 2 ) print '(A, ES23.16)' , 'U ICE H 2  = ' , get_ice ( \"H\" , A = 2 , uncertainty = . true .) print '(A, I3)' , 'N ICE Tc   = ' , get_nice ( \"Tc\" ) print '(A, I3)' , 'N ICE C    = ' , get_nice ( \"C\" ) print '(A)' , '########### CIAAW NAW ##########' print '(A, ES23.16)' , 'NAW H 2     = ' , get_naw ( \"H\" , A = 2 ) print '(A, ES23.16)' , 'U NAW H 2   = ' , get_naw ( \"H\" , A = 2 , uncertainty = . true .) print '(A, I3)' , 'N NAW Tc    = ' , get_nnaw ( \"Tc\" ) end program C #include <stdlib.h> #include <stdio.h> #include <string.h> #include <stdbool.h> #include \"ciaaw.h\" // ASAW = Abridged Standard Atomic Weight // SAW  = Standard Atomic Weight // ICE  = Isotopic Composition of the Element // NAW  = Nuclide Atomic Weight // U    = Uncertainty int main ( void ){ printf ( \"%s \\n \" , \"########## CIAAW VERSION ##########\" ); printf ( \"version %s \\n \" , ciaaw_get_version ()); printf ( \"%s \\n \" , \"########## CIAAW SAW ##########\" ); printf ( \"%s %10.5f \\n \" , \"ASAW H   = \" , ciaaw_get_saw ( \"H\" , 1 , true , false )); printf ( \"%s %10.5f \\n \" , \"U ASAW H = \" , ciaaw_get_saw ( \"H\" , 1 , true , true )); printf ( \"%s %10.5f \\n \" , \"SAW H    = \" , ciaaw_get_saw ( \"H\" , 1 , false , false )); printf ( \"%s %10.5f \\n \" , \"U SAW H  = \" , ciaaw_get_saw ( \"H\" , 1 , false , true )); printf ( \"%s %10.5f \\n \" , \"ASAW Tc  = \" , ciaaw_get_saw ( \"Tc\" , 2 , true , false )); printf ( \"%s \\n \" , \"########## CIAAW ICE ##########\" ); printf ( \"%s %d \\n \" , \"N ICE H      = \" , ciaaw_get_nice ( \"H\" , 1 )); printf ( \"%s %12.6f \\n \" , \"ICE H 1      = \" , ciaaw_get_ice ( \"H\" , 1 , 1 , false )); printf ( \"%s %23.16e \\n \" , \"U ICE H 1    = \" , ciaaw_get_ice ( \"H\" , 1 , 1 , true )); printf ( \"%s %12.6f \\n \" , \"ICE H 2      = \" , ciaaw_get_ice ( \"H\" , 1 , 2 , false )); printf ( \"%s %23.16e \\n \" , \"U ICE H 2    = \" , ciaaw_get_ice ( \"H\" , 1 , 2 , true )); printf ( \"%s %d \\n \" , \"N ICE Tc     = \" , ciaaw_get_nice ( \"Tc\" , 2 )); printf ( \"%s %d \\n \" , \"N ICE C      = \" , ciaaw_get_nice ( \"C\" , 1 )); printf ( \"%s \\n \" , \"########## CIAAW NAW ##########\" ); printf ( \"%s %23.16f \\n \" , \"NAW H 2      = \" , ciaaw_get_naw ( \"H\" , 1 , 2 , false )); printf ( \"%s %23.16e \\n \" , \"U NAW H 2    = \" , ciaaw_get_naw ( \"H\" , 1 , 2 , true )); printf ( \"%s %d \\n \" , \"N NAW Tc     = \" , ciaaw_get_nnaw ( \"Tc\" , 2 )); return EXIT_SUCCESS ; } Python r \"\"\"Example in python\"\"\" import sys sys . path . insert ( 0 , \"../py/src/\" ) import pyciaaw # ASAW = Abridged Standard Atomic Weight # SAW  = Standard Atomic Weight # ICE  = Isotopic Composition of the Element # NAW  = Nuclide Atomic Weight # U    = Uncertainty print ( \"########## CIAAW VERSION ##########\" ) print ( \"version \" , pyciaaw . __version__ ) print ( \"########## CIAAW SAW  ##########\" ) print ( \"ASAW H   = \" , pyciaaw . get_saw ( \"H\" )) print ( \"U ASAW H = \" , pyciaaw . get_saw ( \"H\" , uncertainty = True )) print ( \"SAW H    = \" , pyciaaw . get_saw ( \"H\" , abridged = False , uncertainty = False )) print ( \"U SAW H  = \" , pyciaaw . get_saw ( \"H\" , abridged = False , uncertainty = True )) print ( \"ASAW Tc  = \" , pyciaaw . get_saw ( \"Tc\" )) print ( \"########## CIAAW ICE  ##########\" ) print ( \"N ICE H   = \" , pyciaaw . get_nice ( \"H\" )) print ( 'ICE H 1   = ' , pyciaaw . get_ice ( \"H\" , A = 1 )) print ( 'U ICE H 1 = ' , pyciaaw . get_ice ( \"H\" , A = 1 , uncertainty = True )) print ( 'ICE H 2   = ' , pyciaaw . get_ice ( \"H\" , A = 2 )) print ( 'U ICE H 2 = ' , pyciaaw . get_ice ( \"H\" , A = 2 , uncertainty = True )) print ( \"N ICE Tc  = \" , pyciaaw . get_nice ( \"Tc\" )) print ( \"N ICE C   = \" , pyciaaw . get_nice ( \"C\" )) print ( \"########## CIAAW NAW  ##########\" ) print ( 'NAW H 2   = ' , pyciaaw . get_naw ( \"H\" , A = 2 )) print ( 'U NAW H 2 = ' , pyciaaw . get_naw ( \"H\" , A = 2 , uncertainty = True )) print ( \"N NAW Tc  = \" , pyciaaw . get_nnaw ( \"Tc\" ))","tags":"","loc":"page/examples.html"},{"title":"License – ciaaw","text":"MIT License Copyright (c) Milan Skocic Permission is hereby granted, free of charge, to any person obtaining\na copy of this software and associated documentation files (the\n“Software”), to deal in the Software without restriction, including\nwithout limitation the rights to use, copy, modify, merge, publish,\ndistribute, sublicense, and/or sell copies of the Software, and to\npermit persons to whom the Software is furnished to do so, subject to\nthe following conditions: The above copyright notice and this permission notice shall be\nincluded in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED “AS IS”, WITHOUT WARRANTY OF ANY KIND,\nEXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF\nMERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND\nNONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE\nLIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION\nOF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION\nWITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.","tags":"","loc":"page/license.html"},{"title":"References – ciaaw","text":"A. Possolo, A. M. H. van der Veen, J. Meija, and D. B. Hibbert, “Interpreting and propagating the uncertainty of the standard atomic weights (iupac technical report),” Pure and Applied Chemistry, vol. 90, no. 2, pp. 395–424, 2018. A. M. H. van der Veen, J. Meija, A. Possolo, and D. B. Hibbert, “Interpretation and use of standard atomic weights (iupac technical report),” Pure and Applied Chemistry, vol. 93, no. 5, pp. 629–646, 2021. T. Prohaska, J. Irrgeher, J. Benefield, J. K. Böhlke, L. A. Chesson, T. B. Coplen, T. Ding, P. J. H. Dunn, M. Gr ̈öning, N. E. Holden, H. A. J. Meijer, H. Moossen, A. Possolo, Y. Takahashi, J. Vogl, T. Walczyk, J. Wang, M. E. Wieser, S. Yoneda, X.-K. Zhu, and J. Meija, “Standard atomic weights of the elements 2021 (iupac technical report),” Pure and Applied Chemistry, vol. 94, no. 5, pp. 573–600, 2022. J. Meija et al., “Isotopic compositions of the elements 2013 (IUPAC Technical Report)”, Pure and Applied Chemistry, vol. 88, nᵒ 3, p. 293‑306, 2016.” Huang et al.,  “The AME 2020 atomic mass evaluation (I). Evaluation of input data, and adjustment procedures”, Chinese Physics C, vol. 45, n°3, p.030002, 2021.","tags":"","loc":"page/references.html"},{"title":"Specifications (specs) – ciaaw","text":"This is an index/directory of the specifications (specs) for each module. API C API - Prototypes for C language.","tags":"","loc":"page/specs/index.html"},{"title":"API – ciaaw","text":"Description The modules ciaaw__saw , ciaaw__ice , ciaaw__naw and ciaaw__pte are\nautomatically generated with a simple script written in Python. All elements from the periodic table pt are directly accessible. \nThe data for the standard atomic weights ciaaw__saw , the isotopic compositions ciaaw__ice of the elements\nand the nuclide atomic weights ciaaw__naw are also directly accessible \nthrough the element_type . Nonetheless, convenient getters are available for accessing the desired data for an elements\nwithout having to access to whole periodic table pt get_saw get_ice get_nice get_naw SAW: Standard Atomic Weights The latest standard atomic weights were released in 2021 by the ciaaw .\nAll the values for the atomic weights are provided as double precision reals in a derived type saw_type . The standard atomic weights (or realtive atomic mass), , \nare extracted from table 1 Prohaska et al. 2022 . For the elements\nthat feature an interval for the standard atomic weight, the mean value and the uncertainty are computed\nusing formulas defined in Van der Veen et al. 2021 . The standard atomic weights are a dimensionless quantity and thus they need to be multiplied by \nthe molar mass constant in order to get the value in . \nSee codata for physical constants. ICE: Isotopic Compositions of the Element The latest isotopic compositions were released in 2013 by the ciaaw .\nAll the values for the compositions are provided as double precision reals in a derived type ice_type .\nThe isotopic compositions of the element, are extracted from table 1 Meija et al. 2013 . NAW: Nuclide Atomic Weights The latest atomic weights for nuclides were released in 2020 by ciaaw from Huang et al. 2021 .\nAll the values for the nuclide atomic weights are provided as double precision reals in derived type naw_type .","tags":"","loc":"page/specs/api.html"},{"title":"C API – ciaaw","text":"The prototypes of the C API are defined as shown below. #ifndef CIAAW_H #define CIAAW_H #if _MSC_VER #define ADD_IMPORT __declspec(dllimport) #else #define ADD_IMPORT #endif #include <stdbool.h> extern char * ciaaw_get_version ( void ); extern double ciaaw_get_saw ( char * s , int n , bool abridged , bool uncertainty ); extern double ciaaw_get_ice ( char * s , int n , int A , bool uncertainty ); extern int ciaaw_get_nice ( char * s , int n ); extern double ciaaw_get_naw ( char * s , int n , int A , bool uncertaintuy ); extern int ciaaw_get_nnaw ( char * s , int n ); #endif","tags":"","loc":"page/specs/capi.html"}]}
\ No newline at end of file
+var tipuesearch = {"pages":[{"title":" ciaaw ","text":"ciaaw Introduction Dependencies Installation License Introduction ciaaw is a  Fortran library providing the standard and abridged atomic weights, \nthe isotopic abundance and the isotopes’ standard atomic weights.\nThe data are taken from http://ciaaw.org. \nC API allows usage from C, or can be used as a basis for other wrappers.\nPython wrapper allows easy usage from Python. What have been implemented: [x] SAW: Standard Atomic Weights. [x] ICE: Isotopic Composition of the Element [x] NAW: Nuclides Atomic Weight. To use ciaaw within your fpm project,\nadd the following to your fpm.toml file: [ dependencies ] iapws = { git = \"https://github.com/MilanSkocic/ciaaw.git\" } Dependencies gcc>=10.0\ngfortran>=10.0\nfpm>=0.7\nstdlib>=0.5 Installation A Makefile is provided, which uses fpm , for building the library. On windows, msys2 needs to be installed. \n  Add the msys2 binary (usually C:\\msys64\\usr\\bin) to the path in order to be able to use make. On Darwin, the gcc toolchain needs to be installed. Build: the configuration file will set all the environment variables necessary for the compilation chmod +x configure.sh\n    . ./configure.sh\n    make Run tests make test Install make install Uninstall make uninstall License MIT Developer Info Milan Skocic","tags":"home","loc":"index.html"},{"title":"element_type – ciaaw ","text":"type, public :: element_type Derived type representing an element. Inherits type~~element_type~~InheritsGraph type~element_type element_type type~ice_type ice_type type~element_type->type~ice_type ice type~naw_type naw_type type~element_type->type~naw_type naw type~saw_type saw_type type~element_type->type~saw_type saw Help Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\nextends. Dashed arrows point from a derived type to the other\ntypes it contains as a components, with a label listing the name(s) of\nsaid component(s). Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Components Type Visibility Attributes Name Initial character(len=24), public :: element Element name. type( ice_type ), public :: ice Isotopic composition of the element type( naw_type ), public :: naw Atomic weight of the nuclide type( saw_type ), public :: saw Standard atomic weights character(len=8), public :: symbol Element symbol. integer(kind=int32), public :: z Element atomic number.","tags":"","loc":"type/element_type.html"},{"title":"ice_type – ciaaw ","text":"type, public :: ice_type Derived type reprensenting the isotopic abundance. Inherited by type~~ice_type~~InheritedByGraph type~ice_type ice_type type~element_type element_type type~element_type->type~ice_type ice Help Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\nextends. Dashed arrows point from a derived type to the other\ntypes it contains as a components, with a label listing the name(s) of\nsaid component(s). Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: n Number of isotopic compositions real(kind=dp), public :: values (NROWS_ICE,3) Mass numbers, Abundance, Uncertainty","tags":"","loc":"type/ice_type.html"},{"title":"naw_type – ciaaw ","text":"type, public :: naw_type Derived type reprensenting the nuclide’s atomic weights. Inherited by type~~naw_type~~InheritedByGraph type~naw_type naw_type type~element_type element_type type~element_type->type~naw_type naw Help Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\nextends. Dashed arrows point from a derived type to the other\ntypes it contains as a components, with a label listing the name(s) of\nsaid component(s). Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: n Number of atomic weights real(kind=dp), public :: values (NROWS_NAW,3) Mass numbers, Atomic weight, Uncertainty","tags":"","loc":"type/naw_type.html"},{"title":"saw_type – ciaaw ","text":"type, public :: saw_type Derived type representing the standard atomic weight of an element. Inherited by type~~saw_type~~InheritedByGraph type~saw_type saw_type type~element_type element_type type~element_type->type~saw_type saw Help Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\nextends. Dashed arrows point from a derived type to the other\ntypes it contains as a components, with a label listing the name(s) of\nsaid component(s). Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Components Type Visibility Attributes Name Initial real(kind=dp), public :: asaw Abridged value standard atomic weight. real(kind=dp), public :: asaw_u Abridged uncertainty standard atomic weight. real(kind=dp), public :: saw Value standard atomic weight. real(kind=dp), public :: saw_max Max standard atomic weight. real(kind=dp), public :: saw_min Min standard atomic weight. real(kind=dp), public :: saw_u Uncertainty standard atomic weight.","tags":"","loc":"type/saw_type.html"},{"title":"capi_get_ice – ciaaw","text":"public  function capi_get_ice(s, n, A, uncertainty) result(res) bind(C, name=\"ciaaw_get_ice\")) C API for get_ice Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. integer(kind=c_int), intent(in), value :: A Mass number. logical(kind=c_bool), intent(in), value :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=c_double) Calls proc~~capi_get_ice~~CallsGraph proc~capi_get_ice capi_get_ice proc~get_ice get_ice proc~capi_get_ice->proc~get_ice optval optval proc~get_ice->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_ice.html"},{"title":"capi_get_ice_values – ciaaw","text":"public  function capi_get_ice_values(s, n) result(res) bind(C, name=\"ciaaw_get_ice_values\")) C API for get_ice_values Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value type(c_ptr) Calls proc~~capi_get_ice_values~~CallsGraph proc~capi_get_ice_values capi_get_ice_values proc~get_ice_values get_ice_values proc~capi_get_ice_values->proc~get_ice_values Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_ice_values.html"},{"title":"capi_get_naw – ciaaw","text":"public  function capi_get_naw(s, n, A, uncertainty) result(res) bind(C, name=\"ciaaw_get_naw\")) C API for get_naw Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. integer(kind=c_int), intent(in), value :: A Mass number. logical(kind=c_bool), intent(in), value :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=c_double) Calls proc~~capi_get_naw~~CallsGraph proc~capi_get_naw capi_get_naw proc~get_naw get_naw proc~capi_get_naw->proc~get_naw optval optval proc~get_naw->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_naw.html"},{"title":"capi_get_nice – ciaaw","text":"public  function capi_get_nice(s, n) result(res) bind(C, name=\"ciaaw_get_nice\")) C API for get_nice Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value integer(kind=c_int) Calls proc~~capi_get_nice~~CallsGraph proc~capi_get_nice capi_get_nice proc~get_nice get_nice proc~capi_get_nice->proc~get_nice Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_nice.html"},{"title":"capi_get_nnaw – ciaaw","text":"public  function capi_get_nnaw(s, n) result(res) bind(C, name=\"ciaaw_get_nnaw\")) C API for get_nnaw Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value integer(kind=c_int) Calls proc~~capi_get_nnaw~~CallsGraph proc~capi_get_nnaw capi_get_nnaw proc~get_nnaw get_nnaw proc~capi_get_nnaw->proc~get_nnaw Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_nnaw.html"},{"title":"capi_get_saw – ciaaw","text":"public  function capi_get_saw(s, n, abridged, uncertainty) result(res) bind(C, name=\"ciaaw_get_saw\")) C API for get_saw . Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. logical(kind=c_bool), intent(in), value :: abridged Flag for setting if abridged value is desired. logical(kind=c_bool), intent(in), value :: uncertainty Flag for setting if the uncertainty is desired instead of the value. Return Value real(kind=c_double) Calls proc~~capi_get_saw~~CallsGraph proc~capi_get_saw capi_get_saw proc~get_saw get_saw proc~capi_get_saw->proc~get_saw optval optval proc~get_saw->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_saw.html"},{"title":"capi_get_version – ciaaw","text":"public  function capi_get_version() result(cptr) bind(c, name='ciaaw_get_version')) C API for get_version . Arguments None Return Value type(c_ptr) C pointer to a string indicating the version. Calls proc~~capi_get_version~~CallsGraph proc~capi_get_version capi_get_version proc~get_version get_version proc~capi_get_version->proc~get_version Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/capi_get_version.html"},{"title":"get_ice – ciaaw","text":"public  function get_ice(s, A, uncertainty) result(res) Get the isotopic composition of the element s for the mass number A. \nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if the provided symbol or A are incorrect or -1 if the element does not have an ICE. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. integer(kind=int32), intent(in) :: A Mass number. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) Calls proc~~get_ice~~CallsGraph proc~get_ice get_ice optval optval proc~get_ice->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Called by proc~~get_ice~~CalledByGraph proc~get_ice get_ice proc~capi_get_ice capi_get_ice proc~capi_get_ice->proc~get_ice Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_ice.html"},{"title":"get_ice_values – ciaaw","text":"public  function get_ice_values(s) result(res) Get the (n, 3) values array. See ice_type .\nReturns a null pointer if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value real(kind=dp), pointer, (:,:) Called by proc~~get_ice_values~~CalledByGraph proc~get_ice_values get_ice_values proc~capi_get_ice_values capi_get_ice_values proc~capi_get_ice_values->proc~get_ice_values Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_ice_values.html"},{"title":"get_naw – ciaaw","text":"public  function get_naw(s, A, uncertainty) result(res) Get the atomic weight of the nuclide s for the mass number A. \nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if provided symbol or A are incorrect \nor -1 if the element does not have an NAW. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. integer(kind=int32), intent(in) :: A Mass number. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) Calls proc~~get_naw~~CallsGraph proc~get_naw get_naw optval optval proc~get_naw->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Called by proc~~get_naw~~CalledByGraph proc~get_naw get_naw proc~capi_get_naw capi_get_naw proc~capi_get_naw->proc~get_naw Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_naw.html"},{"title":"get_nice – ciaaw","text":"public  function get_nice(s) result(res) Get the number of isotopes in ICE.\nReturns -1 if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value integer(kind=int32) Called by proc~~get_nice~~CalledByGraph proc~get_nice get_nice proc~capi_get_nice capi_get_nice proc~capi_get_nice->proc~get_nice Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_nice.html"},{"title":"get_nnaw – ciaaw","text":"public  function get_nnaw(s) result(res) Get the number of nuclides in NAW.\nReturns -1 if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value integer(kind=int32) Called by proc~~get_nnaw~~CalledByGraph proc~get_nnaw get_nnaw proc~capi_get_nnaw capi_get_nnaw proc~capi_get_nnaw->proc~get_nnaw Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_nnaw.html"},{"title":"get_saw – ciaaw","text":"public  function get_saw(s, abridged, uncertainty) result(res) Get the standard atomic weight. By default the abridged value is provided.\nIf the non abridged value is desired, set abridged to false.\nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if provided symbol is incorrect or -1 if the element does not have a SAW. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. logical, intent(in), optional :: abridged Flag for returning the abridged standard atomic weight. Default to TRUE. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) Calls proc~~get_saw~~CallsGraph proc~get_saw get_saw optval optval proc~get_saw->optval Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Called by proc~~get_saw~~CalledByGraph proc~get_saw get_saw proc~capi_get_saw capi_get_saw proc~capi_get_saw->proc~get_saw Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_saw.html"},{"title":"get_version – ciaaw","text":"public  function get_version() result(fptr) Get the version Arguments None Return Value character(len=:), pointer Fortran pointer to a string indicating the version.. Called by proc~~get_version~~CalledByGraph proc~get_version get_version proc~capi_get_version capi_get_version proc~capi_get_version->proc~get_version Help Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Type Bound Procedure Type Bound Procedure Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"proc/get_version.html"},{"title":"ciaaw__saw – ciaaw","text":"Ciaaw saw - Autogenerated\nSee specs Uses ciaaw__common ciaaw__types module~~ciaaw__saw~~UsesGraph module~ciaaw__saw ciaaw__saw module~ciaaw__common ciaaw__common module~ciaaw__saw->module~ciaaw__common module~ciaaw__types ciaaw__types module~ciaaw__saw->module~ciaaw__types ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__saw~~UsedByGraph module~ciaaw__saw ciaaw__saw module~ciaaw__pte ciaaw__pte module~ciaaw__pte->module~ciaaw__saw module~ciaaw ciaaw module~ciaaw->module~ciaaw__pte module~ciaaw__api ciaaw__api module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__api->module~ciaaw__pte module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial type( saw_type ), public, parameter :: Ac_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Ac type( saw_type ), public, parameter :: Ag_saw = saw_type(-1.0_dp, -1.0_dp, 107.8682_dp, 0.0002_dp, 107.87_dp, 0.01_dp) Ag type( saw_type ), public, parameter :: Al_saw = saw_type(-1.0_dp, -1.0_dp, 26.9815384_dp, 0.0000003_dp, 26.982_dp, 0.001_dp) Al type( saw_type ), public, parameter :: Am_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Am type( saw_type ), public, parameter :: Ar_saw = saw_type(39.792_dp, 39.963_dp, -1.0_dp, -1.0_dp, 39.95_dp, 0.16_dp) Ar type( saw_type ), public, parameter :: As_saw = saw_type(-1.0_dp, -1.0_dp, 74.921595_dp, 0.000006_dp, 74.922_dp, 0.001_dp) As type( saw_type ), public, parameter :: At_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) At type( saw_type ), public, parameter :: Au_saw = saw_type(-1.0_dp, -1.0_dp, 196.966570_dp, 0.000004_dp, 196.97_dp, 0.01_dp) Au type( saw_type ), public, parameter :: B_saw = saw_type(10.806_dp, 10.821_dp, -1.0_dp, -1.0_dp, 10.81_dp, 0.02_dp) B type( saw_type ), public, parameter :: Ba_saw = saw_type(-1.0_dp, -1.0_dp, 137.327_dp, 0.007_dp, 137.33_dp, 0.01_dp) Ba type( saw_type ), public, parameter :: Be_saw = saw_type(-1.0_dp, -1.0_dp, 9.0121831_dp, 0.0000005_dp, 9.0122_dp, 0.00001_dp) Be type( saw_type ), public, parameter :: Bh_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Bh type( saw_type ), public, parameter :: Bi_saw = saw_type(-1.0_dp, -1.0_dp, 208.98040_dp, 0.00001_dp, 208.98_dp, 0.01_dp) Bi type( saw_type ), public, parameter :: Bk_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Bk type( saw_type ), public, parameter :: Br_saw = saw_type(79.901_dp, 79.907_dp, -1.0_dp, -1.0_dp, 79.904_dp, 0.003_dp) Br type( saw_type ), public, parameter :: C_saw = saw_type(12.0096_dp, 12.0116_dp, -1.0_dp, -1.0_dp, 12.011_dp, 0.002_dp) C type( saw_type ), public, parameter :: Ca_saw = saw_type(-1.0_dp, -1.0_dp, 40.078_dp, 0.004_dp, 40.078_dp, 0.004_dp) Ca type( saw_type ), public, parameter :: Cd_saw = saw_type(-1.0_dp, -1.0_dp, 112.414_dp, 0.004_dp, 112.41_dp, 0.01_dp) Cd type( saw_type ), public, parameter :: Ce_saw = saw_type(-1.0_dp, -1.0_dp, 140.116_dp, 0.001_dp, 140.12_dp, 0.01_dp) Ce type( saw_type ), public, parameter :: Cf_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Cf type( saw_type ), public, parameter :: Cl_saw = saw_type(35.446_dp, 35.457_dp, -1.0_dp, -1.0_dp, 35.45_dp, 0.01_dp) Cl type( saw_type ), public, parameter :: Cm_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Cm type( saw_type ), public, parameter :: Cn_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Cn type( saw_type ), public, parameter :: Co_saw = saw_type(-1.0_dp, -1.0_dp, 58.933194_dp, 0.000003_dp, 58.933_dp, 0.001_dp) Co type( saw_type ), public, parameter :: Cr_saw = saw_type(-1.0_dp, -1.0_dp, 51.9961_dp, 0.0006_dp, 51.996_dp, 0.001_dp) Cr type( saw_type ), public, parameter :: Cs_saw = saw_type(-1.0_dp, -1.0_dp, 132.90545196_dp, 0.00000006_dp, 132.91_dp, 0.01_dp) Cs type( saw_type ), public, parameter :: Cu_saw = saw_type(-1.0_dp, -1.0_dp, 63.546_dp, 0.003_dp, 63.546_dp, 0.003_dp) Cu type( saw_type ), public, parameter :: Db_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Db type( saw_type ), public, parameter :: Ds_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Ds type( saw_type ), public, parameter :: Dy_saw = saw_type(-1.0_dp, -1.0_dp, 162.500_dp, 0.001_dp, 162.50_dp, 0.01_dp) Dy type( saw_type ), public, parameter :: Er_saw = saw_type(-1.0_dp, -1.0_dp, 167.259_dp, 0.003_dp, 167.26_dp, 0.01_dp) Er type( saw_type ), public, parameter :: Es_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Es type( saw_type ), public, parameter :: Eu_saw = saw_type(-1.0_dp, -1.0_dp, 151.964_dp, 0.001_dp, 151.96_dp, 0.01_dp) Eu type( saw_type ), public, parameter :: F_saw = saw_type(-1.0_dp, -1.0_dp, 18.998403162_dp, 0.000000005_dp, 18.998_dp, 0.001_dp) F type( saw_type ), public, parameter :: Fe_saw = saw_type(-1.0_dp, -1.0_dp, 55.845_dp, 0.002_dp, 55.845_dp, 0.002_dp) Fe type( saw_type ), public, parameter :: Fl_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Fl type( saw_type ), public, parameter :: Fm_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Fm type( saw_type ), public, parameter :: Fr_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Fr type( saw_type ), public, parameter :: Ga_saw = saw_type(-1.0_dp, -1.0_dp, 69.723_dp, 0.001_dp, 69.723_dp, 0.001_dp) Ga type( saw_type ), public, parameter :: Gd_saw = saw_type(-1.0_dp, -1.0_dp, 157.25_dp, 0.03_dp, 157.25_dp, 0.03_dp) Gd type( saw_type ), public, parameter :: Ge_saw = saw_type(-1.0_dp, -1.0_dp, 72.630_dp, 0.008_dp, 72.630_dp, 0.008_dp) Ge type( saw_type ), public, parameter :: H_saw = saw_type(1.00784_dp, 1.00811_dp, -1.0_dp, -1.0_dp, 1.0080_dp, 0.0002_dp) H type( saw_type ), public, parameter :: He_saw = saw_type(-1.0_dp, -1.0_dp, 4.002602_dp, 0.000002_dp, 4.0026_dp, 0.0001_dp) He type( saw_type ), public, parameter :: Hf_saw = saw_type(-1.0_dp, -1.0_dp, 178.486_dp, 0.006_dp, 178.49_dp, 0.01_dp) Hf type( saw_type ), public, parameter :: Hg_saw = saw_type(-1.0_dp, -1.0_dp, 200.592_dp, 0.003_dp, 200.59_dp, 0.01_dp) Hg type( saw_type ), public, parameter :: Ho_saw = saw_type(-1.0_dp, -1.0_dp, 164.930329_dp, 0.000005_dp, 164.93_dp, 0.01_dp) Ho type( saw_type ), public, parameter :: Hs_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Hs type( saw_type ), public, parameter :: I_saw = saw_type(-1.0_dp, -1.0_dp, 126.90447_dp, 0.00003_dp, 126.90_dp, 0.01_dp) I type( saw_type ), public, parameter :: In_saw = saw_type(-1.0_dp, -1.0_dp, 114.818_dp, 0.001_dp, 114.82_dp, 0.01_dp) In type( saw_type ), public, parameter :: Ir_saw = saw_type(-1.0_dp, -1.0_dp, 192.217_dp, 0.002_dp, 192.22_dp, 0.01_dp) Ir type( saw_type ), public, parameter :: K_saw = saw_type(-1.0_dp, -1.0_dp, 39.0983_dp, 0.0001_dp, 39.098_dp, 0.001_dp) K type( saw_type ), public, parameter :: Kr_saw = saw_type(-1.0_dp, -1.0_dp, 83.798_dp, 0.002_dp, 83.798_dp, 0.002_dp) Kr type( saw_type ), public, parameter :: La_saw = saw_type(-1.0_dp, -1.0_dp, 138.90547_dp, 0.00007_dp, 138.91_dp, 0.01_dp) La type( saw_type ), public, parameter :: Li_saw = saw_type(6.938_dp, 6.997_dp, -1.0_dp, -1.0_dp, 6.94_dp, 0.06_dp) Li type( saw_type ), public, parameter :: Lr_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Lr type( saw_type ), public, parameter :: Lu_saw = saw_type(-1.0_dp, -1.0_dp, 174.9668_dp, 0.0001_dp, 174.97_dp, 0.01_dp) Lu type( saw_type ), public, parameter :: Lv_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Lv type( saw_type ), public, parameter :: Mc_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Mc type( saw_type ), public, parameter :: Md_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Md type( saw_type ), public, parameter :: Mg_saw = saw_type(24.304_dp, 24.307_dp, -1.0_dp, -1.0_dp, 24.305_dp, 0.002_dp) Mg type( saw_type ), public, parameter :: Mn_saw = saw_type(-1.0_dp, -1.0_dp, 54.938043_dp, 0.000002_dp, 54.938_dp, 0.001_dp) Mn type( saw_type ), public, parameter :: Mo_saw = saw_type(-1.0_dp, -1.0_dp, 95.95_dp, 0.01_dp, 95.95_dp, 0.01_dp) Mo type( saw_type ), public, parameter :: Mt_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Mt type( saw_type ), public, parameter :: N_saw = saw_type(14.00643_dp, 14.00728_dp, -1.0_dp, -1.0_dp, 14.007_dp, 0.001_dp) N type( saw_type ), public, parameter :: Na_saw = saw_type(-1.0_dp, -1.0_dp, 22.98976928_dp, 0.00000002_dp, 22.990_dp, 0.001_dp) Na type( saw_type ), public, parameter :: Nb_saw = saw_type(-1.0_dp, -1.0_dp, 92.90637_dp, 0.00001_dp, 92.906_dp, 0.001_dp) Nb type( saw_type ), public, parameter :: Nd_saw = saw_type(-1.0_dp, -1.0_dp, 144.242_dp, 0.003_dp, 144.24_dp, 0.01_dp) Nd type( saw_type ), public, parameter :: Ne_saw = saw_type(-1.0_dp, -1.0_dp, 20.1797_dp, 0.0006_dp, 20.180_dp, 0.001_dp) Ne type( saw_type ), public, parameter :: Nh_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Nh type( saw_type ), public, parameter :: Ni_saw = saw_type(-1.0_dp, -1.0_dp, 58.6934_dp, 0.0004_dp, 58.693_dp, 0.001_dp) Ni type( saw_type ), public, parameter :: No_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) No type( saw_type ), public, parameter :: Np_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Np type( saw_type ), public, parameter :: O_saw = saw_type(15.99903_dp, 15.99977_dp, -1.0_dp, -1.0_dp, 15.999_dp, 0.001_dp) O type( saw_type ), public, parameter :: Og_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Og type( saw_type ), public, parameter :: Os_saw = saw_type(-1.0_dp, -1.0_dp, 190.23_dp, 0.03_dp, 190.23_dp, 0.03_dp) Os type( saw_type ), public, parameter :: P_saw = saw_type(-1.0_dp, -1.0_dp, 30.973761998_dp, 0.000000005_dp, 30.974_dp, 0.001_dp) P type( saw_type ), public, parameter :: Pa_saw = saw_type(-1.0_dp, -1.0_dp, 231.03588_dp, 0.00001_dp, 231.04_dp, 0.01_dp) Pa type( saw_type ), public, parameter :: Pb_saw = saw_type(206.14_dp, 207.94_dp, -1.0_dp, -1.0_dp, 207.2_dp, 1.1_dp) Pb type( saw_type ), public, parameter :: Pd_saw = saw_type(-1.0_dp, -1.0_dp, 106.42_dp, 0.01_dp, 106.42_dp, 0.01_dp) Pd type( saw_type ), public, parameter :: Pm_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Pm type( saw_type ), public, parameter :: Po_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Po type( saw_type ), public, parameter :: Pr_saw = saw_type(-1.0_dp, -1.0_dp, 140.90766_dp, 0.00001_dp, 140.91_dp, 0.01_dp) Pr type( saw_type ), public, parameter :: Pt_saw = saw_type(-1.0_dp, -1.0_dp, 195.084_dp, 0.009_dp, 195.08_dp, 0.02_dp) Pt type( saw_type ), public, parameter :: Pu_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Pu type( saw_type ), public, parameter :: Ra_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Ra type( saw_type ), public, parameter :: Rb_saw = saw_type(-1.0_dp, -1.0_dp, 85.4678_dp, 0.0003_dp, 85.468_dp, 0.001_dp) Rb type( saw_type ), public, parameter :: Re_saw = saw_type(-1.0_dp, -1.0_dp, 186.207_dp, 0.001_dp, 186.21_dp, 0.01_dp) Re type( saw_type ), public, parameter :: Rf_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Rf type( saw_type ), public, parameter :: Rg_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Rg type( saw_type ), public, parameter :: Rh_saw = saw_type(-1.0_dp, -1.0_dp, 102.90549_dp, 0.00002_dp, 102.91_dp, 0.01_dp) Rh type( saw_type ), public, parameter :: Rn_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Rn type( saw_type ), public, parameter :: Ru_saw = saw_type(-1.0_dp, -1.0_dp, 101.07_dp, 0.02_dp, 101.07_dp, 0.02_dp) Ru type( saw_type ), public, parameter :: S_saw = saw_type(32.059_dp, 32.076_dp, -1.0_dp, -1.0_dp, 32.06_dp, 0.02_dp) S type( saw_type ), public, parameter :: Sb_saw = saw_type(-1.0_dp, -1.0_dp, 121.760_dp, 0.001_dp, 121.76_dp, 0.01_dp) Sb type( saw_type ), public, parameter :: Sc_saw = saw_type(-1.0_dp, -1.0_dp, 44.955907_dp, 0.000004_dp, 44.956_dp, 0.001_dp) Sc type( saw_type ), public, parameter :: Se_saw = saw_type(-1.0_dp, -1.0_dp, 78.971_dp, 0.008_dp, 78.971_dp, 0.008_dp) Se type( saw_type ), public, parameter :: Sg_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Sg type( saw_type ), public, parameter :: Si_saw = saw_type(28.084_dp, 28.086_dp, -1.0_dp, -1.0_dp, 28.085_dp, 0.001_dp) Si type( saw_type ), public, parameter :: Sm_saw = saw_type(-1.0_dp, -1.0_dp, 150.36_dp, 0.02_dp, 150.36_dp, 0.02_dp) Sm type( saw_type ), public, parameter :: Sn_saw = saw_type(-1.0_dp, -1.0_dp, 118.70_dp, 0.007_dp, 118.71_dp, 0.01_dp) Sn type( saw_type ), public, parameter :: Sr_saw = saw_type(-1.0_dp, -1.0_dp, 87.62_dp, 0.01_dp, 87.62_dp, 0.01_dp) Sr type( saw_type ), public, parameter :: Ta_saw = saw_type(-1.0_dp, -1.0_dp, 180.94788_dp, 0.00002_dp, 180.95_dp, 0.01_dp) Ta type( saw_type ), public, parameter :: Tb_saw = saw_type(-1.0_dp, -1.0_dp, 158.925354_dp, 0.000007_dp, 158.93_dp, 0.01_dp) Tb type( saw_type ), public, parameter :: Tc_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Tc type( saw_type ), public, parameter :: Te_saw = saw_type(-1.0_dp, -1.0_dp, 127.60_dp, 0.03_dp, 127.60_dp, 0.03_dp) Te type( saw_type ), public, parameter :: Th_saw = saw_type(-1.0_dp, -1.0_dp, 232.0377_dp, 0.0004_dp, 232.04_dp, 0.01_dp) Th type( saw_type ), public, parameter :: Ti_saw = saw_type(-1.0_dp, -1.0_dp, 47.867_dp, 0.001_dp, 47.867_dp, 0.001_dp) Ti type( saw_type ), public, parameter :: Tl_saw = saw_type(204.382_dp, 204.385_dp, -1.0_dp, -1.0_dp, 204.38_dp, 0.01_dp) Tl type( saw_type ), public, parameter :: Tm_saw = saw_type(-1.0_dp, -1.0_dp, 168.934219_dp, 0.000005_dp, 168.93_dp, 0.01_dp) Tm type( saw_type ), public, parameter :: Ts_saw = saw_type(-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp) Ts type( saw_type ), public, parameter :: U_saw = saw_type(-1.0_dp, -1.0_dp, 238.02891_dp, 0.00003_dp, 238.03_dp, 0.01_dp) U type( saw_type ), public, parameter :: V_saw = saw_type(-1.0_dp, -1.0_dp, 50.9415_dp, 0.0001_dp, 50.942_dp, 0.001_dp) V type( saw_type ), public, parameter :: W_saw = saw_type(-1.0_dp, -1.0_dp, 183.84_dp, 0.01_dp, 183.84_dp, 0.01_dp) W type( saw_type ), public, parameter :: Xe_saw = saw_type(-1.0_dp, -1.0_dp, 131.293_dp, 0.006_dp, 131.29_dp, 0.01_dp) Xe type( saw_type ), public, parameter :: Y_saw = saw_type(-1.0_dp, -1.0_dp, 88.905838_dp, 0.000002_dp, 88.906_dp, 0.001_dp) Y type( saw_type ), public, parameter :: Yb_saw = saw_type(-1.0_dp, -1.0_dp, 173.045_dp, 0.010_dp, 173.05_dp, 0.02_dp) Yb type( saw_type ), public, parameter :: Zn_saw = saw_type(-1.0_dp, -1.0_dp, 65.38_dp, 0.02_dp, 65.38_dp, 0.02_dp) Zn type( saw_type ), public, parameter :: Zr_saw = saw_type(-1.0_dp, -1.0_dp, 91.224_dp, 0.002_dp, 91.224_dp, 0.002_dp) Zr","tags":"","loc":"module/ciaaw__saw.html"},{"title":"ciaaw__capi – ciaaw","text":"C API.\nSee specs Uses ciaaw__common ciaaw__api iso_c_binding module~~ciaaw__capi~~UsesGraph module~ciaaw__capi ciaaw__capi iso_c_binding iso_c_binding module~ciaaw__capi->iso_c_binding module~ciaaw__api ciaaw__api module~ciaaw__capi->module~ciaaw__api module~ciaaw__common ciaaw__common module~ciaaw__capi->module~ciaaw__common module~ciaaw__api->module~ciaaw__common ieee_arithmetic ieee_arithmetic module~ciaaw__api->ieee_arithmetic module~ciaaw__pte ciaaw__pte module~ciaaw__api->module~ciaaw__pte module~ciaaw__types ciaaw__types module~ciaaw__api->module~ciaaw__types module~ciaaw__version ciaaw__version module~ciaaw__api->module~ciaaw__version module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__pte->module~ciaaw__common module~ciaaw__pte->module~ciaaw__types module~ciaaw__ice ciaaw__ice module~ciaaw__pte->module~ciaaw__ice module~ciaaw__naw ciaaw__naw module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type module~ciaaw__ice->module~ciaaw__common module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw->module~ciaaw__common module~ciaaw__naw->module~ciaaw__types module~ciaaw__saw->module~ciaaw__common module~ciaaw__saw->module~ciaaw__types Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__capi~~UsedByGraph module~ciaaw__capi ciaaw__capi module~ciaaw ciaaw module~ciaaw->module~ciaaw__capi Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Functions public  function capi_get_ice (s, n, A, uncertainty) result(res) bind(C, name=\"ciaaw_get_ice\")) C API for get_ice Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. integer(kind=c_int), intent(in), value :: A Mass number. logical(kind=c_bool), intent(in), value :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=c_double) public  function capi_get_ice_values (s, n) result(res) bind(C, name=\"ciaaw_get_ice_values\")) C API for get_ice_values Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value type(c_ptr) public  function capi_get_naw (s, n, A, uncertainty) result(res) bind(C, name=\"ciaaw_get_naw\")) C API for get_naw Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. integer(kind=c_int), intent(in), value :: A Mass number. logical(kind=c_bool), intent(in), value :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=c_double) public  function capi_get_nice (s, n) result(res) bind(C, name=\"ciaaw_get_nice\")) C API for get_nice Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value integer(kind=c_int) public  function capi_get_nnaw (s, n) result(res) bind(C, name=\"ciaaw_get_nnaw\")) C API for get_nnaw Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Element symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. Return Value integer(kind=c_int) public  function capi_get_saw (s, n, abridged, uncertainty) result(res) bind(C, name=\"ciaaw_get_saw\")) C API for get_saw . Arguments Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: s Symbol. integer(kind=c_int), intent(in), value :: n Size of the symbol string. logical(kind=c_bool), intent(in), value :: abridged Flag for setting if abridged value is desired. logical(kind=c_bool), intent(in), value :: uncertainty Flag for setting if the uncertainty is desired instead of the value. Return Value real(kind=c_double) public  function capi_get_version () result(cptr) bind(c, name='ciaaw_get_version')) C API for get_version . Arguments None Return Value type(c_ptr) C pointer to a string indicating the version.","tags":"","loc":"module/ciaaw__capi.html"},{"title":"ciaaw__naw – ciaaw","text":"Ciaaw naw - Autogenerated\nSee specs Uses ciaaw__common ciaaw__types module~~ciaaw__naw~~UsesGraph module~ciaaw__naw ciaaw__naw module~ciaaw__common ciaaw__common module~ciaaw__naw->module~ciaaw__common module~ciaaw__types ciaaw__types module~ciaaw__naw->module~ciaaw__types ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__naw~~UsedByGraph module~ciaaw__naw ciaaw__naw module~ciaaw__pte ciaaw__pte module~ciaaw__pte->module~ciaaw__naw module~ciaaw ciaaw module~ciaaw->module~ciaaw__pte module~ciaaw__api ciaaw__api module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__api->module~ciaaw__pte module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial type( naw_type ), public, parameter :: Ac_naw = naw_type(33, transpose(reshape([205.0_dp, 205.015144152_dp, 0.000063682_dp, 206.0_dp, 206.014476477_dp, 0.000069874_dp, 207.0_dp, 207.011965967_dp, 0.000060384_dp, 208.0_dp, 208.011552251_dp, 0.000069225_dp, 209.0_dp, 209.009495375_dp, 0.000059953_dp, 210.0_dp, 210.009408625_dp, 0.000066782_dp, 211.0_dp, 211.007668846_dp, 0.000057706_dp, 212.0_dp, 212.007836442_dp, 0.000023492_dp, 213.0_dp, 213.006592665_dp, 0.000012522_dp, 214.0_dp, 214.006906400_dp, 0.000014547_dp, 215.0_dp, 215.006474061_dp, 0.000013318_dp, 216.0_dp, 216.008749101_dp, 0.000009908_dp, 217.0_dp, 217.009342325_dp, 0.000012048_dp, 218.0_dp, 218.011648860_dp, 0.000061853_dp, 219.0_dp, 219.012420425_dp, 0.000055263_dp, 220.0_dp, 220.014754527_dp, 0.000006579_dp, 221.0_dp, 221.015599721_dp, 0.000061086_dp, 222.0_dp, 222.017844232_dp, 0.000005044_dp, 223.0_dp, 223.019135982_dp, 0.000007457_dp, 224.0_dp, 224.021722249_dp, 0.000004389_dp, 225.0_dp, 225.023228601_dp, 0.000005107_dp, 226.0_dp, 226.026096999_dp, 0.000003327_dp, 227.0_dp, 227.027750594_dp, 0.000002068_dp, 228.0_dp, 228.031019685_dp, 0.000002247_dp, 229.0_dp, 229.032947000_dp, 0.000013000_dp, 230.0_dp, 230.036327000_dp, 0.000017000_dp, 231.0_dp, 231.038393000_dp, 0.000014000_dp, 232.0_dp, 232.042034000_dp, 0.000014000_dp, 233.0_dp, 233.044346000_dp, 0.000014000_dp, 234.0_dp, 234.048139000_dp, 0.000015000_dp, 235.0_dp, 235.050840000_dp, 0.000015000_dp, 236.0_dp, 236.054988000_dp, 0.000041000_dp, 237.0_dp, 237.057993_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ag_naw = naw_type(42, transpose(reshape([92.0_dp, 91.959710_dp, 0.000429_dp, 93.0_dp, 92.950188_dp, 0.000430_dp, 94.0_dp, 93.943744_dp, 0.000429_dp, 95.0_dp, 94.935688_dp, 0.000429_dp, 96.0_dp, 95.930743903_dp, 0.000096708_dp, 97.0_dp, 96.923881400_dp, 0.000012900_dp, 98.0_dp, 97.921559970_dp, 0.000035327_dp, 99.0_dp, 98.917645766_dp, 0.000006725_dp, 100.0_dp, 99.916115443_dp, 0.000005367_dp, 101.0_dp, 100.912683951_dp, 0.000005193_dp, 102.0_dp, 101.911704538_dp, 0.000008771_dp, 103.0_dp, 102.908960558_dp, 0.000004400_dp, 104.0_dp, 103.908623715_dp, 0.000004527_dp, 105.0_dp, 104.906525604_dp, 0.000004877_dp, 106.0_dp, 105.906663499_dp, 0.000003237_dp, 107.0_dp, 106.905091509_dp, 0.000002556_dp, 108.0_dp, 107.905950245_dp, 0.000002563_dp, 109.0_dp, 108.904755778_dp, 0.000001381_dp, 110.0_dp, 109.906110724_dp, 0.000001380_dp, 111.0_dp, 110.905296827_dp, 0.000001565_dp, 112.0_dp, 111.907048548_dp, 0.000002600_dp, 113.0_dp, 112.906572865_dp, 0.000017866_dp, 114.0_dp, 113.908823029_dp, 0.000004900_dp, 115.0_dp, 114.908767445_dp, 0.000019611_dp, 116.0_dp, 115.911386809_dp, 0.000003500_dp, 117.0_dp, 116.911774086_dp, 0.000014570_dp, 118.0_dp, 117.914595484_dp, 0.000002700_dp, 119.0_dp, 118.915570309_dp, 0.000015783_dp, 120.0_dp, 119.918784765_dp, 0.000004800_dp, 121.0_dp, 120.920125279_dp, 0.000013000_dp, 122.0_dp, 121.923664446_dp, 0.000041000_dp, 123.0_dp, 122.925315060_dp, 0.000035000_dp, 124.0_dp, 123.928899227_dp, 0.000270000_dp, 125.0_dp, 124.930735000_dp, 0.000465000_dp, 126.0_dp, 125.934814_dp, 0.000215_dp, 127.0_dp, 126.937037_dp, 0.000215_dp, 128.0_dp, 127.941266_dp, 0.000322_dp, 129.0_dp, 128.944315_dp, 0.000429_dp, 130.0_dp, 129.950727_dp, 0.000455_dp, 131.0_dp, 130.956253_dp, 0.000537_dp, 132.0_dp, 131.963070_dp, 0.000537_dp, 133.0_dp, 132.968781_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Al_naw = naw_type(23, transpose(reshape([21.0_dp, 21.029082_dp, 0.000644_dp, 22.0_dp, 22.019540_dp, 0.000430_dp, 23.0_dp, 23.007244351_dp, 0.000000370_dp, 24.0_dp, 23.999947598_dp, 0.000000244_dp, 25.0_dp, 24.990428308_dp, 0.000000069_dp, 26.0_dp, 25.986891876_dp, 0.000000071_dp, 27.0_dp, 26.981538408_dp, 0.000000050_dp, 28.0_dp, 27.981910009_dp, 0.000000052_dp, 29.0_dp, 28.980453164_dp, 0.000000370_dp, 30.0_dp, 29.982969171_dp, 0.000002077_dp, 31.0_dp, 30.983949754_dp, 0.000002400_dp, 32.0_dp, 31.988084338_dp, 0.000007700_dp, 33.0_dp, 32.990877685_dp, 0.000007500_dp, 34.0_dp, 33.996781924_dp, 0.000002259_dp, 35.0_dp, 34.999759816_dp, 0.000007900_dp, 36.0_dp, 36.006388000_dp, 0.000160500_dp, 37.0_dp, 37.010531000_dp, 0.000193500_dp, 38.0_dp, 38.017681_dp, 0.000161_dp, 39.0_dp, 39.023070_dp, 0.000322_dp, 40.0_dp, 40.030940_dp, 0.000322_dp, 41.0_dp, 41.037134_dp, 0.000429_dp, 42.0_dp, 42.045078_dp, 0.000537_dp, 43.0_dp, 43.051820_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Am_naw = naw_type(27, transpose(reshape([223.0_dp, 223.045840_dp, 0.000322_dp, 224.0_dp, 224.046442_dp, 0.000429_dp, 225.0_dp, 225.045508_dp, 0.000429_dp, 226.0_dp, 226.046130_dp, 0.000322_dp, 227.0_dp, 227.045282_dp, 0.000215_dp, 228.0_dp, 228.046001_dp, 0.000215_dp, 229.0_dp, 229.045282534_dp, 0.000114169_dp, 230.0_dp, 230.046025_dp, 0.000153_dp, 231.0_dp, 231.045529_dp, 0.000322_dp, 232.0_dp, 232.046613_dp, 0.000322_dp, 233.0_dp, 233.046468_dp, 0.000123_dp, 234.0_dp, 234.047731_dp, 0.000172_dp, 235.0_dp, 235.047906478_dp, 0.000056661_dp, 236.0_dp, 236.049427_dp, 0.000127_dp, 237.0_dp, 237.049995_dp, 0.000064_dp, 238.0_dp, 238.051982531_dp, 0.000063243_dp, 239.0_dp, 239.053022729_dp, 0.000002127_dp, 240.0_dp, 240.055298374_dp, 0.000014849_dp, 241.0_dp, 241.056827343_dp, 0.000001195_dp, 242.0_dp, 242.059547358_dp, 0.000001199_dp, 243.0_dp, 243.061379889_dp, 0.000001490_dp, 244.0_dp, 244.064282892_dp, 0.000001600_dp, 245.0_dp, 245.066452827_dp, 0.000002024_dp, 246.0_dp, 246.069774_dp, 0.000019_dp, 247.0_dp, 247.072092_dp, 0.000107_dp, 248.0_dp, 248.075752_dp, 0.000215_dp, 249.0_dp, 249.078480_dp, 0.000320_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ar_naw = naw_type(26, transpose(reshape([29.0_dp, 29.040761_dp, 0.000471_dp, 30.0_dp, 30.023694_dp, 0.000192_dp, 31.0_dp, 31.012158_dp, 0.000215_dp, 32.0_dp, 31.997637824_dp, 0.000001900_dp, 33.0_dp, 32.989925545_dp, 0.000000430_dp, 34.0_dp, 33.980270092_dp, 0.000000083_dp, 35.0_dp, 34.975257719_dp, 0.000000730_dp, 36.0_dp, 35.967545106_dp, 0.000000028_dp, 37.0_dp, 36.966776301_dp, 0.000000221_dp, 38.0_dp, 37.962732102_dp, 0.000000209_dp, 39.0_dp, 38.964313037_dp, 0.000005367_dp, 40.0_dp, 39.96238312204_dp, 0.00000000234_dp, 41.0_dp, 40.964500570_dp, 0.000000372_dp, 42.0_dp, 41.963045737_dp, 0.000006200_dp, 43.0_dp, 42.965636056_dp, 0.000005700_dp, 44.0_dp, 43.964923814_dp, 0.000001700_dp, 45.0_dp, 44.968039731_dp, 0.000000550_dp, 46.0_dp, 45.968039244_dp, 0.000002500_dp, 47.0_dp, 46.972767112_dp, 0.000001300_dp, 48.0_dp, 47.976001000_dp, 0.000018000_dp, 49.0_dp, 48.981685_dp, 0.000429_dp, 50.0_dp, 49.985797_dp, 0.000537_dp, 51.0_dp, 50.993033_dp, 0.000429_dp, 52.0_dp, 51.998519_dp, 0.000644_dp, 53.0_dp, 53.007290_dp, 0.000750_dp, 54.0_dp, 54.013484_dp, 0.000859_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: As_naw = naw_type(33, transpose(reshape([60.0_dp, 59.993945_dp, 0.000429_dp, 61.0_dp, 60.981535_dp, 0.000322_dp, 62.0_dp, 61.973784_dp, 0.000322_dp, 63.0_dp, 62.964036_dp, 0.000215_dp, 64.0_dp, 63.957560_dp, 0.000218_dp, 65.0_dp, 64.949611000_dp, 0.000091000_dp, 66.0_dp, 65.944148778_dp, 0.000006100_dp, 67.0_dp, 66.939251110_dp, 0.000000475_dp, 68.0_dp, 67.936774127_dp, 0.000001981_dp, 69.0_dp, 68.932246289_dp, 0.000034352_dp, 70.0_dp, 69.930934642_dp, 0.000001500_dp, 71.0_dp, 70.927113594_dp, 0.000004469_dp, 72.0_dp, 71.926752291_dp, 0.000004383_dp, 73.0_dp, 72.923829086_dp, 0.000004136_dp, 74.0_dp, 73.923928596_dp, 0.000001817_dp, 75.0_dp, 74.921594562_dp, 0.000000948_dp, 76.0_dp, 75.922392011_dp, 0.000000951_dp, 77.0_dp, 76.920647555_dp, 0.000001816_dp, 78.0_dp, 77.921827771_dp, 0.000010498_dp, 79.0_dp, 78.920948419_dp, 0.000005716_dp, 80.0_dp, 79.922474440_dp, 0.000003578_dp, 81.0_dp, 80.922132288_dp, 0.000002838_dp, 82.0_dp, 81.924738731_dp, 0.000004003_dp, 83.0_dp, 82.925206900_dp, 0.000003004_dp, 84.0_dp, 83.929303290_dp, 0.000003403_dp, 85.0_dp, 84.932163658_dp, 0.000003304_dp, 86.0_dp, 85.936701532_dp, 0.000003703_dp, 87.0_dp, 86.940291716_dp, 0.000003204_dp, 88.0_dp, 87.945840_dp, 0.000215_dp, 89.0_dp, 88.950048_dp, 0.000322_dp, 90.0_dp, 89.955995_dp, 0.000429_dp, 91.0_dp, 90.960816_dp, 0.000429_dp, 92.0_dp, 91.967386_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: At_naw = naw_type(39, transpose(reshape([191.0_dp, 191.004148081_dp, 0.000017287_dp, 192.0_dp, 192.003140912_dp, 0.000029922_dp, 193.0_dp, 192.999927725_dp, 0.000023222_dp, 194.0_dp, 193.999230816_dp, 0.000025230_dp, 195.0_dp, 194.996274480_dp, 0.000010276_dp, 196.0_dp, 195.995799034_dp, 0.000032458_dp, 197.0_dp, 196.993177353_dp, 0.000008570_dp, 198.0_dp, 197.992797864_dp, 0.000005265_dp, 199.0_dp, 198.990527715_dp, 0.000005780_dp, 200.0_dp, 199.990351099_dp, 0.000026264_dp, 201.0_dp, 200.988417058_dp, 0.000008786_dp, 202.0_dp, 201.988625686_dp, 0.000029631_dp, 203.0_dp, 202.986942904_dp, 0.000011404_dp, 204.0_dp, 203.987251393_dp, 0.000024335_dp, 205.0_dp, 204.986060546_dp, 0.000012941_dp, 206.0_dp, 205.986645768_dp, 0.000014523_dp, 207.0_dp, 206.985799715_dp, 0.000013318_dp, 208.0_dp, 207.986613011_dp, 0.000009577_dp, 209.0_dp, 208.986168701_dp, 0.000005094_dp, 210.0_dp, 209.987147423_dp, 0.000008261_dp, 211.0_dp, 210.987496226_dp, 0.000002929_dp, 212.0_dp, 211.990737301_dp, 0.000002559_dp, 213.0_dp, 212.992936593_dp, 0.000005258_dp, 214.0_dp, 213.996372331_dp, 0.000004274_dp, 215.0_dp, 214.998651002_dp, 0.000007116_dp, 216.0_dp, 216.002422643_dp, 0.000003837_dp, 217.0_dp, 217.004717794_dp, 0.000005368_dp, 218.0_dp, 218.008695941_dp, 0.000012349_dp, 219.0_dp, 219.011160587_dp, 0.000003474_dp, 220.0_dp, 220.015433000_dp, 0.000015000_dp, 221.0_dp, 221.018017000_dp, 0.000015000_dp, 222.0_dp, 222.022494000_dp, 0.000017000_dp, 223.0_dp, 223.025151000_dp, 0.000015000_dp, 224.0_dp, 224.029749000_dp, 0.000024000_dp, 225.0_dp, 225.032528_dp, 0.000322_dp, 226.0_dp, 226.037209_dp, 0.000322_dp, 227.0_dp, 227.040183_dp, 0.000322_dp, 228.0_dp, 228.044960_dp, 0.000429_dp, 229.0_dp, 229.048191_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Au_naw = naw_type(43, transpose(reshape([168.0_dp, 168.002716_dp, 0.000429_dp, 169.0_dp, 168.998080_dp, 0.000320_dp, 170.0_dp, 169.996024_dp, 0.000216_dp, 171.0_dp, 170.991881533_dp, 0.000022236_dp, 172.0_dp, 171.989996704_dp, 0.000060287_dp, 173.0_dp, 172.986224263_dp, 0.000024458_dp, 174.0_dp, 173.984908_dp, 0.000109_dp, 175.0_dp, 174.981316375_dp, 0.000041399_dp, 176.0_dp, 175.980116925_dp, 0.000035625_dp, 177.0_dp, 176.976869701_dp, 0.000010700_dp, 178.0_dp, 177.976056714_dp, 0.000011000_dp, 179.0_dp, 178.973173666_dp, 0.000012555_dp, 180.0_dp, 179.972489738_dp, 0.000005108_dp, 181.0_dp, 180.970079102_dp, 0.000021445_dp, 182.0_dp, 181.969614433_dp, 0.000020143_dp, 183.0_dp, 182.967588106_dp, 0.000010116_dp, 184.0_dp, 183.967451523_dp, 0.000023912_dp, 185.0_dp, 184.965798871_dp, 0.000002800_dp, 186.0_dp, 185.965952703_dp, 0.000022509_dp, 187.0_dp, 186.964542147_dp, 0.000024153_dp, 188.0_dp, 187.965247966_dp, 0.000002900_dp, 189.0_dp, 188.963948286_dp, 0.000021558_dp, 190.0_dp, 189.964751746_dp, 0.000003700_dp, 191.0_dp, 190.963716452_dp, 0.000005288_dp, 192.0_dp, 191.964817615_dp, 0.000016991_dp, 193.0_dp, 192.964138442_dp, 0.000009311_dp, 194.0_dp, 193.965419051_dp, 0.000002273_dp, 195.0_dp, 194.965037823_dp, 0.000001201_dp, 196.0_dp, 195.966571213_dp, 0.000003179_dp, 197.0_dp, 196.966570103_dp, 0.000000581_dp, 198.0_dp, 197.968243714_dp, 0.000000579_dp, 199.0_dp, 198.968766573_dp, 0.000000581_dp, 200.0_dp, 199.970756558_dp, 0.000028681_dp, 201.0_dp, 200.971657678_dp, 0.000003455_dp, 202.0_dp, 201.973856000_dp, 0.000025000_dp, 203.0_dp, 202.975154492_dp, 0.000003309_dp, 204.0_dp, 203.978110_dp, 0.000215_dp, 205.0_dp, 204.980064_dp, 0.000215_dp, 206.0_dp, 205.984766_dp, 0.000322_dp, 207.0_dp, 206.988577_dp, 0.000322_dp, 208.0_dp, 207.993655_dp, 0.000322_dp, 209.0_dp, 208.997606_dp, 0.000429_dp, 210.0_dp, 210.002877_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: B_naw = naw_type(16, transpose(reshape([6.0_dp, 6.050800_dp, 0.002150_dp, 7.0_dp, 7.029712000_dp, 0.000027000_dp, 8.0_dp, 8.024607315_dp, 0.000001073_dp, 9.0_dp, 9.013329645_dp, 0.000000969_dp, 10.0_dp, 10.012936862_dp, 0.000000016_dp, 11.0_dp, 11.009305166_dp, 0.000000013_dp, 12.0_dp, 12.014352638_dp, 0.000001418_dp, 13.0_dp, 13.017779981_dp, 0.000001073_dp, 14.0_dp, 14.025404010_dp, 0.000022773_dp, 15.0_dp, 15.031087023_dp, 0.000022575_dp, 16.0_dp, 16.039841045_dp, 0.000026373_dp, 17.0_dp, 17.046931399_dp, 0.000219114_dp, 18.0_dp, 18.055601683_dp, 0.000219180_dp, 19.0_dp, 19.064166000_dp, 0.000564000_dp, 20.0_dp, 20.074505644_dp, 0.000586538_dp, 21.0_dp, 21.084147485_dp, 0.000599750_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ba_naw = naw_type(42, transpose(reshape([113.0_dp, 112.957370_dp, 0.000322_dp, 114.0_dp, 113.950718489_dp, 0.000110227_dp, 115.0_dp, 114.947482_dp, 0.000215_dp, 116.0_dp, 115.941621_dp, 0.000215_dp, 117.0_dp, 116.938316403_dp, 0.000268749_dp, 118.0_dp, 117.933226_dp, 0.000215_dp, 119.0_dp, 118.930659683_dp, 0.000214997_dp, 120.0_dp, 119.926044997_dp, 0.000322241_dp, 121.0_dp, 120.924052286_dp, 0.000152333_dp, 122.0_dp, 121.919904000_dp, 0.000030000_dp, 123.0_dp, 122.918781060_dp, 0.000013000_dp, 124.0_dp, 123.915093627_dp, 0.000013416_dp, 125.0_dp, 124.914471840_dp, 0.000011800_dp, 126.0_dp, 125.911250202_dp, 0.000013416_dp, 127.0_dp, 126.911091272_dp, 0.000012192_dp, 128.0_dp, 127.908352446_dp, 0.000001728_dp, 129.0_dp, 128.908683409_dp, 0.000011276_dp, 130.0_dp, 129.906326002_dp, 0.000000308_dp, 131.0_dp, 130.906946315_dp, 0.000000445_dp, 132.0_dp, 131.905061231_dp, 0.000001130_dp, 133.0_dp, 132.906007443_dp, 0.000001065_dp, 134.0_dp, 133.904508249_dp, 0.000000269_dp, 135.0_dp, 134.905688447_dp, 0.000000263_dp, 136.0_dp, 135.904575800_dp, 0.000000262_dp, 137.0_dp, 136.905827207_dp, 0.000000266_dp, 138.0_dp, 137.905247059_dp, 0.000000267_dp, 139.0_dp, 138.908841164_dp, 0.000000271_dp, 140.0_dp, 139.910608231_dp, 0.000008480_dp, 141.0_dp, 140.914403653_dp, 0.000005709_dp, 142.0_dp, 141.916432904_dp, 0.000006355_dp, 143.0_dp, 142.920625149_dp, 0.000007253_dp, 144.0_dp, 143.922954821_dp, 0.000007661_dp, 145.0_dp, 144.927518400_dp, 0.000009100_dp, 146.0_dp, 145.930363200_dp, 0.000001900_dp, 147.0_dp, 146.935303900_dp, 0.000021200_dp, 148.0_dp, 147.938223000_dp, 0.000001600_dp, 149.0_dp, 148.943284000_dp, 0.000002700_dp, 150.0_dp, 149.946441100_dp, 0.000006100_dp, 151.0_dp, 150.951755_dp, 0.000429_dp, 152.0_dp, 151.955330_dp, 0.000429_dp, 153.0_dp, 152.960848_dp, 0.000429_dp, 154.0_dp, 153.964659_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Be_naw = naw_type(12, transpose(reshape([5.0_dp, 5.039870_dp, 0.002150_dp, 6.0_dp, 6.019726409_dp, 0.000005848_dp, 7.0_dp, 7.016928714_dp, 0.000000076_dp, 8.0_dp, 8.005305102_dp, 0.000000037_dp, 9.0_dp, 9.012183062_dp, 0.000000082_dp, 10.0_dp, 10.013534692_dp, 0.000000086_dp, 11.0_dp, 11.021661080_dp, 0.000000255_dp, 12.0_dp, 12.026922082_dp, 0.000002048_dp, 13.0_dp, 13.036134506_dp, 0.000010929_dp, 14.0_dp, 14.042892920_dp, 0.000141970_dp, 15.0_dp, 15.053490215_dp, 0.000177990_dp, 16.0_dp, 16.061672036_dp, 0.000177990_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Bh_naw = naw_type(19, transpose(reshape([260.0_dp, 260.121443_dp, 0.000211_dp, 261.0_dp, 261.121395733_dp, 0.000193026_dp, 262.0_dp, 262.122654688_dp, 0.000099919_dp, 263.0_dp, 263.122916_dp, 0.000328_dp, 264.0_dp, 264.124486_dp, 0.000190_dp, 265.0_dp, 265.124955_dp, 0.000257_dp, 266.0_dp, 266.126790_dp, 0.000175_dp, 267.0_dp, 267.127499_dp, 0.000282_dp, 268.0_dp, 268.129584_dp, 0.000410_dp, 269.0_dp, 269.130411_dp, 0.000402_dp, 270.0_dp, 270.133366_dp, 0.000320_dp, 271.0_dp, 271.135115_dp, 0.000412_dp, 272.0_dp, 272.138259_dp, 0.000571_dp, 273.0_dp, 273.140294_dp, 0.000703_dp, 274.0_dp, 274.143599_dp, 0.000620_dp, 275.0_dp, 275.145766_dp, 0.000644_dp, 276.0_dp, 276.149169_dp, 0.000644_dp, 277.0_dp, 277.151477_dp, 0.000644_dp, 278.0_dp, 278.154988_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Bi_naw = naw_type(41, transpose(reshape([184.0_dp, 184.001347_dp, 0.000131_dp, 185.0_dp, 184.997600_dp, 0.000087_dp, 186.0_dp, 185.996623169_dp, 0.000018200_dp, 187.0_dp, 186.993147272_dp, 0.000010740_dp, 188.0_dp, 187.992276064_dp, 0.000012001_dp, 189.0_dp, 188.989195139_dp, 0.000022384_dp, 190.0_dp, 189.988624828_dp, 0.000022515_dp, 191.0_dp, 190.985786972_dp, 0.000008037_dp, 192.0_dp, 191.985470077_dp, 0.000032326_dp, 193.0_dp, 192.982947220_dp, 0.000008132_dp, 194.0_dp, 193.982798581_dp, 0.000005638_dp, 195.0_dp, 194.980648759_dp, 0.000005675_dp, 196.0_dp, 195.980666509_dp, 0.000026224_dp, 197.0_dp, 196.978864927_dp, 0.000008946_dp, 198.0_dp, 197.979201316_dp, 0.000029598_dp, 199.0_dp, 198.977672841_dp, 0.000011395_dp, 200.0_dp, 199.978131290_dp, 0.000024370_dp, 201.0_dp, 200.976995017_dp, 0.000013072_dp, 202.0_dp, 201.977723042_dp, 0.000015032_dp, 203.0_dp, 202.976892077_dp, 0.000013717_dp, 204.0_dp, 203.977835687_dp, 0.000009854_dp, 205.0_dp, 204.977385182_dp, 0.000005161_dp, 206.0_dp, 205.978498843_dp, 0.000008193_dp, 207.0_dp, 206.978470551_dp, 0.000002573_dp, 208.0_dp, 207.979742060_dp, 0.000002474_dp, 209.0_dp, 208.980398599_dp, 0.000001465_dp, 210.0_dp, 209.984120237_dp, 0.000001463_dp, 211.0_dp, 210.987268715_dp, 0.000005842_dp, 212.0_dp, 211.991285030_dp, 0.000001989_dp, 213.0_dp, 212.994383570_dp, 0.000005455_dp, 214.0_dp, 213.998710909_dp, 0.000012033_dp, 215.0_dp, 215.001749095_dp, 0.000006037_dp, 216.0_dp, 216.006305985_dp, 0.000012000_dp, 217.0_dp, 217.009372000_dp, 0.000019000_dp, 218.0_dp, 218.014188000_dp, 0.000029000_dp, 219.0_dp, 219.017520_dp, 0.000215_dp, 220.0_dp, 220.022501_dp, 0.000322_dp, 221.0_dp, 221.025980_dp, 0.000322_dp, 222.0_dp, 222.031079_dp, 0.000322_dp, 223.0_dp, 223.034611_dp, 0.000429_dp, 224.0_dp, 224.039796_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Bk_naw = naw_type(22, transpose(reshape([233.0_dp, 233.056652_dp, 0.000250_dp, 234.0_dp, 234.057322_dp, 0.000164_dp, 235.0_dp, 235.056651_dp, 0.000430_dp, 236.0_dp, 236.057479_dp, 0.000387_dp, 237.0_dp, 237.057123_dp, 0.000247_dp, 238.0_dp, 238.058204_dp, 0.000275_dp, 239.0_dp, 239.058239_dp, 0.000222_dp, 240.0_dp, 240.059758_dp, 0.000161_dp, 241.0_dp, 241.060098_dp, 0.000178_dp, 242.0_dp, 242.061999_dp, 0.000144_dp, 243.0_dp, 243.063005905_dp, 0.000004856_dp, 244.0_dp, 244.065178969_dp, 0.000015457_dp, 245.0_dp, 245.066359814_dp, 0.000001923_dp, 246.0_dp, 246.068671300_dp, 0.000064433_dp, 247.0_dp, 247.070305889_dp, 0.000005570_dp, 248.0_dp, 248.073141689_dp, 0.000053739_dp, 249.0_dp, 249.074983118_dp, 0.000001339_dp, 250.0_dp, 250.078317195_dp, 0.000003110_dp, 251.0_dp, 251.080760555_dp, 0.000011523_dp, 252.0_dp, 252.084310_dp, 0.000215_dp, 253.0_dp, 253.086880_dp, 0.000385_dp, 254.0_dp, 254.090600_dp, 0.000320_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Br_naw = naw_type(34, transpose(reshape([65.0_dp, 64.982297_dp, 0.000537_dp, 66.0_dp, 65.974697_dp, 0.000429_dp, 67.0_dp, 66.965078_dp, 0.000322_dp, 68.0_dp, 67.958356_dp, 0.000278_dp, 69.0_dp, 68.950338410_dp, 0.000045091_dp, 70.0_dp, 69.944792321_dp, 0.000016000_dp, 71.0_dp, 70.939342153_dp, 0.000005799_dp, 72.0_dp, 71.936594606_dp, 0.000001100_dp, 73.0_dp, 72.931673441_dp, 0.000007237_dp, 74.0_dp, 73.929910279_dp, 0.000006264_dp, 75.0_dp, 74.925810566_dp, 0.000004600_dp, 76.0_dp, 75.924541574_dp, 0.000010007_dp, 77.0_dp, 76.921379193_dp, 0.000003017_dp, 78.0_dp, 77.921145858_dp, 0.000003842_dp, 79.0_dp, 78.918337574_dp, 0.000001074_dp, 80.0_dp, 79.918529784_dp, 0.000001065_dp, 81.0_dp, 80.916288197_dp, 0.000001049_dp, 82.0_dp, 81.916801752_dp, 0.000001042_dp, 83.0_dp, 82.915175285_dp, 0.000004073_dp, 84.0_dp, 83.916496417_dp, 0.000027622_dp, 85.0_dp, 84.915645758_dp, 0.000003304_dp, 86.0_dp, 85.918805432_dp, 0.000003304_dp, 87.0_dp, 86.920674016_dp, 0.000003404_dp, 88.0_dp, 87.924083290_dp, 0.000003404_dp, 89.0_dp, 88.926704558_dp, 0.000003504_dp, 90.0_dp, 89.931292848_dp, 0.000003604_dp, 91.0_dp, 90.934398617_dp, 0.000003804_dp, 92.0_dp, 91.939631595_dp, 0.000007202_dp, 93.0_dp, 92.943220000_dp, 0.000462500_dp, 94.0_dp, 93.948846_dp, 0.000215_dp, 95.0_dp, 94.952925_dp, 0.000322_dp, 96.0_dp, 95.958980_dp, 0.000322_dp, 97.0_dp, 96.963499_dp, 0.000429_dp, 98.0_dp, 97.969887_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: C_naw = naw_type(16, transpose(reshape([8.0_dp, 8.037643039_dp, 0.000019584_dp, 9.0_dp, 9.031037202_dp, 0.000002293_dp, 10.0_dp, 10.016853217_dp, 0.000000075_dp, 11.0_dp, 11.011432597_dp, 0.000000064_dp, 12.0_dp, 12.0000000_dp, 0.0000000_dp, 13.0_dp, 13.00335483534_dp, 0.00000000025_dp, 14.0_dp, 14.00324198862_dp, 0.00000000403_dp, 15.0_dp, 15.010599256_dp, 0.000000858_dp, 16.0_dp, 16.014701255_dp, 0.000003840_dp, 17.0_dp, 17.022578650_dp, 0.000018641_dp, 18.0_dp, 18.026751930_dp, 0.000032206_dp, 19.0_dp, 19.034797594_dp, 0.000105625_dp, 20.0_dp, 20.040261732_dp, 0.000247585_dp, 21.0_dp, 21.049000_dp, 0.000640_dp, 22.0_dp, 22.057553990_dp, 0.000248515_dp, 23.0_dp, 23.068890_dp, 0.001070_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ca_naw = naw_type(29, transpose(reshape([33.0_dp, 33.033312_dp, 0.000429_dp, 34.0_dp, 34.015985_dp, 0.000322_dp, 35.0_dp, 35.005572_dp, 0.000215_dp, 36.0_dp, 35.993074388_dp, 0.000042941_dp, 37.0_dp, 36.985897849_dp, 0.000000680_dp, 38.0_dp, 37.976319223_dp, 0.000000208_dp, 39.0_dp, 38.970710811_dp, 0.000000640_dp, 40.0_dp, 39.962590850_dp, 0.000000022_dp, 41.0_dp, 40.962277905_dp, 0.000000147_dp, 42.0_dp, 41.958617780_dp, 0.000000159_dp, 43.0_dp, 42.958766381_dp, 0.000000244_dp, 44.0_dp, 43.955481489_dp, 0.000000348_dp, 45.0_dp, 44.956186270_dp, 0.000000392_dp, 46.0_dp, 45.953687726_dp, 0.000002398_dp, 47.0_dp, 46.954541134_dp, 0.000002384_dp, 48.0_dp, 47.952522654_dp, 0.000000018_dp, 49.0_dp, 48.955662625_dp, 0.000000190_dp, 50.0_dp, 49.957499215_dp, 0.000001700_dp, 51.0_dp, 50.960995663_dp, 0.000000560_dp, 52.0_dp, 51.963213646_dp, 0.000000720_dp, 53.0_dp, 52.968451000_dp, 0.000047000_dp, 54.0_dp, 53.972989000_dp, 0.000052000_dp, 55.0_dp, 54.979978000_dp, 0.000172000_dp, 56.0_dp, 55.985496000_dp, 0.000268000_dp, 57.0_dp, 56.992958_dp, 0.000429_dp, 58.0_dp, 57.998357_dp, 0.000537_dp, 59.0_dp, 59.006237_dp, 0.000644_dp, 60.0_dp, 60.011809_dp, 0.000751_dp, 61.0_dp, 61.020408_dp, 0.000859_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cd_naw = naw_type(42, transpose(reshape([94.0_dp, 93.956586_dp, 0.000537_dp, 95.0_dp, 94.949483_dp, 0.000607_dp, 96.0_dp, 95.940341_dp, 0.000440_dp, 97.0_dp, 96.934799343_dp, 0.000451073_dp, 98.0_dp, 97.927389315_dp, 0.000055605_dp, 99.0_dp, 98.924925845_dp, 0.000001700_dp, 100.0_dp, 99.920348829_dp, 0.000001800_dp, 101.0_dp, 100.918586209_dp, 0.000001600_dp, 102.0_dp, 101.914481797_dp, 0.000001784_dp, 103.0_dp, 102.913416922_dp, 0.000001943_dp, 104.0_dp, 103.909856228_dp, 0.000001795_dp, 105.0_dp, 104.909463893_dp, 0.000001494_dp, 106.0_dp, 105.906459791_dp, 0.000001184_dp, 107.0_dp, 106.906612049_dp, 0.000001782_dp, 108.0_dp, 107.904183588_dp, 0.000001205_dp, 109.0_dp, 108.904986697_dp, 0.000001649_dp, 110.0_dp, 109.903007470_dp, 0.000000407_dp, 111.0_dp, 110.904183776_dp, 0.000000383_dp, 112.0_dp, 111.902763896_dp, 0.000000268_dp, 113.0_dp, 112.904408105_dp, 0.000000262_dp, 114.0_dp, 113.903364998_dp, 0.000000296_dp, 115.0_dp, 114.905437426_dp, 0.000000699_dp, 116.0_dp, 115.904763230_dp, 0.000000172_dp, 117.0_dp, 116.907226039_dp, 0.000001087_dp, 118.0_dp, 117.906921956_dp, 0.000021471_dp, 119.0_dp, 118.909847052_dp, 0.000040467_dp, 120.0_dp, 119.909868065_dp, 0.000004000_dp, 121.0_dp, 120.912963660_dp, 0.000002085_dp, 122.0_dp, 121.913459050_dp, 0.000002468_dp, 123.0_dp, 122.916892460_dp, 0.000002894_dp, 124.0_dp, 123.917659772_dp, 0.000002800_dp, 125.0_dp, 124.921257590_dp, 0.000003100_dp, 126.0_dp, 125.922430290_dp, 0.000002473_dp, 127.0_dp, 126.926203291_dp, 0.000006656_dp, 128.0_dp, 127.927816778_dp, 0.000006905_dp, 129.0_dp, 128.932235597_dp, 0.000005700_dp, 130.0_dp, 129.934387563_dp, 0.000024000_dp, 131.0_dp, 130.940727740_dp, 0.000020653_dp, 132.0_dp, 131.945823136_dp, 0.000064485_dp, 133.0_dp, 132.952614_dp, 0.000215_dp, 134.0_dp, 133.957638_dp, 0.000322_dp, 135.0_dp, 134.964766_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ce_naw = naw_type(41, transpose(reshape([119.0_dp, 118.952957_dp, 0.000537_dp, 120.0_dp, 119.946613_dp, 0.000537_dp, 121.0_dp, 120.943435_dp, 0.000430_dp, 122.0_dp, 121.937870_dp, 0.000430_dp, 123.0_dp, 122.935280_dp, 0.000320_dp, 124.0_dp, 123.930310_dp, 0.000320_dp, 125.0_dp, 124.928440_dp, 0.000210_dp, 126.0_dp, 125.923971000_dp, 0.000030000_dp, 127.0_dp, 126.922727000_dp, 0.000031000_dp, 128.0_dp, 127.918911000_dp, 0.000030000_dp, 129.0_dp, 128.918102000_dp, 0.000030000_dp, 130.0_dp, 129.914736000_dp, 0.000030000_dp, 131.0_dp, 130.914429465_dp, 0.000035214_dp, 132.0_dp, 131.911466226_dp, 0.000021907_dp, 133.0_dp, 132.911520402_dp, 0.000017557_dp, 134.0_dp, 133.908928142_dp, 0.000021886_dp, 135.0_dp, 134.909160662_dp, 0.000011021_dp, 136.0_dp, 135.907129256_dp, 0.000000348_dp, 137.0_dp, 136.907762416_dp, 0.000000386_dp, 138.0_dp, 137.905994180_dp, 0.000000536_dp, 139.0_dp, 138.906647029_dp, 0.000002242_dp, 140.0_dp, 139.905448433_dp, 0.000001409_dp, 141.0_dp, 140.908285991_dp, 0.000001411_dp, 142.0_dp, 141.909250208_dp, 0.000002623_dp, 143.0_dp, 142.912391953_dp, 0.000002621_dp, 144.0_dp, 143.913652763_dp, 0.000003041_dp, 145.0_dp, 144.917265113_dp, 0.000036393_dp, 146.0_dp, 145.918812294_dp, 0.000015743_dp, 147.0_dp, 146.922689900_dp, 0.000009211_dp, 148.0_dp, 147.924424186_dp, 0.000012017_dp, 149.0_dp, 148.928426900_dp, 0.000011000_dp, 150.0_dp, 149.930384032_dp, 0.000012556_dp, 151.0_dp, 150.934272200_dp, 0.000019000_dp, 152.0_dp, 151.936682_dp, 0.000215_dp, 153.0_dp, 152.941052_dp, 0.000215_dp, 154.0_dp, 153.943940_dp, 0.000215_dp, 155.0_dp, 154.948706_dp, 0.000322_dp, 156.0_dp, 155.951884_dp, 0.000322_dp, 157.0_dp, 156.957133_dp, 0.000429_dp, 158.0_dp, 157.960773_dp, 0.000429_dp, 159.0_dp, 158.966355_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cf_naw = naw_type(20, transpose(reshape([237.0_dp, 237.062199272_dp, 0.000104506_dp, 238.0_dp, 238.061490_dp, 0.000320_dp, 239.0_dp, 239.062482_dp, 0.000129_dp, 240.0_dp, 240.062253447_dp, 0.000019360_dp, 241.0_dp, 241.063690_dp, 0.000180_dp, 242.0_dp, 242.063754544_dp, 0.000013840_dp, 243.0_dp, 243.065475_dp, 0.000194_dp, 244.0_dp, 244.065999447_dp, 0.000002809_dp, 245.0_dp, 245.068046755_dp, 0.000002606_dp, 246.0_dp, 246.068803685_dp, 0.000001625_dp, 247.0_dp, 247.070971348_dp, 0.000015380_dp, 248.0_dp, 248.072182905_dp, 0.000005497_dp, 249.0_dp, 249.074850428_dp, 0.000001269_dp, 250.0_dp, 250.076404494_dp, 0.000001650_dp, 251.0_dp, 251.079587171_dp, 0.000004187_dp, 252.0_dp, 252.081626507_dp, 0.000002531_dp, 253.0_dp, 253.085133723_dp, 0.000004570_dp, 254.0_dp, 254.087323575_dp, 0.000012304_dp, 255.0_dp, 255.091046_dp, 0.000215_dp, 256.0_dp, 256.093442_dp, 0.000338_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cl_naw = naw_type(25, transpose(reshape([28.0_dp, 28.030349_dp, 0.000537_dp, 29.0_dp, 29.015053_dp, 0.000203_dp, 30.0_dp, 30.005018333_dp, 0.000025631_dp, 31.0_dp, 30.992448097_dp, 0.000003700_dp, 32.0_dp, 31.985684605_dp, 0.000000603_dp, 33.0_dp, 32.977451988_dp, 0.000000419_dp, 34.0_dp, 33.973762490_dp, 0.000000052_dp, 35.0_dp, 34.968852694_dp, 0.000000038_dp, 36.0_dp, 35.968306822_dp, 0.000000038_dp, 37.0_dp, 36.965902573_dp, 0.000000055_dp, 38.0_dp, 37.968010408_dp, 0.000000105_dp, 39.0_dp, 38.968008151_dp, 0.000001859_dp, 40.0_dp, 39.970415466_dp, 0.000034423_dp, 41.0_dp, 40.970684525_dp, 0.000073777_dp, 42.0_dp, 41.973342000_dp, 0.000064000_dp, 43.0_dp, 42.974063700_dp, 0.000066407_dp, 44.0_dp, 43.978014918_dp, 0.000091859_dp, 45.0_dp, 44.980394353_dp, 0.000146177_dp, 46.0_dp, 45.985254926_dp, 0.000104400_dp, 47.0_dp, 46.989715_dp, 0.000215_dp, 48.0_dp, 47.995405_dp, 0.000537_dp, 49.0_dp, 49.000794_dp, 0.000429_dp, 50.0_dp, 50.008266_dp, 0.000429_dp, 51.0_dp, 51.015341_dp, 0.000751_dp, 52.0_dp, 52.024004_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cm_naw = naw_type(22, transpose(reshape([231.0_dp, 231.050746_dp, 0.000322_dp, 232.0_dp, 232.049740_dp, 0.000216_dp, 233.0_dp, 233.050771485_dp, 0.000087059_dp, 234.0_dp, 234.050158568_dp, 0.000018333_dp, 235.0_dp, 235.051545_dp, 0.000110_dp, 236.0_dp, 236.051372112_dp, 0.000018931_dp, 237.0_dp, 237.052868988_dp, 0.000079870_dp, 238.0_dp, 238.053081606_dp, 0.000013133_dp, 239.0_dp, 239.054908519_dp, 0.000161107_dp, 240.0_dp, 240.055528233_dp, 0.000002045_dp, 241.0_dp, 241.057651218_dp, 0.000001725_dp, 242.0_dp, 242.058834187_dp, 0.000001224_dp, 243.0_dp, 243.061387329_dp, 0.000001605_dp, 244.0_dp, 244.062750622_dp, 0.000001187_dp, 245.0_dp, 245.065491047_dp, 0.000001233_dp, 246.0_dp, 246.067222016_dp, 0.000001637_dp, 247.0_dp, 247.070352678_dp, 0.000004076_dp, 248.0_dp, 248.072349086_dp, 0.000002531_dp, 249.0_dp, 249.075953992_dp, 0.000002545_dp, 250.0_dp, 250.078357541_dp, 0.000011029_dp, 251.0_dp, 251.082284988_dp, 0.000024367_dp, 252.0_dp, 252.084870_dp, 0.000320_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cn_naw = naw_type(13, transpose(reshape([276.0_dp, 276.161418_dp, 0.000537_dp, 277.0_dp, 277.163535_dp, 0.000165_dp, 278.0_dp, 278.164083_dp, 0.000470_dp, 279.0_dp, 279.166422_dp, 0.000424_dp, 280.0_dp, 280.167102_dp, 0.000626_dp, 281.0_dp, 281.169563_dp, 0.000427_dp, 282.0_dp, 282.170507_dp, 0.000588_dp, 283.0_dp, 283.173202_dp, 0.000660_dp, 284.0_dp, 284.174360_dp, 0.000819_dp, 285.0_dp, 285.177227_dp, 0.000544_dp, 286.0_dp, 286.178691_dp, 0.000751_dp, 287.0_dp, 287.181826_dp, 0.000751_dp, 288.0_dp, 288.183501_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Co_naw = naw_type(32, transpose(reshape([47.0_dp, 47.011401_dp, 0.000644_dp, 48.0_dp, 48.001857_dp, 0.000537_dp, 49.0_dp, 48.989501_dp, 0.000537_dp, 50.0_dp, 49.981117000_dp, 0.000135000_dp, 51.0_dp, 50.970647000_dp, 0.000052000_dp, 52.0_dp, 51.963130224_dp, 0.000005669_dp, 53.0_dp, 52.954203278_dp, 0.000001854_dp, 54.0_dp, 53.948459075_dp, 0.000000380_dp, 55.0_dp, 54.941996416_dp, 0.000000434_dp, 56.0_dp, 55.939838032_dp, 0.000000510_dp, 57.0_dp, 56.936289819_dp, 0.000000553_dp, 58.0_dp, 57.935751292_dp, 0.000001237_dp, 59.0_dp, 58.933193524_dp, 0.000000426_dp, 60.0_dp, 59.933815536_dp, 0.000000433_dp, 61.0_dp, 60.932476031_dp, 0.000000901_dp, 62.0_dp, 61.934058198_dp, 0.000019940_dp, 63.0_dp, 62.933599630_dp, 0.000019941_dp, 64.0_dp, 63.935810176_dp, 0.000021476_dp, 65.0_dp, 64.936462071_dp, 0.000002235_dp, 66.0_dp, 65.939442943_dp, 0.000015000_dp, 67.0_dp, 66.940609625_dp, 0.000006917_dp, 68.0_dp, 67.944559401_dp, 0.000004142_dp, 69.0_dp, 68.945909000_dp, 0.000092000_dp, 70.0_dp, 69.950053400_dp, 0.000011800_dp, 71.0_dp, 70.952366923_dp, 0.000499230_dp, 72.0_dp, 71.956736_dp, 0.000322_dp, 73.0_dp, 72.959238_dp, 0.000322_dp, 74.0_dp, 73.963993_dp, 0.000429_dp, 75.0_dp, 74.967192_dp, 0.000429_dp, 76.0_dp, 75.972453_dp, 0.000537_dp, 77.0_dp, 76.976479_dp, 0.000644_dp, 78.0_dp, 77.983553_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cr_naw = naw_type(30, transpose(reshape([41.0_dp, 41.021911_dp, 0.000429_dp, 42.0_dp, 42.007579_dp, 0.000322_dp, 43.0_dp, 42.997885_dp, 0.000215_dp, 44.0_dp, 43.985591000_dp, 0.000055000_dp, 45.0_dp, 44.979050000_dp, 0.000038000_dp, 46.0_dp, 45.968360969_dp, 0.000012295_dp, 47.0_dp, 46.962894995_dp, 0.000005578_dp, 48.0_dp, 47.954029431_dp, 0.000007848_dp, 49.0_dp, 48.951333720_dp, 0.000002363_dp, 50.0_dp, 49.946042209_dp, 0.000000100_dp, 51.0_dp, 50.944765388_dp, 0.000000178_dp, 52.0_dp, 51.940504714_dp, 0.000000120_dp, 53.0_dp, 52.940646304_dp, 0.000000124_dp, 54.0_dp, 53.938877359_dp, 0.000000142_dp, 55.0_dp, 54.940836637_dp, 0.000000245_dp, 56.0_dp, 55.940648977_dp, 0.000000620_dp, 57.0_dp, 56.943612112_dp, 0.000002000_dp, 58.0_dp, 57.944184501_dp, 0.000003200_dp, 59.0_dp, 58.948345426_dp, 0.000000720_dp, 60.0_dp, 59.949641656_dp, 0.000001200_dp, 61.0_dp, 60.954378130_dp, 0.000002000_dp, 62.0_dp, 61.956142920_dp, 0.000003700_dp, 63.0_dp, 62.961161000_dp, 0.000078000_dp, 64.0_dp, 63.963886000_dp, 0.000322000_dp, 65.0_dp, 64.969608_dp, 0.000215_dp, 66.0_dp, 65.973011_dp, 0.000322_dp, 67.0_dp, 66.979313_dp, 0.000429_dp, 68.0_dp, 67.983156_dp, 0.000537_dp, 69.0_dp, 68.989662_dp, 0.000537_dp, 70.0_dp, 69.993945_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cs_naw = naw_type(42, transpose(reshape([111.0_dp, 110.953945_dp, 0.000215_dp, 112.0_dp, 111.950172_dp, 0.000124_dp, 113.0_dp, 112.944428484_dp, 0.000009207_dp, 114.0_dp, 113.941292244_dp, 0.000091323_dp, 115.0_dp, 114.935910_dp, 0.000110_dp, 116.0_dp, 115.933395_dp, 0.000108_dp, 117.0_dp, 116.928616723_dp, 0.000067000_dp, 118.0_dp, 117.926559517_dp, 0.000013690_dp, 119.0_dp, 118.922377327_dp, 0.000014965_dp, 120.0_dp, 119.920677277_dp, 0.000010702_dp, 121.0_dp, 120.917227235_dp, 0.000015340_dp, 122.0_dp, 121.916108144_dp, 0.000036164_dp, 123.0_dp, 122.912996060_dp, 0.000013000_dp, 124.0_dp, 123.912247366_dp, 0.000009823_dp, 125.0_dp, 124.909725953_dp, 0.000008304_dp, 126.0_dp, 125.909445821_dp, 0.000011120_dp, 127.0_dp, 126.907417527_dp, 0.000005987_dp, 128.0_dp, 127.907748452_dp, 0.000005771_dp, 129.0_dp, 128.906065910_dp, 0.000004888_dp, 130.0_dp, 129.906709281_dp, 0.000008971_dp, 131.0_dp, 130.905468457_dp, 0.000000190_dp, 132.0_dp, 131.906437740_dp, 0.000001112_dp, 133.0_dp, 132.905451958_dp, 0.000000008_dp, 134.0_dp, 133.906718501_dp, 0.000000017_dp, 135.0_dp, 134.905976907_dp, 0.000000390_dp, 136.0_dp, 135.907311431_dp, 0.000002010_dp, 137.0_dp, 136.907089296_dp, 0.000000324_dp, 138.0_dp, 137.911017119_dp, 0.000009831_dp, 139.0_dp, 138.913363822_dp, 0.000003364_dp, 140.0_dp, 139.917283707_dp, 0.000008801_dp, 141.0_dp, 140.920045279_dp, 0.000009871_dp, 142.0_dp, 141.924299514_dp, 0.000007586_dp, 143.0_dp, 142.927347346_dp, 0.000008130_dp, 144.0_dp, 143.932075402_dp, 0.000021612_dp, 145.0_dp, 144.935528927_dp, 0.000009733_dp, 146.0_dp, 145.940621867_dp, 0.000003106_dp, 147.0_dp, 146.944261512_dp, 0.000009000_dp, 148.0_dp, 147.949639026_dp, 0.000014000_dp, 149.0_dp, 148.953516_dp, 0.000429_dp, 150.0_dp, 149.959023_dp, 0.000429_dp, 151.0_dp, 150.963199_dp, 0.000537_dp, 152.0_dp, 151.968728_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Cu_naw = naw_type(33, transpose(reshape([52.0_dp, 51.997982_dp, 0.000644_dp, 53.0_dp, 52.985894_dp, 0.000537_dp, 54.0_dp, 53.977198_dp, 0.000429_dp, 55.0_dp, 54.966038000_dp, 0.000167000_dp, 56.0_dp, 55.958529278_dp, 0.000006864_dp, 57.0_dp, 56.949211686_dp, 0.000000537_dp, 58.0_dp, 57.944532283_dp, 0.000000604_dp, 59.0_dp, 58.939496713_dp, 0.000000566_dp, 60.0_dp, 59.937363787_dp, 0.000001731_dp, 61.0_dp, 60.933457375_dp, 0.000001020_dp, 62.0_dp, 61.932594803_dp, 0.000000683_dp, 63.0_dp, 62.929597119_dp, 0.000000457_dp, 64.0_dp, 63.929764001_dp, 0.000000458_dp, 65.0_dp, 64.927789476_dp, 0.000000690_dp, 66.0_dp, 65.928868804_dp, 0.000000696_dp, 67.0_dp, 66.927729490_dp, 0.000000957_dp, 68.0_dp, 67.929610887_dp, 0.000001700_dp, 69.0_dp, 68.929429267_dp, 0.000001500_dp, 70.0_dp, 69.932392078_dp, 0.000001161_dp, 71.0_dp, 70.932676831_dp, 0.000001600_dp, 72.0_dp, 71.935820306_dp, 0.000001500_dp, 73.0_dp, 72.936674376_dp, 0.000002084_dp, 74.0_dp, 73.939874860_dp, 0.000006600_dp, 75.0_dp, 74.941523817_dp, 0.000000770_dp, 76.0_dp, 75.945268974_dp, 0.000000980_dp, 77.0_dp, 76.947543599_dp, 0.000001300_dp, 78.0_dp, 77.951916524_dp, 0.000014312_dp, 79.0_dp, 78.954473100_dp, 0.000112700_dp, 80.0_dp, 79.960623_dp, 0.000322_dp, 81.0_dp, 80.965743_dp, 0.000322_dp, 82.0_dp, 81.972378_dp, 0.000429_dp, 83.0_dp, 82.978110_dp, 0.000537_dp, 84.0_dp, 83.985271_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Db_naw = naw_type(16, transpose(reshape([255.0_dp, 255.106919_dp, 0.000304_dp, 256.0_dp, 256.107674_dp, 0.000201_dp, 257.0_dp, 257.107520042_dp, 0.000176741_dp, 258.0_dp, 258.108972995_dp, 0.000098613_dp, 259.0_dp, 259.109491859_dp, 0.000060854_dp, 260.0_dp, 260.111297_dp, 0.000100_dp, 261.0_dp, 261.111979_dp, 0.000118_dp, 262.0_dp, 262.114067_dp, 0.000154_dp, 263.0_dp, 263.114987_dp, 0.000180_dp, 264.0_dp, 264.117297_dp, 0.000253_dp, 265.0_dp, 265.118500_dp, 0.000240_dp, 266.0_dp, 266.121032_dp, 0.000304_dp, 267.0_dp, 267.122399_dp, 0.000402_dp, 268.0_dp, 268.125669_dp, 0.000568_dp, 269.0_dp, 269.127911_dp, 0.000669_dp, 270.0_dp, 270.131399_dp, 0.000617_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ds_naw = naw_type(18, transpose(reshape([267.0_dp, 267.143726_dp, 0.000219_dp, 268.0_dp, 268.143477_dp, 0.000324_dp, 269.0_dp, 269.144750965_dp, 0.000033712_dp, 270.0_dp, 270.144586620_dp, 0.000042163_dp, 271.0_dp, 271.145951_dp, 0.000104_dp, 272.0_dp, 272.146091_dp, 0.000456_dp, 273.0_dp, 273.148455_dp, 0.000152_dp, 274.0_dp, 274.149434_dp, 0.000418_dp, 275.0_dp, 275.152085_dp, 0.000366_dp, 276.0_dp, 276.153022_dp, 0.000588_dp, 277.0_dp, 277.155763_dp, 0.000421_dp, 278.0_dp, 278.157007_dp, 0.000548_dp, 279.0_dp, 279.159984_dp, 0.000649_dp, 280.0_dp, 280.161375_dp, 0.000803_dp, 281.0_dp, 281.164545_dp, 0.000529_dp, 282.0_dp, 282.166174_dp, 0.000322_dp, 283.0_dp, 283.169437_dp, 0.000537_dp, 284.0_dp, 284.171187_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Dy_naw = naw_type(39, transpose(reshape([138.0_dp, 137.962500_dp, 0.000540_dp, 139.0_dp, 138.959527_dp, 0.000537_dp, 140.0_dp, 139.954020_dp, 0.000430_dp, 141.0_dp, 140.951280_dp, 0.000320_dp, 142.0_dp, 141.946194_dp, 0.000782_dp, 143.0_dp, 142.943994332_dp, 0.000014000_dp, 144.0_dp, 143.939269512_dp, 0.000007700_dp, 145.0_dp, 144.937473992_dp, 0.000007000_dp, 146.0_dp, 145.932844526_dp, 0.000007187_dp, 147.0_dp, 146.931082712_dp, 0.000009500_dp, 148.0_dp, 147.927149944_dp, 0.000009365_dp, 149.0_dp, 148.927327516_dp, 0.000009858_dp, 150.0_dp, 149.925593068_dp, 0.000004636_dp, 151.0_dp, 150.926191279_dp, 0.000003486_dp, 152.0_dp, 151.924725274_dp, 0.000004930_dp, 153.0_dp, 152.925771729_dp, 0.000004295_dp, 154.0_dp, 153.924428920_dp, 0.000007977_dp, 155.0_dp, 154.925758049_dp, 0.000010354_dp, 156.0_dp, 155.924283593_dp, 0.000001060_dp, 157.0_dp, 156.925469555_dp, 0.000005532_dp, 158.0_dp, 157.924414817_dp, 0.000002509_dp, 159.0_dp, 158.925745938_dp, 0.000001544_dp, 160.0_dp, 159.925203578_dp, 0.000000751_dp, 161.0_dp, 160.926939425_dp, 0.000000748_dp, 162.0_dp, 161.926804507_dp, 0.000000746_dp, 163.0_dp, 162.928737221_dp, 0.000000744_dp, 164.0_dp, 163.929180819_dp, 0.000000746_dp, 165.0_dp, 164.931709402_dp, 0.000000748_dp, 166.0_dp, 165.932812810_dp, 0.000000862_dp, 167.0_dp, 166.935682415_dp, 0.000004300_dp, 168.0_dp, 167.937134977_dp, 0.000150303_dp, 169.0_dp, 168.940315231_dp, 0.000322781_dp, 170.0_dp, 169.942340_dp, 0.000215_dp, 171.0_dp, 170.946312_dp, 0.000215_dp, 172.0_dp, 171.948728_dp, 0.000322_dp, 173.0_dp, 172.953043_dp, 0.000429_dp, 174.0_dp, 173.955845_dp, 0.000537_dp, 175.0_dp, 174.960569_dp, 0.000537_dp, 176.0_dp, 175.963918_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Er_naw = naw_type(39, transpose(reshape([142.0_dp, 141.970016_dp, 0.000537_dp, 143.0_dp, 142.966548_dp, 0.000429_dp, 144.0_dp, 143.960700_dp, 0.000210_dp, 145.0_dp, 144.957874_dp, 0.000215_dp, 146.0_dp, 145.952418357_dp, 0.000007197_dp, 147.0_dp, 146.949964456_dp, 0.000041000_dp, 148.0_dp, 147.944735026_dp, 0.000011000_dp, 149.0_dp, 148.942306000_dp, 0.000030000_dp, 150.0_dp, 149.937915524_dp, 0.000018458_dp, 151.0_dp, 150.937448567_dp, 0.000017681_dp, 152.0_dp, 151.935050347_dp, 0.000009478_dp, 153.0_dp, 152.935086350_dp, 0.000009967_dp, 154.0_dp, 153.932790799_dp, 0.000005325_dp, 155.0_dp, 154.933215710_dp, 0.000006520_dp, 156.0_dp, 155.931065926_dp, 0.000026440_dp, 157.0_dp, 156.931922652_dp, 0.000028454_dp, 158.0_dp, 157.929893474_dp, 0.000027074_dp, 159.0_dp, 158.930690790_dp, 0.000003910_dp, 160.0_dp, 159.929077193_dp, 0.000026029_dp, 161.0_dp, 160.930003530_dp, 0.000009419_dp, 162.0_dp, 161.928787299_dp, 0.000000811_dp, 163.0_dp, 162.930039908_dp, 0.000004967_dp, 164.0_dp, 163.929207739_dp, 0.000000755_dp, 165.0_dp, 164.930733482_dp, 0.000000985_dp, 166.0_dp, 165.930301067_dp, 0.000000358_dp, 167.0_dp, 166.932056192_dp, 0.000000306_dp, 168.0_dp, 167.932378282_dp, 0.000000280_dp, 169.0_dp, 168.934598444_dp, 0.000000326_dp, 170.0_dp, 169.935471933_dp, 0.000001488_dp, 171.0_dp, 170.938037372_dp, 0.000001511_dp, 172.0_dp, 171.939363461_dp, 0.000004253_dp, 173.0_dp, 172.942400_dp, 0.000210_dp, 174.0_dp, 173.944230_dp, 0.000320_dp, 175.0_dp, 174.947770_dp, 0.000430_dp, 176.0_dp, 175.949940_dp, 0.000430_dp, 177.0_dp, 176.953990_dp, 0.000540_dp, 178.0_dp, 177.956779_dp, 0.000640_dp, 179.0_dp, 178.961267_dp, 0.000537_dp, 180.0_dp, 179.964380_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Es_naw = naw_type(20, transpose(reshape([239.0_dp, 239.068310_dp, 0.000322_dp, 240.0_dp, 240.068949_dp, 0.000393_dp, 241.0_dp, 241.068592_dp, 0.000248_dp, 242.0_dp, 242.069567_dp, 0.000276_dp, 243.0_dp, 243.069508_dp, 0.000222_dp, 244.0_dp, 244.070881_dp, 0.000195_dp, 245.0_dp, 245.071192_dp, 0.000178_dp, 246.0_dp, 246.072806474_dp, 0.000096538_dp, 247.0_dp, 247.073621929_dp, 0.000020870_dp, 248.0_dp, 248.075469_dp, 0.000056_dp, 249.0_dp, 249.076409_dp, 0.000032_dp, 250.0_dp, 250.078611_dp, 0.000107_dp, 251.0_dp, 251.079991431_dp, 0.000005676_dp, 252.0_dp, 252.082979173_dp, 0.000053736_dp, 253.0_dp, 253.084821241_dp, 0.000001341_dp, 254.0_dp, 254.088024337_dp, 0.000003152_dp, 255.0_dp, 255.090273504_dp, 0.000011612_dp, 256.0_dp, 256.093597_dp, 0.000107_dp, 257.0_dp, 257.095979_dp, 0.000441_dp, 258.0_dp, 258.099520_dp, 0.000430_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Eu_naw = naw_type(41, transpose(reshape([130.0_dp, 129.964022_dp, 0.000578_dp, 131.0_dp, 130.957634_dp, 0.000429_dp, 132.0_dp, 131.954696_dp, 0.000429_dp, 133.0_dp, 132.949290_dp, 0.000320_dp, 134.0_dp, 133.946537_dp, 0.000322_dp, 135.0_dp, 134.941870_dp, 0.000210_dp, 136.0_dp, 135.939620_dp, 0.000210_dp, 137.0_dp, 136.935430719_dp, 0.000004700_dp, 138.0_dp, 137.933709000_dp, 0.000030000_dp, 139.0_dp, 138.929792307_dp, 0.000014117_dp, 140.0_dp, 139.928087633_dp, 0.000055328_dp, 141.0_dp, 140.924931734_dp, 0.000013568_dp, 142.0_dp, 141.923446719_dp, 0.000032268_dp, 143.0_dp, 142.920298678_dp, 0.000011793_dp, 144.0_dp, 143.918819481_dp, 0.000011580_dp, 145.0_dp, 144.916272659_dp, 0.000003285_dp, 146.0_dp, 145.917210852_dp, 0.000006451_dp, 147.0_dp, 146.916752440_dp, 0.000002758_dp, 148.0_dp, 147.918091288_dp, 0.000010693_dp, 149.0_dp, 148.917936875_dp, 0.000004190_dp, 150.0_dp, 149.919707092_dp, 0.000006688_dp, 151.0_dp, 150.919856606_dp, 0.000001251_dp, 152.0_dp, 151.921750980_dp, 0.000001252_dp, 153.0_dp, 152.921236789_dp, 0.000001257_dp, 154.0_dp, 153.922985699_dp, 0.000001275_dp, 155.0_dp, 154.922899847_dp, 0.000001343_dp, 156.0_dp, 155.924762976_dp, 0.000003791_dp, 157.0_dp, 156.925432556_dp, 0.000004545_dp, 158.0_dp, 157.927782192_dp, 0.000002181_dp, 159.0_dp, 158.929099512_dp, 0.000004637_dp, 160.0_dp, 159.931836982_dp, 0.000000970_dp, 161.0_dp, 160.933663991_dp, 0.000011164_dp, 162.0_dp, 161.936958329_dp, 0.000001410_dp, 163.0_dp, 162.939265510_dp, 0.000000970_dp, 164.0_dp, 163.942852943_dp, 0.000002219_dp, 165.0_dp, 164.945540070_dp, 0.000005596_dp, 166.0_dp, 165.949813_dp, 0.000107_dp, 167.0_dp, 166.953011_dp, 0.000429_dp, 168.0_dp, 167.957863_dp, 0.000429_dp, 169.0_dp, 168.961717_dp, 0.000537_dp, 170.0_dp, 169.966870_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: F_naw = naw_type(19, transpose(reshape([13.0_dp, 13.045121_dp, 0.000537_dp, 14.0_dp, 14.034315196_dp, 0.000044142_dp, 15.0_dp, 15.017785139_dp, 0.000015029_dp, 16.0_dp, 16.011460278_dp, 0.000005758_dp, 17.0_dp, 17.002095237_dp, 0.000000266_dp, 18.0_dp, 18.000937324_dp, 0.000000497_dp, 19.0_dp, 18.99840316207_dp, 0.00000000088_dp, 20.0_dp, 19.999981252_dp, 0.000000031_dp, 21.0_dp, 20.999948893_dp, 0.000001932_dp, 22.0_dp, 22.002998812_dp, 0.000013310_dp, 23.0_dp, 23.003526875_dp, 0.000035770_dp, 24.0_dp, 24.008099370_dp, 0.000104853_dp, 25.0_dp, 25.012167727_dp, 0.000103535_dp, 26.0_dp, 26.020048065_dp, 0.000114898_dp, 27.0_dp, 27.026981897_dp, 0.000129037_dp, 28.0_dp, 28.035860448_dp, 0.000129198_dp, 29.0_dp, 29.043103000_dp, 0.000564000_dp, 30.0_dp, 30.052561_dp, 0.000537_dp, 31.0_dp, 31.061023_dp, 0.000574_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Fe_naw = naw_type(32, transpose(reshape([45.0_dp, 45.015467_dp, 0.000304_dp, 46.0_dp, 46.001299_dp, 0.000322_dp, 47.0_dp, 46.992346_dp, 0.000537_dp, 48.0_dp, 47.980667000_dp, 0.000099000_dp, 49.0_dp, 48.973429000_dp, 0.000026000_dp, 50.0_dp, 49.962988000_dp, 0.000009000_dp, 51.0_dp, 50.956855137_dp, 0.000001501_dp, 52.0_dp, 51.948113364_dp, 0.000000192_dp, 53.0_dp, 52.945305629_dp, 0.000001792_dp, 54.0_dp, 53.939608189_dp, 0.000000368_dp, 55.0_dp, 54.938291158_dp, 0.000000330_dp, 56.0_dp, 55.934935537_dp, 0.000000287_dp, 57.0_dp, 56.935391950_dp, 0.000000287_dp, 58.0_dp, 57.933273575_dp, 0.000000339_dp, 59.0_dp, 58.934873492_dp, 0.000000354_dp, 60.0_dp, 59.934070249_dp, 0.000003656_dp, 61.0_dp, 60.936746241_dp, 0.000002800_dp, 62.0_dp, 61.936791809_dp, 0.000003000_dp, 63.0_dp, 62.940272698_dp, 0.000004618_dp, 64.0_dp, 63.940987761_dp, 0.000005386_dp, 65.0_dp, 64.945015323_dp, 0.000005487_dp, 66.0_dp, 65.946249958_dp, 0.000004400_dp, 67.0_dp, 66.950930000_dp, 0.000004100_dp, 68.0_dp, 67.952875_dp, 0.000207_dp, 69.0_dp, 68.957918_dp, 0.000215_dp, 70.0_dp, 69.960397_dp, 0.000322_dp, 71.0_dp, 70.965722_dp, 0.000429_dp, 72.0_dp, 71.968599_dp, 0.000537_dp, 73.0_dp, 72.974246_dp, 0.000537_dp, 74.0_dp, 73.977821_dp, 0.000537_dp, 75.0_dp, 74.984219_dp, 0.000644_dp, 76.0_dp, 75.988631_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Fl_naw = naw_type(8, transpose(reshape([284.0_dp, 284.181192_dp, 0.000704_dp, 285.0_dp, 285.183503_dp, 0.000433_dp, 286.0_dp, 286.184226_dp, 0.000590_dp, 287.0_dp, 287.186720_dp, 0.000663_dp, 288.0_dp, 288.187781_dp, 0.000819_dp, 289.0_dp, 289.190517_dp, 0.000548_dp, 290.0_dp, 290.191875_dp, 0.000752_dp, 291.0_dp, 291.194848_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Fm_naw = naw_type(20, transpose(reshape([241.0_dp, 241.074311_dp, 0.000322_dp, 242.0_dp, 242.073430_dp, 0.000430_dp, 243.0_dp, 243.074414_dp, 0.000140_dp, 244.0_dp, 244.074036_dp, 0.000216_dp, 245.0_dp, 245.075354_dp, 0.000210_dp, 246.0_dp, 246.075353334_dp, 0.000014675_dp, 247.0_dp, 247.076944_dp, 0.000194_dp, 248.0_dp, 248.077185451_dp, 0.000009122_dp, 249.0_dp, 249.078926042_dp, 0.000006668_dp, 250.0_dp, 250.079519765_dp, 0.000008468_dp, 251.0_dp, 251.081545130_dp, 0.000015342_dp, 252.0_dp, 252.082466019_dp, 0.000005604_dp, 253.0_dp, 253.085180945_dp, 0.000001662_dp, 254.0_dp, 254.086852424_dp, 0.000001978_dp, 255.0_dp, 255.089963495_dp, 0.000004223_dp, 256.0_dp, 256.091771699_dp, 0.000003241_dp, 257.0_dp, 257.095105419_dp, 0.000004669_dp, 258.0_dp, 258.097077_dp, 0.000215_dp, 259.0_dp, 259.100596_dp, 0.000304_dp, 260.0_dp, 260.102809_dp, 0.000467_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Fr_naw = naw_type(37, transpose(reshape([197.0_dp, 197.011008086_dp, 0.000060584_dp, 198.0_dp, 198.010282081_dp, 0.000033419_dp, 199.0_dp, 199.007269384_dp, 0.000014734_dp, 200.0_dp, 200.006584666_dp, 0.000032769_dp, 201.0_dp, 201.003852491_dp, 0.000009747_dp, 202.0_dp, 202.003329637_dp, 0.000006476_dp, 203.0_dp, 203.000940867_dp, 0.000006689_dp, 204.0_dp, 204.000651972_dp, 0.000026389_dp, 205.0_dp, 204.998593854_dp, 0.000008399_dp, 206.0_dp, 205.998661441_dp, 0.000029856_dp, 207.0_dp, 206.996941450_dp, 0.000018847_dp, 208.0_dp, 207.997139082_dp, 0.000012514_dp, 209.0_dp, 208.995939701_dp, 0.000012349_dp, 210.0_dp, 209.996410596_dp, 0.000014407_dp, 211.0_dp, 210.995555189_dp, 0.000012872_dp, 212.0_dp, 211.996225420_dp, 0.000009419_dp, 213.0_dp, 212.996184410_dp, 0.000005053_dp, 214.0_dp, 213.998971193_dp, 0.000009145_dp, 215.0_dp, 215.000341534_dp, 0.000007585_dp, 216.0_dp, 216.003189523_dp, 0.000004480_dp, 217.0_dp, 217.004631980_dp, 0.000007011_dp, 218.0_dp, 218.007578620_dp, 0.000004546_dp, 219.0_dp, 219.009250664_dp, 0.000007380_dp, 220.0_dp, 220.012326789_dp, 0.000004324_dp, 221.0_dp, 221.014253714_dp, 0.000005245_dp, 222.0_dp, 222.017582615_dp, 0.000008000_dp, 223.0_dp, 223.019734241_dp, 0.000002073_dp, 224.0_dp, 224.023348096_dp, 0.000012000_dp, 225.0_dp, 225.025572466_dp, 0.000012847_dp, 226.0_dp, 226.029544512_dp, 0.000006688_dp, 227.0_dp, 227.031865413_dp, 0.000006332_dp, 228.0_dp, 228.035839433_dp, 0.000007226_dp, 229.0_dp, 229.038291443_dp, 0.000005368_dp, 230.0_dp, 230.042390787_dp, 0.000007022_dp, 231.0_dp, 231.045175353_dp, 0.000008300_dp, 232.0_dp, 232.049461219_dp, 0.000015000_dp, 233.0_dp, 233.052517833_dp, 0.000021000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ga_naw = naw_type(33, transpose(reshape([56.0_dp, 55.995878_dp, 0.000537_dp, 57.0_dp, 56.983457_dp, 0.000429_dp, 58.0_dp, 57.974729_dp, 0.000322_dp, 59.0_dp, 58.963757_dp, 0.000183_dp, 60.0_dp, 59.957498_dp, 0.000215_dp, 61.0_dp, 60.949398861_dp, 0.000040787_dp, 62.0_dp, 61.944189639_dp, 0.000000684_dp, 63.0_dp, 62.939294194_dp, 0.000001400_dp, 64.0_dp, 63.936840366_dp, 0.000001533_dp, 65.0_dp, 64.932734424_dp, 0.000000849_dp, 66.0_dp, 65.931589766_dp, 0.000001172_dp, 67.0_dp, 66.928202276_dp, 0.000001262_dp, 68.0_dp, 67.927980161_dp, 0.000001535_dp, 69.0_dp, 68.925573528_dp, 0.000001285_dp, 70.0_dp, 69.926021914_dp, 0.000001289_dp, 71.0_dp, 70.924702554_dp, 0.000000870_dp, 72.0_dp, 71.926367452_dp, 0.000000878_dp, 73.0_dp, 72.925174680_dp, 0.000001800_dp, 74.0_dp, 73.926945725_dp, 0.000003214_dp, 75.0_dp, 74.926504484_dp, 0.000000720_dp, 76.0_dp, 75.928827624_dp, 0.000002100_dp, 77.0_dp, 76.929154299_dp, 0.000002600_dp, 78.0_dp, 77.931610854_dp, 0.000001127_dp, 79.0_dp, 78.932851582_dp, 0.000001296_dp, 80.0_dp, 79.936420773_dp, 0.000003103_dp, 81.0_dp, 80.938133841_dp, 0.000003503_dp, 82.0_dp, 81.943176531_dp, 0.000002604_dp, 83.0_dp, 82.947120300_dp, 0.000002804_dp, 84.0_dp, 83.952663000_dp, 0.000032000_dp, 85.0_dp, 84.957333000_dp, 0.000040000_dp, 86.0_dp, 85.963757_dp, 0.000429_dp, 87.0_dp, 86.969007_dp, 0.000537_dp, 88.0_dp, 87.975963_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Gd_naw = naw_type(40, transpose(reshape([133.0_dp, 132.961288_dp, 0.000537_dp, 134.0_dp, 133.955416_dp, 0.000429_dp, 135.0_dp, 134.952496_dp, 0.000429_dp, 136.0_dp, 135.947300_dp, 0.000320_dp, 137.0_dp, 136.945020_dp, 0.000320_dp, 138.0_dp, 137.940247_dp, 0.000215_dp, 139.0_dp, 138.938130_dp, 0.000210_dp, 140.0_dp, 139.933674000_dp, 0.000030000_dp, 141.0_dp, 140.932126000_dp, 0.000021213_dp, 142.0_dp, 141.928116000_dp, 0.000030000_dp, 143.0_dp, 142.926750678_dp, 0.000215032_dp, 144.0_dp, 143.922963000_dp, 0.000030000_dp, 145.0_dp, 144.921710051_dp, 0.000021165_dp, 146.0_dp, 145.918318513_dp, 0.000004376_dp, 147.0_dp, 146.919101014_dp, 0.000002025_dp, 148.0_dp, 147.918121414_dp, 0.000001566_dp, 149.0_dp, 148.919347666_dp, 0.000003553_dp, 150.0_dp, 149.918663949_dp, 0.000006500_dp, 151.0_dp, 150.920354922_dp, 0.000003212_dp, 152.0_dp, 151.919798414_dp, 0.000001081_dp, 153.0_dp, 152.921756945_dp, 0.000001075_dp, 154.0_dp, 153.920872974_dp, 0.000001066_dp, 155.0_dp, 154.922629356_dp, 0.000001055_dp, 156.0_dp, 155.922130120_dp, 0.000001054_dp, 157.0_dp, 156.923967424_dp, 0.000001048_dp, 158.0_dp, 157.924111200_dp, 0.000001048_dp, 159.0_dp, 158.926395822_dp, 0.000001051_dp, 160.0_dp, 159.927061202_dp, 0.000001206_dp, 161.0_dp, 160.929676267_dp, 0.000001614_dp, 162.0_dp, 161.930991812_dp, 0.000004254_dp, 163.0_dp, 162.934096640_dp, 0.000000855_dp, 164.0_dp, 163.935916193_dp, 0.000001073_dp, 165.0_dp, 164.939317080_dp, 0.000001400_dp, 166.0_dp, 165.941630413_dp, 0.000001700_dp, 167.0_dp, 166.945490012_dp, 0.000005596_dp, 168.0_dp, 167.948309_dp, 0.000322_dp, 169.0_dp, 168.952882_dp, 0.000429_dp, 170.0_dp, 169.956146_dp, 0.000537_dp, 171.0_dp, 170.961127_dp, 0.000537_dp, 172.0_dp, 171.964605_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ge_naw = naw_type(33, transpose(reshape([58.0_dp, 57.991863_dp, 0.000537_dp, 59.0_dp, 58.982426_dp, 0.000429_dp, 60.0_dp, 59.970445_dp, 0.000322_dp, 61.0_dp, 60.963725_dp, 0.000322_dp, 62.0_dp, 61.954761_dp, 0.000150_dp, 63.0_dp, 62.949628000_dp, 0.000040000_dp, 64.0_dp, 63.941689912_dp, 0.000004000_dp, 65.0_dp, 64.939368136_dp, 0.000002323_dp, 66.0_dp, 65.933862124_dp, 0.000002577_dp, 67.0_dp, 66.932716999_dp, 0.000004636_dp, 68.0_dp, 67.928095305_dp, 0.000002014_dp, 69.0_dp, 68.927964467_dp, 0.000001414_dp, 70.0_dp, 69.924248542_dp, 0.000000880_dp, 71.0_dp, 70.924952120_dp, 0.000000874_dp, 72.0_dp, 71.922075824_dp, 0.000000081_dp, 73.0_dp, 72.923458954_dp, 0.000000061_dp, 74.0_dp, 73.921177760_dp, 0.000000013_dp, 75.0_dp, 74.922858370_dp, 0.000000055_dp, 76.0_dp, 75.921402725_dp, 0.000000019_dp, 77.0_dp, 76.923549843_dp, 0.000000056_dp, 78.0_dp, 77.922852911_dp, 0.000003795_dp, 79.0_dp, 78.925359506_dp, 0.000039893_dp, 80.0_dp, 79.925350773_dp, 0.000002205_dp, 81.0_dp, 80.928832941_dp, 0.000002205_dp, 82.0_dp, 81.929774031_dp, 0.000002405_dp, 83.0_dp, 82.934539100_dp, 0.000002604_dp, 84.0_dp, 83.937575090_dp, 0.000003403_dp, 85.0_dp, 84.942969658_dp, 0.000004003_dp, 86.0_dp, 85.946967000_dp, 0.000470000_dp, 87.0_dp, 86.953204_dp, 0.000322_dp, 88.0_dp, 87.957574_dp, 0.000429_dp, 89.0_dp, 88.964530_dp, 0.000429_dp, 90.0_dp, 89.969436_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: H_naw = naw_type(7, transpose(reshape([1.0_dp, 1.007825031898_dp, 0.000000000014_dp, 2.0_dp, 2.014101777844_dp, 0.000000000015_dp, 3.0_dp, 3.01604928132_dp, 0.00000000008_dp, 4.0_dp, 4.026431867_dp, 0.000107354_dp, 5.0_dp, 5.035311492_dp, 0.000096020_dp, 6.0_dp, 6.044955437_dp, 0.000272816_dp, 7.0_dp, 7.052749_dp, 0.001078_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: He_naw = naw_type(8, transpose(reshape([3.0_dp, 3.01602932197_dp, 0.00000000006_dp, 4.0_dp, 4.00260325413_dp, 0.00000000016_dp, 5.0_dp, 5.012057224_dp, 0.000021470_dp, 6.0_dp, 6.018885889_dp, 0.000000057_dp, 7.0_dp, 7.027990652_dp, 0.000008115_dp, 8.0_dp, 8.033934388_dp, 0.000000095_dp, 9.0_dp, 9.043946414_dp, 0.000050259_dp, 10.0_dp, 10.052815306_dp, 0.000099676_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Hf_naw = naw_type(38, transpose(reshape([153.0_dp, 152.970692_dp, 0.000322_dp, 154.0_dp, 153.964863_dp, 0.000322_dp, 155.0_dp, 154.963167_dp, 0.000322_dp, 156.0_dp, 155.959399083_dp, 0.000160752_dp, 157.0_dp, 156.958288_dp, 0.000215_dp, 158.0_dp, 157.954801217_dp, 0.000018780_dp, 159.0_dp, 158.953995837_dp, 0.000018049_dp, 160.0_dp, 159.950682728_dp, 0.000010241_dp, 161.0_dp, 160.950277927_dp, 0.000025174_dp, 162.0_dp, 161.947215526_dp, 0.000009610_dp, 163.0_dp, 162.947107211_dp, 0.000027582_dp, 164.0_dp, 163.944370709_dp, 0.000016975_dp, 165.0_dp, 164.944567000_dp, 0.000030000_dp, 166.0_dp, 165.942180000_dp, 0.000030000_dp, 167.0_dp, 166.942600000_dp, 0.000030000_dp, 168.0_dp, 167.940568000_dp, 0.000030000_dp, 169.0_dp, 168.941259000_dp, 0.000030000_dp, 170.0_dp, 169.939609000_dp, 0.000030000_dp, 171.0_dp, 170.940492000_dp, 0.000031000_dp, 172.0_dp, 171.939449716_dp, 0.000026224_dp, 173.0_dp, 172.940513000_dp, 0.000030000_dp, 174.0_dp, 173.940048377_dp, 0.000002425_dp, 175.0_dp, 174.941511424_dp, 0.000002450_dp, 176.0_dp, 175.941409797_dp, 0.000001591_dp, 177.0_dp, 176.943230187_dp, 0.000001514_dp, 178.0_dp, 177.943708322_dp, 0.000001519_dp, 179.0_dp, 178.945825705_dp, 0.000001520_dp, 180.0_dp, 179.946559537_dp, 0.000001525_dp, 181.0_dp, 180.949110834_dp, 0.000001527_dp, 182.0_dp, 181.950563684_dp, 0.000006619_dp, 183.0_dp, 182.953533203_dp, 0.000032251_dp, 184.0_dp, 183.955448507_dp, 0.000042625_dp, 185.0_dp, 184.958862000_dp, 0.000069000_dp, 186.0_dp, 185.960897000_dp, 0.000055000_dp, 187.0_dp, 186.964573_dp, 0.000215_dp, 188.0_dp, 187.966903_dp, 0.000322_dp, 189.0_dp, 188.970853_dp, 0.000322_dp, 190.0_dp, 189.973376_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Hg_naw = naw_type(47, transpose(reshape([170.0_dp, 170.005814_dp, 0.000324_dp, 171.0_dp, 171.003585_dp, 0.000329_dp, 172.0_dp, 171.998860581_dp, 0.000161098_dp, 173.0_dp, 172.997143_dp, 0.000215_dp, 174.0_dp, 173.992870575_dp, 0.000020623_dp, 175.0_dp, 174.991444451_dp, 0.000087047_dp, 176.0_dp, 175.987348670_dp, 0.000011936_dp, 177.0_dp, 176.986284590_dp, 0.000090952_dp, 178.0_dp, 177.982484756_dp, 0.000011548_dp, 179.0_dp, 178.981821759_dp, 0.000030188_dp, 180.0_dp, 179.978260180_dp, 0.000013574_dp, 181.0_dp, 180.977819368_dp, 0.000016513_dp, 182.0_dp, 181.974689173_dp, 0.000010510_dp, 183.0_dp, 182.974444652_dp, 0.000007604_dp, 184.0_dp, 183.971717709_dp, 0.000010235_dp, 185.0_dp, 184.971890696_dp, 0.000014641_dp, 186.0_dp, 185.969362061_dp, 0.000012507_dp, 187.0_dp, 186.969813540_dp, 0.000013810_dp, 188.0_dp, 187.967580738_dp, 0.000007285_dp, 189.0_dp, 188.968194776_dp, 0.000033873_dp, 190.0_dp, 189.966322250_dp, 0.000017076_dp, 191.0_dp, 190.967158301_dp, 0.000023918_dp, 192.0_dp, 191.965634263_dp, 0.000016679_dp, 193.0_dp, 192.966653395_dp, 0.000016645_dp, 194.0_dp, 193.965449108_dp, 0.000003100_dp, 195.0_dp, 194.966705809_dp, 0.000024843_dp, 196.0_dp, 195.965833445_dp, 0.000003163_dp, 197.0_dp, 196.967213715_dp, 0.000003442_dp, 198.0_dp, 197.966769177_dp, 0.000000491_dp, 199.0_dp, 198.968280994_dp, 0.000000564_dp, 200.0_dp, 199.968326941_dp, 0.000000568_dp, 201.0_dp, 200.970303054_dp, 0.000000763_dp, 202.0_dp, 201.970643604_dp, 0.000000757_dp, 203.0_dp, 202.972872396_dp, 0.000001750_dp, 204.0_dp, 203.973494037_dp, 0.000000534_dp, 205.0_dp, 204.976073151_dp, 0.000003923_dp, 206.0_dp, 205.977513837_dp, 0.000021943_dp, 207.0_dp, 206.982300000_dp, 0.000032000_dp, 208.0_dp, 207.985759000_dp, 0.000033000_dp, 209.0_dp, 208.990757_dp, 0.000161_dp, 210.0_dp, 209.994310_dp, 0.000215_dp, 211.0_dp, 210.999581_dp, 0.000215_dp, 212.0_dp, 212.003242_dp, 0.000322_dp, 213.0_dp, 213.008803_dp, 0.000322_dp, 214.0_dp, 214.012636_dp, 0.000429_dp, 215.0_dp, 215.018368_dp, 0.000429_dp, 216.0_dp, 216.022459_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ho_naw = naw_type(39, transpose(reshape([140.0_dp, 139.968526_dp, 0.000537_dp, 141.0_dp, 140.963108_dp, 0.000430_dp, 142.0_dp, 141.960010_dp, 0.000430_dp, 143.0_dp, 142.954860_dp, 0.000320_dp, 144.0_dp, 143.952109712_dp, 0.000009100_dp, 145.0_dp, 144.947267392_dp, 0.000008000_dp, 146.0_dp, 145.944993503_dp, 0.000007071_dp, 147.0_dp, 146.940142293_dp, 0.000005368_dp, 148.0_dp, 147.937743925_dp, 0.000090000_dp, 149.0_dp, 148.933820457_dp, 0.000012866_dp, 150.0_dp, 149.933498353_dp, 0.000015209_dp, 151.0_dp, 150.931698176_dp, 0.000008908_dp, 152.0_dp, 151.931717618_dp, 0.000013449_dp, 153.0_dp, 152.930206671_dp, 0.000005438_dp, 154.0_dp, 153.930606776_dp, 0.000008820_dp, 155.0_dp, 154.929103363_dp, 0.000018754_dp, 156.0_dp, 155.929641634_dp, 0.000041249_dp, 157.0_dp, 156.928251974_dp, 0.000025194_dp, 158.0_dp, 157.928944910_dp, 0.000029099_dp, 159.0_dp, 158.927718683_dp, 0.000003268_dp, 160.0_dp, 159.928735538_dp, 0.000016120_dp, 161.0_dp, 160.927861815_dp, 0.000002309_dp, 162.0_dp, 161.929102543_dp, 0.000003330_dp, 163.0_dp, 162.928740260_dp, 0.000000744_dp, 164.0_dp, 163.930240548_dp, 0.000001492_dp, 165.0_dp, 164.930329116_dp, 0.000000844_dp, 166.0_dp, 165.932291209_dp, 0.000000844_dp, 167.0_dp, 166.933140254_dp, 0.000005570_dp, 168.0_dp, 167.935523766_dp, 0.000032207_dp, 169.0_dp, 168.936879890_dp, 0.000021522_dp, 170.0_dp, 169.939626548_dp, 0.000053697_dp, 171.0_dp, 170.941472713_dp, 0.000644128_dp, 172.0_dp, 171.944730_dp, 0.000210_dp, 173.0_dp, 172.947020_dp, 0.000320_dp, 174.0_dp, 173.950757_dp, 0.000322_dp, 175.0_dp, 174.953516_dp, 0.000429_dp, 176.0_dp, 175.957713_dp, 0.000537_dp, 177.0_dp, 176.961052_dp, 0.000537_dp, 178.0_dp, 177.965507_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Hs_naw = naw_type(18, transpose(reshape([263.0_dp, 263.128479_dp, 0.000212_dp, 264.0_dp, 264.128356330_dp, 0.000031005_dp, 265.0_dp, 265.129791744_dp, 0.000025719_dp, 266.0_dp, 266.130048783_dp, 0.000029099_dp, 267.0_dp, 267.131678_dp, 0.000102_dp, 268.0_dp, 268.132011_dp, 0.000322_dp, 269.0_dp, 269.133649_dp, 0.000141_dp, 270.0_dp, 270.134313_dp, 0.000266_dp, 271.0_dp, 271.137082_dp, 0.000296_dp, 272.0_dp, 272.138492_dp, 0.000547_dp, 273.0_dp, 273.141458_dp, 0.000401_dp, 274.0_dp, 274.143217_dp, 0.000504_dp, 275.0_dp, 275.146530_dp, 0.000637_dp, 276.0_dp, 276.148348_dp, 0.000773_dp, 277.0_dp, 277.151772_dp, 0.000480_dp, 278.0_dp, 278.153753_dp, 0.000322_dp, 279.0_dp, 279.157274_dp, 0.000644_dp, 280.0_dp, 280.159335_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: I_naw = naw_type(42, transpose(reshape([106.0_dp, 105.953516_dp, 0.000429_dp, 107.0_dp, 106.946935_dp, 0.000322_dp, 108.0_dp, 107.943348_dp, 0.000109_dp, 109.0_dp, 108.938086022_dp, 0.000007223_dp, 110.0_dp, 109.935085102_dp, 0.000066494_dp, 111.0_dp, 110.930269236_dp, 0.000005103_dp, 112.0_dp, 111.928004548_dp, 0.000011000_dp, 113.0_dp, 112.923650062_dp, 0.000008600_dp, 114.0_dp, 113.922018900_dp, 0.000021500_dp, 115.0_dp, 114.918048000_dp, 0.000031000_dp, 116.0_dp, 115.916885513_dp, 0.000080555_dp, 117.0_dp, 116.913645649_dp, 0.000027437_dp, 118.0_dp, 117.913074000_dp, 0.000021213_dp, 119.0_dp, 118.910060910_dp, 0.000023302_dp, 120.0_dp, 119.910093729_dp, 0.000016212_dp, 121.0_dp, 120.907411492_dp, 0.000005070_dp, 122.0_dp, 121.907590094_dp, 0.000005561_dp, 123.0_dp, 122.905589753_dp, 0.000003956_dp, 124.0_dp, 123.906210297_dp, 0.000002467_dp, 125.0_dp, 124.904630610_dp, 0.000001452_dp, 126.0_dp, 125.905624205_dp, 0.000004055_dp, 127.0_dp, 126.904472592_dp, 0.000003887_dp, 128.0_dp, 127.905809355_dp, 0.000003887_dp, 129.0_dp, 128.904983643_dp, 0.000003385_dp, 130.0_dp, 129.906670168_dp, 0.000003385_dp, 131.0_dp, 130.906126375_dp, 0.000000649_dp, 132.0_dp, 131.907993511_dp, 0.000004364_dp, 133.0_dp, 132.907828400_dp, 0.000006335_dp, 134.0_dp, 133.909775660_dp, 0.000005213_dp, 135.0_dp, 134.910059355_dp, 0.000002211_dp, 136.0_dp, 135.914604693_dp, 0.000015231_dp, 137.0_dp, 136.918028178_dp, 0.000009000_dp, 138.0_dp, 137.922726392_dp, 0.000006400_dp, 139.0_dp, 138.926493400_dp, 0.000004300_dp, 140.0_dp, 139.931715914_dp, 0.000013000_dp, 141.0_dp, 140.935666081_dp, 0.000017000_dp, 142.0_dp, 141.941166595_dp, 0.000005300_dp, 143.0_dp, 142.945475_dp, 0.000215_dp, 144.0_dp, 143.951336_dp, 0.000429_dp, 145.0_dp, 144.955845_dp, 0.000537_dp, 146.0_dp, 145.961846_dp, 0.000322_dp, 147.0_dp, 146.966505_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: In_naw = naw_type(42, transpose(reshape([96.0_dp, 95.959109_dp, 0.000537_dp, 97.0_dp, 96.949125_dp, 0.000430_dp, 98.0_dp, 97.942129_dp, 0.000327_dp, 99.0_dp, 98.934110_dp, 0.000320_dp, 100.0_dp, 99.931101929_dp, 0.000002400_dp, 101.0_dp, 100.926414025_dp, 0.000012519_dp, 102.0_dp, 101.924105911_dp, 0.000004909_dp, 103.0_dp, 102.919878830_dp, 0.000009640_dp, 104.0_dp, 103.918214538_dp, 0.000006200_dp, 105.0_dp, 104.914502322_dp, 0.000011000_dp, 106.0_dp, 105.913463596_dp, 0.000013125_dp, 107.0_dp, 106.910287497_dp, 0.000010363_dp, 108.0_dp, 107.909693654_dp, 0.000009276_dp, 109.0_dp, 108.907149679_dp, 0.000004261_dp, 110.0_dp, 109.907170674_dp, 0.000012402_dp, 111.0_dp, 110.905107236_dp, 0.000003675_dp, 112.0_dp, 111.905538718_dp, 0.000004563_dp, 113.0_dp, 112.904060451_dp, 0.000000202_dp, 114.0_dp, 113.904916405_dp, 0.000000323_dp, 115.0_dp, 114.903878772_dp, 0.000000012_dp, 116.0_dp, 115.905259992_dp, 0.000000236_dp, 117.0_dp, 116.904515729_dp, 0.000005239_dp, 118.0_dp, 117.906356705_dp, 0.000008322_dp, 119.0_dp, 118.905851622_dp, 0.000007847_dp, 120.0_dp, 119.907967489_dp, 0.000042953_dp, 121.0_dp, 120.907852778_dp, 0.000029435_dp, 122.0_dp, 121.910282458_dp, 0.000053741_dp, 123.0_dp, 122.910435252_dp, 0.000021290_dp, 124.0_dp, 123.913184873_dp, 0.000032808_dp, 125.0_dp, 124.913673841_dp, 0.000001900_dp, 126.0_dp, 125.916468202_dp, 0.000004500_dp, 127.0_dp, 126.917466040_dp, 0.000010736_dp, 128.0_dp, 127.920353637_dp, 0.000001419_dp, 129.0_dp, 128.921808534_dp, 0.000002116_dp, 130.0_dp, 129.924952257_dp, 0.000001921_dp, 131.0_dp, 130.926972839_dp, 0.000002367_dp, 132.0_dp, 131.932998444_dp, 0.000064447_dp, 133.0_dp, 132.938067_dp, 0.000215_dp, 134.0_dp, 133.944208_dp, 0.000215_dp, 135.0_dp, 134.949425_dp, 0.000322_dp, 136.0_dp, 135.956017_dp, 0.000322_dp, 137.0_dp, 136.961535_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ir_naw = naw_type(43, transpose(reshape([163.0_dp, 162.994299_dp, 0.000429_dp, 164.0_dp, 163.991966_dp, 0.000339_dp, 165.0_dp, 164.987552_dp, 0.000170_dp, 166.0_dp, 165.985716_dp, 0.000215_dp, 167.0_dp, 166.981671973_dp, 0.000019694_dp, 168.0_dp, 167.979960978_dp, 0.000059277_dp, 169.0_dp, 168.976281743_dp, 0.000025020_dp, 170.0_dp, 169.975113_dp, 0.000109_dp, 171.0_dp, 170.971645520_dp, 0.000041295_dp, 172.0_dp, 171.970607035_dp, 0.000034785_dp, 173.0_dp, 172.967505477_dp, 0.000011316_dp, 174.0_dp, 173.966949939_dp, 0.000012046_dp, 175.0_dp, 174.964149519_dp, 0.000013295_dp, 176.0_dp, 175.963626261_dp, 0.000008679_dp, 177.0_dp, 176.961301500_dp, 0.000021213_dp, 178.0_dp, 177.961079395_dp, 0.000020204_dp, 179.0_dp, 178.959117594_dp, 0.000010489_dp, 180.0_dp, 179.959229446_dp, 0.000023302_dp, 181.0_dp, 180.957634691_dp, 0.000005631_dp, 182.0_dp, 181.958076296_dp, 0.000022509_dp, 183.0_dp, 182.956841231_dp, 0.000026486_dp, 184.0_dp, 183.957476000_dp, 0.000030000_dp, 185.0_dp, 184.956698000_dp, 0.000030000_dp, 186.0_dp, 185.957946754_dp, 0.000017740_dp, 187.0_dp, 186.957542000_dp, 0.000030000_dp, 188.0_dp, 187.958834999_dp, 0.000010116_dp, 189.0_dp, 188.958722602_dp, 0.000013500_dp, 190.0_dp, 189.960543374_dp, 0.000001470_dp, 191.0_dp, 190.960591455_dp, 0.000001406_dp, 192.0_dp, 191.962602414_dp, 0.000001410_dp, 193.0_dp, 192.962923753_dp, 0.000001425_dp, 194.0_dp, 193.965075703_dp, 0.000001429_dp, 195.0_dp, 194.965976898_dp, 0.000001431_dp, 196.0_dp, 195.968399669_dp, 0.000041239_dp, 197.0_dp, 196.969657217_dp, 0.000021588_dp, 198.0_dp, 197.972399_dp, 0.000215_dp, 199.0_dp, 198.973807097_dp, 0.000044073_dp, 200.0_dp, 199.976844_dp, 0.000210_dp, 201.0_dp, 200.978701_dp, 0.000215_dp, 202.0_dp, 201.982136_dp, 0.000322_dp, 203.0_dp, 202.984573_dp, 0.000429_dp, 204.0_dp, 203.989726_dp, 0.000429_dp, 205.0_dp, 204.993988_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: K_naw = naw_type(29, transpose(reshape([31.0_dp, 31.036780_dp, 0.000322_dp, 32.0_dp, 32.023607_dp, 0.000429_dp, 33.0_dp, 33.008095_dp, 0.000215_dp, 34.0_dp, 33.998690_dp, 0.000210_dp, 35.0_dp, 34.988005406_dp, 0.000000550_dp, 36.0_dp, 35.981301887_dp, 0.000000349_dp, 37.0_dp, 36.973375890_dp, 0.000000100_dp, 38.0_dp, 37.969081114_dp, 0.000000209_dp, 39.0_dp, 38.96370648482_dp, 0.00000000489_dp, 40.0_dp, 39.963998165_dp, 0.000000060_dp, 41.0_dp, 40.96182525611_dp, 0.00000000403_dp, 42.0_dp, 41.962402305_dp, 0.000000113_dp, 43.0_dp, 42.960734701_dp, 0.000000440_dp, 44.0_dp, 43.961586984_dp, 0.000000450_dp, 45.0_dp, 44.960691491_dp, 0.000000560_dp, 46.0_dp, 45.961981584_dp, 0.000000780_dp, 47.0_dp, 46.961661612_dp, 0.000001500_dp, 48.0_dp, 47.965341184_dp, 0.000000830_dp, 49.0_dp, 48.968210753_dp, 0.000000860_dp, 50.0_dp, 49.972380015_dp, 0.000008300_dp, 51.0_dp, 50.975828664_dp, 0.000014000_dp, 52.0_dp, 51.981602000_dp, 0.000036000_dp, 53.0_dp, 52.986800000_dp, 0.000120000_dp, 54.0_dp, 53.994471_dp, 0.000429_dp, 55.0_dp, 55.000505_dp, 0.000537_dp, 56.0_dp, 56.008567_dp, 0.000644_dp, 57.0_dp, 57.015169_dp, 0.000644_dp, 58.0_dp, 58.023543_dp, 0.000751_dp, 59.0_dp, 59.030864_dp, 0.000859_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Kr_naw = naw_type(35, transpose(reshape([67.0_dp, 66.983305_dp, 0.000455_dp, 68.0_dp, 67.972489_dp, 0.000537_dp, 69.0_dp, 68.965496_dp, 0.000322_dp, 70.0_dp, 69.955877_dp, 0.000215_dp, 71.0_dp, 70.950265695_dp, 0.000138238_dp, 72.0_dp, 71.942092406_dp, 0.000008600_dp, 73.0_dp, 72.939289193_dp, 0.000007061_dp, 74.0_dp, 73.933084016_dp, 0.000002161_dp, 75.0_dp, 74.930945744_dp, 0.000008700_dp, 76.0_dp, 75.925910743_dp, 0.000004308_dp, 77.0_dp, 76.924669999_dp, 0.000002100_dp, 78.0_dp, 77.920366341_dp, 0.000000329_dp, 79.0_dp, 78.920082919_dp, 0.000003736_dp, 80.0_dp, 79.916377940_dp, 0.000000745_dp, 81.0_dp, 80.916589703_dp, 0.000001152_dp, 82.0_dp, 81.91348115368_dp, 0.00000000591_dp, 83.0_dp, 82.914126516_dp, 0.000000009_dp, 84.0_dp, 83.91149772708_dp, 0.00000000410_dp, 85.0_dp, 84.912527260_dp, 0.000002147_dp, 86.0_dp, 85.91061062468_dp, 0.00000000399_dp, 87.0_dp, 86.913354759_dp, 0.000000264_dp, 88.0_dp, 87.914447879_dp, 0.000002800_dp, 89.0_dp, 88.917835449_dp, 0.000002300_dp, 90.0_dp, 89.919527929_dp, 0.000002000_dp, 91.0_dp, 90.923806309_dp, 0.000002400_dp, 92.0_dp, 91.926173092_dp, 0.000002900_dp, 93.0_dp, 92.931147172_dp, 0.000002700_dp, 94.0_dp, 93.934140452_dp, 0.000013000_dp, 95.0_dp, 94.939710922_dp, 0.000020000_dp, 96.0_dp, 95.943014473_dp, 0.000020695_dp, 97.0_dp, 96.949088782_dp, 0.000140000_dp, 98.0_dp, 97.952635_dp, 0.000322_dp, 99.0_dp, 98.958776_dp, 0.000429_dp, 100.0_dp, 99.962995_dp, 0.000429_dp, 101.0_dp, 100.969318_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: La_naw = naw_type(42, transpose(reshape([116.0_dp, 115.957005_dp, 0.000345_dp, 117.0_dp, 116.950326_dp, 0.000215_dp, 118.0_dp, 117.946731_dp, 0.000322_dp, 119.0_dp, 118.940934_dp, 0.000322_dp, 120.0_dp, 119.938196_dp, 0.000322_dp, 121.0_dp, 120.933236_dp, 0.000322_dp, 122.0_dp, 121.930710_dp, 0.000320_dp, 123.0_dp, 122.926300_dp, 0.000210_dp, 124.0_dp, 123.924574275_dp, 0.000060836_dp, 125.0_dp, 124.920815931_dp, 0.000027909_dp, 126.0_dp, 125.919512667_dp, 0.000097163_dp, 127.0_dp, 126.916375083_dp, 0.000027912_dp, 128.0_dp, 127.915592123_dp, 0.000058452_dp, 129.0_dp, 128.912695592_dp, 0.000022913_dp, 130.0_dp, 129.912369413_dp, 0.000027854_dp, 131.0_dp, 130.910070000_dp, 0.000030000_dp, 132.0_dp, 131.910119047_dp, 0.000039032_dp, 133.0_dp, 132.908218000_dp, 0.000030000_dp, 134.0_dp, 133.908514011_dp, 0.000021395_dp, 135.0_dp, 134.906984427_dp, 0.000010126_dp, 136.0_dp, 135.907634962_dp, 0.000057081_dp, 137.0_dp, 136.906450438_dp, 0.000001760_dp, 138.0_dp, 137.907124041_dp, 0.000000446_dp, 139.0_dp, 138.906362927_dp, 0.000000651_dp, 140.0_dp, 139.909487285_dp, 0.000000651_dp, 141.0_dp, 140.910971155_dp, 0.000004430_dp, 142.0_dp, 141.914090760_dp, 0.000006748_dp, 143.0_dp, 142.916079482_dp, 0.000007868_dp, 144.0_dp, 143.919645589_dp, 0.000013888_dp, 145.0_dp, 144.921808065_dp, 0.000013170_dp, 146.0_dp, 145.925688017_dp, 0.000001797_dp, 147.0_dp, 146.928417800_dp, 0.000011500_dp, 148.0_dp, 147.932679400_dp, 0.000020900_dp, 149.0_dp, 148.935351259_dp, 0.000214990_dp, 150.0_dp, 149.939547500_dp, 0.000002700_dp, 151.0_dp, 150.942769000_dp, 0.000467500_dp, 152.0_dp, 151.947085_dp, 0.000322_dp, 153.0_dp, 152.950553_dp, 0.000322_dp, 154.0_dp, 153.955416_dp, 0.000322_dp, 155.0_dp, 154.959280_dp, 0.000429_dp, 156.0_dp, 155.964519_dp, 0.000429_dp, 157.0_dp, 156.968792_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Li_naw = naw_type(11, transpose(reshape([3.0_dp, 3.030775_dp, 0.002147_dp, 4.0_dp, 4.027185561_dp, 0.000227733_dp, 5.0_dp, 5.012537800_dp, 0.000053677_dp, 6.0_dp, 6.01512288742_dp, 0.00000000155_dp, 7.0_dp, 7.01600343426_dp, 0.00000000450_dp, 8.0_dp, 8.022486244_dp, 0.000000050_dp, 9.0_dp, 9.026790191_dp, 0.000000200_dp, 10.0_dp, 10.035483453_dp, 0.000013656_dp, 11.0_dp, 11.043723581_dp, 0.000000660_dp, 12.0_dp, 12.052613942_dp, 0.000032213_dp, 13.0_dp, 13.061171503_dp, 0.000075150_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Lr_naw = naw_type(16, transpose(reshape([251.0_dp, 251.094289_dp, 0.000215_dp, 252.0_dp, 252.095048_dp, 0.000198_dp, 253.0_dp, 253.095033850_dp, 0.000176634_dp, 254.0_dp, 254.096238813_dp, 0.000098026_dp, 255.0_dp, 255.096562399_dp, 0.000019000_dp, 256.0_dp, 256.098494024_dp, 0.000089000_dp, 257.0_dp, 257.099480_dp, 0.000047_dp, 258.0_dp, 258.101753_dp, 0.000109_dp, 259.0_dp, 259.102900_dp, 0.000076_dp, 260.0_dp, 260.105504_dp, 0.000134_dp, 261.0_dp, 261.106879_dp, 0.000215_dp, 262.0_dp, 262.109615_dp, 0.000215_dp, 263.0_dp, 263.111293_dp, 0.000240_dp, 264.0_dp, 264.114198_dp, 0.000468_dp, 265.0_dp, 265.116193_dp, 0.000587_dp, 266.0_dp, 266.119874_dp, 0.000579_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Lu_naw = naw_type(39, transpose(reshape([150.0_dp, 149.973407_dp, 0.000322_dp, 151.0_dp, 150.967471_dp, 0.000322_dp, 152.0_dp, 151.964120_dp, 0.000210_dp, 153.0_dp, 152.958802248_dp, 0.000161050_dp, 154.0_dp, 153.957416_dp, 0.000216_dp, 155.0_dp, 154.954326005_dp, 0.000020660_dp, 156.0_dp, 155.953086606_dp, 0.000058102_dp, 157.0_dp, 156.950144807_dp, 0.000012961_dp, 158.0_dp, 157.949315620_dp, 0.000016236_dp, 159.0_dp, 158.946635615_dp, 0.000040433_dp, 160.0_dp, 159.946033000_dp, 0.000061000_dp, 161.0_dp, 160.943572000_dp, 0.000030000_dp, 162.0_dp, 161.943282776_dp, 0.000080554_dp, 163.0_dp, 162.941179000_dp, 0.000030000_dp, 164.0_dp, 163.941339000_dp, 0.000030000_dp, 165.0_dp, 164.939406758_dp, 0.000028490_dp, 166.0_dp, 165.939859000_dp, 0.000032000_dp, 167.0_dp, 166.938243000_dp, 0.000040000_dp, 168.0_dp, 167.938729798_dp, 0.000040766_dp, 169.0_dp, 168.937645845_dp, 0.000003226_dp, 170.0_dp, 169.938479230_dp, 0.000018081_dp, 171.0_dp, 170.937918591_dp, 0.000001999_dp, 172.0_dp, 171.939091320_dp, 0.000002507_dp, 173.0_dp, 172.938935722_dp, 0.000001682_dp, 174.0_dp, 173.940342840_dp, 0.000001682_dp, 175.0_dp, 174.940777211_dp, 0.000001295_dp, 176.0_dp, 175.942691711_dp, 0.000001301_dp, 177.0_dp, 176.943763570_dp, 0.000001310_dp, 178.0_dp, 177.945960065_dp, 0.000002416_dp, 179.0_dp, 178.947332985_dp, 0.000005528_dp, 180.0_dp, 179.949890744_dp, 0.000075926_dp, 181.0_dp, 180.951908000_dp, 0.000135000_dp, 182.0_dp, 181.955158_dp, 0.000215_dp, 183.0_dp, 182.957363000_dp, 0.000086000_dp, 184.0_dp, 183.961030_dp, 0.000215_dp, 185.0_dp, 184.963542_dp, 0.000322_dp, 186.0_dp, 185.967450_dp, 0.000429_dp, 187.0_dp, 186.970188_dp, 0.000429_dp, 188.0_dp, 187.974428_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Lv_naw = naw_type(5, transpose(reshape([289.0_dp, 289.198023_dp, 0.000540_dp, 290.0_dp, 290.198635_dp, 0.000593_dp, 291.0_dp, 291.201014_dp, 0.000669_dp, 292.0_dp, 292.201969_dp, 0.000819_dp, 293.0_dp, 293.204583_dp, 0.000553_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Mc_naw = naw_type(6, transpose(reshape([287.0_dp, 287.190820_dp, 0.000475_dp, 288.0_dp, 288.192879_dp, 0.000575_dp, 289.0_dp, 289.193971_dp, 0.000834_dp, 290.0_dp, 290.196235_dp, 0.000635_dp, 291.0_dp, 291.197725_dp, 0.000789_dp, 292.0_dp, 292.200323_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Md_naw = naw_type(19, transpose(reshape([244.0_dp, 244.081157_dp, 0.000402_dp, 245.0_dp, 245.080864_dp, 0.000279_dp, 246.0_dp, 246.081713_dp, 0.000279_dp, 247.0_dp, 247.081520_dp, 0.000223_dp, 248.0_dp, 248.082607_dp, 0.000198_dp, 249.0_dp, 249.082857155_dp, 0.000176516_dp, 250.0_dp, 250.084164934_dp, 0.000097606_dp, 251.0_dp, 251.084774287_dp, 0.000020310_dp, 252.0_dp, 252.086385000_dp, 0.000098000_dp, 253.0_dp, 253.087143_dp, 0.000034_dp, 254.0_dp, 254.089590_dp, 0.000107_dp, 255.0_dp, 255.091081702_dp, 0.000005976_dp, 256.0_dp, 256.093888_dp, 0.000133_dp, 257.0_dp, 257.095537343_dp, 0.000001683_dp, 258.0_dp, 258.098433634_dp, 0.000003729_dp, 259.0_dp, 259.100445_dp, 0.000108_dp, 260.0_dp, 260.103650_dp, 0.000339_dp, 261.0_dp, 261.105828_dp, 0.000546_dp, 262.0_dp, 262.109144_dp, 0.000481_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Mg_naw = naw_type(23, transpose(reshape([19.0_dp, 19.034179920_dp, 0.000064413_dp, 20.0_dp, 20.018763075_dp, 0.000002000_dp, 21.0_dp, 21.011705764_dp, 0.000000810_dp, 22.0_dp, 21.999570597_dp, 0.000000170_dp, 23.0_dp, 22.994123768_dp, 0.000000034_dp, 24.0_dp, 23.985041689_dp, 0.000000013_dp, 25.0_dp, 24.985836966_dp, 0.000000050_dp, 26.0_dp, 25.982592972_dp, 0.000000031_dp, 27.0_dp, 26.984340647_dp, 0.000000050_dp, 28.0_dp, 27.983875426_dp, 0.000000280_dp, 29.0_dp, 28.988607163_dp, 0.000000369_dp, 30.0_dp, 29.990465454_dp, 0.000001390_dp, 31.0_dp, 30.996648232_dp, 0.000003300_dp, 32.0_dp, 31.999110138_dp, 0.000003500_dp, 33.0_dp, 33.005327862_dp, 0.000002859_dp, 34.0_dp, 34.008935455_dp, 0.000007400_dp, 35.0_dp, 35.016790000_dp, 0.000289500_dp, 36.0_dp, 36.021879000_dp, 0.000741000_dp, 37.0_dp, 37.030286265_dp, 0.000750350_dp, 38.0_dp, 38.036580_dp, 0.000540_dp, 39.0_dp, 39.045921_dp, 0.000551_dp, 40.0_dp, 40.053194_dp, 0.000537_dp, 41.0_dp, 41.062373_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Mn_naw = naw_type(31, transpose(reshape([43.0_dp, 43.018647_dp, 0.000429_dp, 44.0_dp, 44.008009_dp, 0.000322_dp, 45.0_dp, 44.994654_dp, 0.000322_dp, 46.0_dp, 45.986669000_dp, 0.000093000_dp, 47.0_dp, 46.975774000_dp, 0.000034000_dp, 48.0_dp, 47.968548760_dp, 0.000007191_dp, 49.0_dp, 48.959613350_dp, 0.000002377_dp, 50.0_dp, 49.954238157_dp, 0.000000123_dp, 51.0_dp, 50.948208770_dp, 0.000000326_dp, 52.0_dp, 51.945559090_dp, 0.000000138_dp, 53.0_dp, 52.941287497_dp, 0.000000371_dp, 54.0_dp, 53.940355772_dp, 0.000001080_dp, 55.0_dp, 54.938043040_dp, 0.000000279_dp, 56.0_dp, 55.938902816_dp, 0.000000314_dp, 57.0_dp, 56.938285944_dp, 0.000001615_dp, 58.0_dp, 57.940066643_dp, 0.000002900_dp, 59.0_dp, 58.940391111_dp, 0.000002500_dp, 60.0_dp, 59.943136574_dp, 0.000002500_dp, 61.0_dp, 60.944452541_dp, 0.000002500_dp, 62.0_dp, 61.947907384_dp, 0.000007023_dp, 63.0_dp, 62.949664672_dp, 0.000004000_dp, 64.0_dp, 63.953849369_dp, 0.000003800_dp, 65.0_dp, 64.956019749_dp, 0.000004000_dp, 66.0_dp, 65.960546833_dp, 0.000012000_dp, 67.0_dp, 66.963950_dp, 0.000215_dp, 68.0_dp, 67.968953_dp, 0.000322_dp, 69.0_dp, 68.972775_dp, 0.000429_dp, 70.0_dp, 69.978046_dp, 0.000537_dp, 71.0_dp, 70.982158_dp, 0.000537_dp, 72.0_dp, 71.988009_dp, 0.000644_dp, 73.0_dp, 72.992807_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Mo_naw = naw_type(39, transpose(reshape([81.0_dp, 80.966226_dp, 0.000537_dp, 82.0_dp, 81.956661_dp, 0.000429_dp, 83.0_dp, 82.950252_dp, 0.000430_dp, 84.0_dp, 83.941846_dp, 0.000320_dp, 85.0_dp, 84.938260736_dp, 0.000017000_dp, 86.0_dp, 85.931174092_dp, 0.000003147_dp, 87.0_dp, 86.928196198_dp, 0.000003067_dp, 88.0_dp, 87.921967779_dp, 0.000004100_dp, 89.0_dp, 88.919468149_dp, 0.000004200_dp, 90.0_dp, 89.913931270_dp, 0.000003717_dp, 91.0_dp, 90.911745190_dp, 0.000006696_dp, 92.0_dp, 91.906807153_dp, 0.000000168_dp, 93.0_dp, 92.906808772_dp, 0.000000193_dp, 94.0_dp, 93.905083586_dp, 0.000000151_dp, 95.0_dp, 94.905837436_dp, 0.000000132_dp, 96.0_dp, 95.904674770_dp, 0.000000128_dp, 97.0_dp, 96.906016903_dp, 0.000000176_dp, 98.0_dp, 97.905403609_dp, 0.000000186_dp, 99.0_dp, 98.907707299_dp, 0.000000245_dp, 100.0_dp, 99.907467982_dp, 0.000000322_dp, 101.0_dp, 100.910337648_dp, 0.000000331_dp, 102.0_dp, 101.910293725_dp, 0.000008916_dp, 103.0_dp, 102.913091954_dp, 0.000009900_dp, 104.0_dp, 103.913747443_dp, 0.000009566_dp, 105.0_dp, 104.916981989_dp, 0.000009721_dp, 106.0_dp, 105.918273231_dp, 0.000009801_dp, 107.0_dp, 106.922119770_dp, 0.000009901_dp, 108.0_dp, 107.924047508_dp, 0.000009901_dp, 109.0_dp, 108.928438318_dp, 0.000012000_dp, 110.0_dp, 109.930717956_dp, 0.000026000_dp, 111.0_dp, 110.935651966_dp, 0.000013503_dp, 112.0_dp, 111.938293_dp, 0.000215_dp, 113.0_dp, 112.943478_dp, 0.000322_dp, 114.0_dp, 113.946666_dp, 0.000322_dp, 115.0_dp, 114.952174_dp, 0.000429_dp, 116.0_dp, 115.955759_dp, 0.000537_dp, 117.0_dp, 116.961686_dp, 0.000537_dp, 118.0_dp, 117.965249_dp, 0.000537_dp, 119.0_dp, 118.971465_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Mt_naw = naw_type(18, transpose(reshape([265.0_dp, 265.135937_dp, 0.000471_dp, 266.0_dp, 266.137062253_dp, 0.000103568_dp, 267.0_dp, 267.137189_dp, 0.000540_dp, 268.0_dp, 268.138649_dp, 0.000250_dp, 269.0_dp, 269.138809_dp, 0.000335_dp, 270.0_dp, 270.140322_dp, 0.000205_dp, 271.0_dp, 271.140741_dp, 0.000354_dp, 272.0_dp, 272.143298_dp, 0.000521_dp, 273.0_dp, 273.144695_dp, 0.000455_dp, 274.0_dp, 274.147343_dp, 0.000404_dp, 275.0_dp, 275.148972_dp, 0.000416_dp, 276.0_dp, 276.151705_dp, 0.000571_dp, 277.0_dp, 277.153525_dp, 0.000711_dp, 278.0_dp, 278.156487_dp, 0.000621_dp, 279.0_dp, 279.158439_dp, 0.000720_dp, 280.0_dp, 280.161579_dp, 0.000644_dp, 281.0_dp, 281.163608_dp, 0.000644_dp, 282.0_dp, 282.166888_dp, 0.000480_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: N_naw = naw_type(16, transpose(reshape([10.0_dp, 10.041653540_dp, 0.000429417_dp, 11.0_dp, 11.026157593_dp, 0.000005368_dp, 12.0_dp, 12.018613180_dp, 0.000001073_dp, 13.0_dp, 13.005738609_dp, 0.000000289_dp, 14.0_dp, 14.00307400425_dp, 0.00000000024_dp, 15.0_dp, 15.00010889827_dp, 0.00000000062_dp, 16.0_dp, 16.006101925_dp, 0.000002470_dp, 17.0_dp, 17.008448876_dp, 0.000016103_dp, 18.0_dp, 18.014077563_dp, 0.000019935_dp, 19.0_dp, 19.017022389_dp, 0.000017610_dp, 20.0_dp, 20.023367295_dp, 0.000084696_dp, 21.0_dp, 21.027087573_dp, 0.000143906_dp, 22.0_dp, 22.034100918_dp, 0.000223060_dp, 23.0_dp, 23.039421000_dp, 0.000451500_dp, 24.0_dp, 24.050390_dp, 0.000430_dp, 25.0_dp, 25.060100_dp, 0.000540_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Na_naw = naw_type(23, transpose(reshape([17.0_dp, 17.037273000_dp, 0.000064000_dp, 18.0_dp, 18.026879388_dp, 0.000100785_dp, 19.0_dp, 19.013880264_dp, 0.000011309_dp, 20.0_dp, 20.007354301_dp, 0.000001190_dp, 21.0_dp, 20.997654459_dp, 0.000000045_dp, 22.0_dp, 21.994437547_dp, 0.000000141_dp, 23.0_dp, 22.98976928195_dp, 0.00000000194_dp, 24.0_dp, 23.990963012_dp, 0.000000017_dp, 25.0_dp, 24.989953974_dp, 0.000001288_dp, 26.0_dp, 25.992634649_dp, 0.000003759_dp, 27.0_dp, 26.994076408_dp, 0.000004000_dp, 28.0_dp, 27.998939000_dp, 0.000011000_dp, 29.0_dp, 29.002877091_dp, 0.000007876_dp, 30.0_dp, 30.009097931_dp, 0.000005074_dp, 31.0_dp, 31.013146654_dp, 0.000015000_dp, 32.0_dp, 32.020011024_dp, 0.000040000_dp, 33.0_dp, 33.025529000_dp, 0.000483000_dp, 34.0_dp, 34.034010000_dp, 0.000643500_dp, 35.0_dp, 35.040614_dp, 0.000720_dp, 36.0_dp, 36.049279_dp, 0.000737_dp, 37.0_dp, 37.057042_dp, 0.000737_dp, 38.0_dp, 38.066458_dp, 0.000768_dp, 39.0_dp, 39.075123_dp, 0.000797_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Nb_naw = naw_type(38, transpose(reshape([79.0_dp, 78.966022_dp, 0.000537_dp, 80.0_dp, 79.958754_dp, 0.000429_dp, 81.0_dp, 80.950230_dp, 0.000429_dp, 82.0_dp, 81.944380_dp, 0.000322_dp, 83.0_dp, 82.938150000_dp, 0.000174000_dp, 84.0_dp, 83.934305711_dp, 0.000000430_dp, 85.0_dp, 84.928845836_dp, 0.000004400_dp, 86.0_dp, 85.925781536_dp, 0.000005903_dp, 87.0_dp, 86.920692473_dp, 0.000007302_dp, 88.0_dp, 87.918226476_dp, 0.000062059_dp, 89.0_dp, 88.913444696_dp, 0.000025367_dp, 90.0_dp, 89.911259201_dp, 0.000003561_dp, 91.0_dp, 90.906990256_dp, 0.000003140_dp, 92.0_dp, 91.907188580_dp, 0.000001915_dp, 93.0_dp, 92.906373170_dp, 0.000001599_dp, 94.0_dp, 93.907279001_dp, 0.000001600_dp, 95.0_dp, 94.906831110_dp, 0.000000545_dp, 96.0_dp, 95.908101586_dp, 0.000000157_dp, 97.0_dp, 96.908101622_dp, 0.000004556_dp, 98.0_dp, 97.910332645_dp, 0.000005369_dp, 99.0_dp, 98.911609377_dp, 0.000012886_dp, 100.0_dp, 99.914340578_dp, 0.000008562_dp, 101.0_dp, 100.915306508_dp, 0.000004024_dp, 102.0_dp, 101.918090447_dp, 0.000002695_dp, 103.0_dp, 102.919453416_dp, 0.000004224_dp, 104.0_dp, 103.922907728_dp, 0.000001915_dp, 105.0_dp, 104.924942577_dp, 0.000004324_dp, 106.0_dp, 105.928928505_dp, 0.000001520_dp, 107.0_dp, 106.931589685_dp, 0.000008612_dp, 108.0_dp, 107.936075604_dp, 0.000008844_dp, 109.0_dp, 108.939141000_dp, 0.000462500_dp, 110.0_dp, 109.943843000_dp, 0.000900000_dp, 111.0_dp, 110.947439_dp, 0.000322_dp, 112.0_dp, 111.952689_dp, 0.000322_dp, 113.0_dp, 112.956833_dp, 0.000429_dp, 114.0_dp, 113.962469_dp, 0.000537_dp, 115.0_dp, 114.966849_dp, 0.000537_dp, 116.0_dp, 115.972914_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Nd_naw = naw_type(40, transpose(reshape([124.0_dp, 123.951873_dp, 0.000537_dp, 125.0_dp, 124.948395_dp, 0.000429_dp, 126.0_dp, 125.942694_dp, 0.000322_dp, 127.0_dp, 126.939978_dp, 0.000322_dp, 128.0_dp, 127.935018_dp, 0.000215_dp, 129.0_dp, 128.933038_dp, 0.000217_dp, 130.0_dp, 129.928506000_dp, 0.000030000_dp, 131.0_dp, 130.927248020_dp, 0.000029541_dp, 132.0_dp, 131.923321237_dp, 0.000025985_dp, 133.0_dp, 132.922348000_dp, 0.000050000_dp, 134.0_dp, 133.918790207_dp, 0.000012686_dp, 135.0_dp, 134.918181318_dp, 0.000020534_dp, 136.0_dp, 135.914976061_dp, 0.000012686_dp, 137.0_dp, 136.914563099_dp, 0.000012586_dp, 138.0_dp, 137.911950938_dp, 0.000012456_dp, 139.0_dp, 138.911951208_dp, 0.000029545_dp, 140.0_dp, 139.909546130_dp, 0.000003500_dp, 141.0_dp, 140.909616690_dp, 0.000003417_dp, 142.0_dp, 141.907728824_dp, 0.000001348_dp, 143.0_dp, 142.909819815_dp, 0.000001347_dp, 144.0_dp, 143.910092798_dp, 0.000001346_dp, 145.0_dp, 144.912579151_dp, 0.000001364_dp, 146.0_dp, 145.913122459_dp, 0.000001366_dp, 147.0_dp, 146.916105969_dp, 0.000001368_dp, 148.0_dp, 147.916899027_dp, 0.000002203_dp, 149.0_dp, 148.920154583_dp, 0.000002205_dp, 150.0_dp, 149.920901322_dp, 0.000001211_dp, 151.0_dp, 150.923839363_dp, 0.000001215_dp, 152.0_dp, 151.924691242_dp, 0.000026276_dp, 153.0_dp, 152.927717868_dp, 0.000002949_dp, 154.0_dp, 153.929597404_dp, 0.000001100_dp, 155.0_dp, 154.933135598_dp, 0.000009826_dp, 156.0_dp, 155.935370358_dp, 0.000001400_dp, 157.0_dp, 156.939351074_dp, 0.000002294_dp, 158.0_dp, 157.942205620_dp, 0.000001400_dp, 159.0_dp, 158.946619085_dp, 0.000032000_dp, 160.0_dp, 159.949839172_dp, 0.000050000_dp, 161.0_dp, 160.954664_dp, 0.000429_dp, 162.0_dp, 161.958121_dp, 0.000429_dp, 163.0_dp, 162.963414_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ne_naw = naw_type(20, transpose(reshape([15.0_dp, 15.043172977_dp, 0.000071588_dp, 16.0_dp, 16.025750860_dp, 0.000021986_dp, 17.0_dp, 17.017713962_dp, 0.000000380_dp, 18.0_dp, 18.005708696_dp, 0.000000390_dp, 19.0_dp, 19.001880906_dp, 0.000000171_dp, 20.0_dp, 19.99244017525_dp, 0.00000000165_dp, 21.0_dp, 20.993846685_dp, 0.000000041_dp, 22.0_dp, 21.991385113_dp, 0.000000018_dp, 23.0_dp, 22.994466905_dp, 0.000000112_dp, 24.0_dp, 23.993610649_dp, 0.000000550_dp, 25.0_dp, 24.997814797_dp, 0.000031181_dp, 26.0_dp, 26.000516496_dp, 0.000019784_dp, 27.0_dp, 27.007569462_dp, 0.000097445_dp, 28.0_dp, 28.012130767_dp, 0.000135339_dp, 29.0_dp, 29.019753000_dp, 0.000160500_dp, 30.0_dp, 30.024992235_dp, 0.000271875_dp, 31.0_dp, 31.033474816_dp, 0.000285772_dp, 32.0_dp, 32.039720_dp, 0.000540_dp, 33.0_dp, 33.049523_dp, 0.000644_dp, 34.0_dp, 34.056728_dp, 0.000551_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Nh_naw = naw_type(13, transpose(reshape([278.0_dp, 278.170725_dp, 0.000240_dp, 279.0_dp, 279.171187_dp, 0.000644_dp, 280.0_dp, 280.173098_dp, 0.000429_dp, 281.0_dp, 281.173710_dp, 0.000322_dp, 282.0_dp, 282.175770_dp, 0.000430_dp, 283.0_dp, 283.176666_dp, 0.000469_dp, 284.0_dp, 284.178843_dp, 0.000573_dp, 285.0_dp, 285.180106_dp, 0.000832_dp, 286.0_dp, 286.182456_dp, 0.000634_dp, 287.0_dp, 287.184064_dp, 0.000759_dp, 288.0_dp, 288.186764_dp, 0.000751_dp, 289.0_dp, 289.188461_dp, 0.000537_dp, 290.0_dp, 290.191429_dp, 0.000503_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ni_naw = naw_type(35, transpose(reshape([48.0_dp, 48.019515_dp, 0.000455_dp, 49.0_dp, 49.009157_dp, 0.000644_dp, 50.0_dp, 49.996286_dp, 0.000537_dp, 51.0_dp, 50.987493_dp, 0.000537_dp, 52.0_dp, 51.975781000_dp, 0.000089000_dp, 53.0_dp, 52.968190000_dp, 0.000027000_dp, 54.0_dp, 53.957833000_dp, 0.000005000_dp, 55.0_dp, 54.951329846_dp, 0.000000757_dp, 56.0_dp, 55.942127761_dp, 0.000000428_dp, 57.0_dp, 56.939791394_dp, 0.000000608_dp, 58.0_dp, 57.935341650_dp, 0.000000374_dp, 59.0_dp, 58.934345442_dp, 0.000000376_dp, 60.0_dp, 59.930785129_dp, 0.000000378_dp, 61.0_dp, 60.931054819_dp, 0.000000381_dp, 62.0_dp, 61.928344753_dp, 0.000000455_dp, 63.0_dp, 62.929669021_dp, 0.000000457_dp, 64.0_dp, 63.927966228_dp, 0.000000497_dp, 65.0_dp, 64.930084585_dp, 0.000000518_dp, 66.0_dp, 65.929139333_dp, 0.000001500_dp, 67.0_dp, 66.931569413_dp, 0.000003100_dp, 68.0_dp, 67.931868787_dp, 0.000003200_dp, 69.0_dp, 68.935610267_dp, 0.000004000_dp, 70.0_dp, 69.936431300_dp, 0.000002301_dp, 71.0_dp, 70.940518962_dp, 0.000002401_dp, 72.0_dp, 71.941785924_dp, 0.000002401_dp, 73.0_dp, 72.946206681_dp, 0.000002601_dp, 74.0_dp, 73.947718_dp, 0.000215_dp, 75.0_dp, 74.952506_dp, 0.000215_dp, 76.0_dp, 75.954707_dp, 0.000322_dp, 77.0_dp, 76.959903_dp, 0.000429_dp, 78.0_dp, 77.962555_dp, 0.000429_dp, 79.0_dp, 78.969769_dp, 0.000537_dp, 80.0_dp, 79.975051_dp, 0.000644_dp, 81.0_dp, 80.982727_dp, 0.000751_dp, 82.0_dp, 81.988492_dp, 0.000859_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: No_naw = naw_type(17, transpose(reshape([248.0_dp, 248.086623_dp, 0.000241_dp, 249.0_dp, 249.087802_dp, 0.000300_dp, 250.0_dp, 250.087565_dp, 0.000215_dp, 251.0_dp, 251.088942_dp, 0.000194_dp, 252.0_dp, 252.088966070_dp, 0.000009975_dp, 253.0_dp, 253.090562780_dp, 0.000007420_dp, 254.0_dp, 254.090954211_dp, 0.000010367_dp, 255.0_dp, 255.093196439_dp, 0.000015079_dp, 256.0_dp, 256.094281912_dp, 0.000008103_dp, 257.0_dp, 257.096884203_dp, 0.000006652_dp, 258.0_dp, 258.098205_dp, 0.000107_dp, 259.0_dp, 259.100998364_dp, 0.000006829_dp, 260.0_dp, 260.102641_dp, 0.000215_dp, 261.0_dp, 261.105696_dp, 0.000215_dp, 262.0_dp, 262.107463_dp, 0.000387_dp, 263.0_dp, 263.110714_dp, 0.000526_dp, 264.0_dp, 264.112734_dp, 0.000634_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Np_naw = naw_type(27, transpose(reshape([219.0_dp, 219.031601865_dp, 0.000098732_dp, 220.0_dp, 220.032716280_dp, 0.000032977_dp, 221.0_dp, 221.032110_dp, 0.000215_dp, 222.0_dp, 222.033574706_dp, 0.000040849_dp, 223.0_dp, 223.032913340_dp, 0.000088956_dp, 224.0_dp, 224.034388030_dp, 0.000031052_dp, 225.0_dp, 225.033943422_dp, 0.000098355_dp, 226.0_dp, 226.035230364_dp, 0.000109568_dp, 227.0_dp, 227.034975012_dp, 0.000082651_dp, 228.0_dp, 228.036313_dp, 0.000108_dp, 229.0_dp, 229.036287269_dp, 0.000108618_dp, 230.0_dp, 230.037828060_dp, 0.000059051_dp, 231.0_dp, 231.038243598_dp, 0.000054916_dp, 232.0_dp, 232.040107_dp, 0.000107_dp, 233.0_dp, 233.040739421_dp, 0.000054729_dp, 234.0_dp, 234.042893245_dp, 0.000009014_dp, 235.0_dp, 235.044061518_dp, 0.000001490_dp, 236.0_dp, 236.046568296_dp, 0.000054129_dp, 237.0_dp, 237.048171640_dp, 0.000001201_dp, 238.0_dp, 238.050944603_dp, 0.000001220_dp, 239.0_dp, 239.052937538_dp, 0.000001406_dp, 240.0_dp, 240.056163778_dp, 0.000018284_dp, 241.0_dp, 241.058309671_dp, 0.000107360_dp, 242.0_dp, 242.061639548_dp, 0.000214712_dp, 243.0_dp, 243.064204_dp, 0.000034_dp, 244.0_dp, 244.067891_dp, 0.000107_dp, 245.0_dp, 245.070693_dp, 0.000215_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: O_naw = naw_type(18, transpose(reshape([11.0_dp, 11.051249828_dp, 0.000064453_dp, 12.0_dp, 12.034367726_dp, 0.000012882_dp, 13.0_dp, 13.024815435_dp, 0.000010226_dp, 14.0_dp, 14.008596706_dp, 0.000000027_dp, 15.0_dp, 15.003065636_dp, 0.000000526_dp, 16.0_dp, 15.99491461926_dp, 0.00000000032_dp, 17.0_dp, 16.99913175595_dp, 0.00000000069_dp, 18.0_dp, 17.99915961214_dp, 0.00000000069_dp, 19.0_dp, 19.003577969_dp, 0.000002830_dp, 20.0_dp, 20.004075357_dp, 0.000000950_dp, 21.0_dp, 21.008654948_dp, 0.000012882_dp, 22.0_dp, 22.009965744_dp, 0.000061107_dp, 23.0_dp, 23.015696686_dp, 0.000130663_dp, 24.0_dp, 24.019861000_dp, 0.000177000_dp, 25.0_dp, 25.029338919_dp, 0.000177225_dp, 26.0_dp, 26.037210155_dp, 0.000177081_dp, 27.0_dp, 27.047955_dp, 0.000537_dp, 28.0_dp, 28.055910_dp, 0.000750_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Og_naw = naw_type(3, transpose(reshape([293.0_dp, 293.213423_dp, 0.000761_dp, 294.0_dp, 294.213979_dp, 0.000594_dp, 295.0_dp, 295.216178_dp, 0.000703_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Os_naw = naw_type(43, transpose(reshape([161.0_dp, 160.989054_dp, 0.000429_dp, 162.0_dp, 161.984434_dp, 0.000322_dp, 163.0_dp, 162.982462_dp, 0.000322_dp, 164.0_dp, 163.978073158_dp, 0.000160927_dp, 165.0_dp, 164.976654_dp, 0.000215_dp, 166.0_dp, 165.972698135_dp, 0.000019287_dp, 167.0_dp, 166.971552304_dp, 0.000086841_dp, 168.0_dp, 167.967799050_dp, 0.000010631_dp, 169.0_dp, 168.967017521_dp, 0.000027847_dp, 170.0_dp, 169.963579273_dp, 0.000010476_dp, 171.0_dp, 170.963180402_dp, 0.000019589_dp, 172.0_dp, 171.960017309_dp, 0.000013704_dp, 173.0_dp, 172.959808387_dp, 0.000016059_dp, 174.0_dp, 173.957063192_dp, 0.000011008_dp, 175.0_dp, 174.956945126_dp, 0.000012640_dp, 176.0_dp, 175.954770315_dp, 0.000011754_dp, 177.0_dp, 176.954957902_dp, 0.000015687_dp, 178.0_dp, 177.953253334_dp, 0.000014634_dp, 179.0_dp, 178.953815985_dp, 0.000016645_dp, 180.0_dp, 179.952381665_dp, 0.000016878_dp, 181.0_dp, 180.953247188_dp, 0.000027201_dp, 182.0_dp, 181.952110154_dp, 0.000023344_dp, 183.0_dp, 182.953125028_dp, 0.000053428_dp, 184.0_dp, 183.952492919_dp, 0.000000890_dp, 185.0_dp, 184.954045969_dp, 0.000000893_dp, 186.0_dp, 185.953837569_dp, 0.000000816_dp, 187.0_dp, 186.955749569_dp, 0.000000791_dp, 188.0_dp, 187.955837292_dp, 0.000000788_dp, 189.0_dp, 188.958145949_dp, 0.000000715_dp, 190.0_dp, 189.958445442_dp, 0.000000697_dp, 191.0_dp, 190.960928105_dp, 0.000000707_dp, 192.0_dp, 191.961478765_dp, 0.000002484_dp, 193.0_dp, 192.964149637_dp, 0.000002490_dp, 194.0_dp, 193.965179407_dp, 0.000002579_dp, 195.0_dp, 194.968318000_dp, 0.000060000_dp, 196.0_dp, 195.969643261_dp, 0.000043000_dp, 197.0_dp, 196.973076_dp, 0.000215_dp, 198.0_dp, 197.974664_dp, 0.000215_dp, 199.0_dp, 198.978239_dp, 0.000215_dp, 200.0_dp, 199.980086_dp, 0.000322_dp, 201.0_dp, 200.984069_dp, 0.000322_dp, 202.0_dp, 201.986548_dp, 0.000429_dp, 203.0_dp, 202.992195_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: P_naw = naw_type(24, transpose(reshape([24.0_dp, 24.036522_dp, 0.000537_dp, 25.0_dp, 25.021675_dp, 0.000429_dp, 26.0_dp, 26.011780_dp, 0.000210_dp, 27.0_dp, 26.999292499_dp, 0.000009662_dp, 28.0_dp, 27.992326460_dp, 0.000001231_dp, 29.0_dp, 28.981800368_dp, 0.000000385_dp, 30.0_dp, 29.978313490_dp, 0.000000069_dp, 31.0_dp, 30.97376199768_dp, 0.00000000080_dp, 32.0_dp, 31.973907643_dp, 0.000000042_dp, 33.0_dp, 32.971725692_dp, 0.000001170_dp, 34.0_dp, 33.973645886_dp, 0.000000870_dp, 35.0_dp, 34.973314045_dp, 0.000002003_dp, 36.0_dp, 35.978259610_dp, 0.000014078_dp, 37.0_dp, 36.979606942_dp, 0.000040738_dp, 38.0_dp, 37.984303105_dp, 0.000077918_dp, 39.0_dp, 38.986285865_dp, 0.000120929_dp, 40.0_dp, 39.991262221_dp, 0.000089755_dp, 41.0_dp, 40.994654000_dp, 0.000129000_dp, 42.0_dp, 42.001172140_dp, 0.000101996_dp, 43.0_dp, 43.005411_dp, 0.000322_dp, 44.0_dp, 44.011927_dp, 0.000429_dp, 45.0_dp, 45.017134_dp, 0.000537_dp, 46.0_dp, 46.024520_dp, 0.000537_dp, 47.0_dp, 47.030929_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pa_naw = naw_type(31, transpose(reshape([211.0_dp, 211.023674036_dp, 0.000074581_dp, 212.0_dp, 212.023184819_dp, 0.000094047_dp, 213.0_dp, 213.021099644_dp, 0.000061374_dp, 214.0_dp, 214.020891055_dp, 0.000087180_dp, 215.0_dp, 215.019113955_dp, 0.000088513_dp, 216.0_dp, 216.019134633_dp, 0.000026459_dp, 217.0_dp, 217.018309024_dp, 0.000013417_dp, 218.0_dp, 218.020021133_dp, 0.000019158_dp, 219.0_dp, 219.019949909_dp, 0.000074831_dp, 220.0_dp, 220.021769753_dp, 0.000015732_dp, 221.0_dp, 221.021873393_dp, 0.000063746_dp, 222.0_dp, 222.023687064_dp, 0.000092975_dp, 223.0_dp, 223.023980414_dp, 0.000081193_dp, 224.0_dp, 224.025617286_dp, 0.000008145_dp, 225.0_dp, 225.026147927_dp, 0.000087887_dp, 226.0_dp, 226.027948217_dp, 0.000012037_dp, 227.0_dp, 227.028803586_dp, 0.000007797_dp, 228.0_dp, 228.031050758_dp, 0.000004659_dp, 229.0_dp, 229.032095585_dp, 0.000003521_dp, 230.0_dp, 230.034539717_dp, 0.000003261_dp, 231.0_dp, 231.035882500_dp, 0.000001901_dp, 232.0_dp, 232.038590205_dp, 0.000008206_dp, 233.0_dp, 233.040246535_dp, 0.000001433_dp, 234.0_dp, 234.043305555_dp, 0.000004395_dp, 235.0_dp, 235.045399000_dp, 0.000015000_dp, 236.0_dp, 236.048668000_dp, 0.000015000_dp, 237.0_dp, 237.051023000_dp, 0.000014000_dp, 238.0_dp, 238.054637000_dp, 0.000017000_dp, 239.0_dp, 239.057260_dp, 0.000210_dp, 240.0_dp, 240.061203_dp, 0.000215_dp, 241.0_dp, 241.064134_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pb_naw = naw_type(43, transpose(reshape([178.0_dp, 178.003836171_dp, 0.000024889_dp, 179.0_dp, 179.002202492_dp, 0.000087203_dp, 180.0_dp, 179.997916177_dp, 0.000013306_dp, 181.0_dp, 180.996660600_dp, 0.000091290_dp, 182.0_dp, 181.992673537_dp, 0.000012975_dp, 183.0_dp, 182.991862527_dp, 0.000031110_dp, 184.0_dp, 183.988135634_dp, 0.000013743_dp, 185.0_dp, 184.987610000_dp, 0.000017364_dp, 186.0_dp, 185.984239409_dp, 0.000011813_dp, 187.0_dp, 186.983910842_dp, 0.000005468_dp, 188.0_dp, 187.980879079_dp, 0.000010868_dp, 189.0_dp, 188.980843658_dp, 0.000015096_dp, 190.0_dp, 189.978081872_dp, 0.000013434_dp, 191.0_dp, 190.978216455_dp, 0.000007099_dp, 192.0_dp, 191.975789598_dp, 0.000006147_dp, 193.0_dp, 192.976135914_dp, 0.000011044_dp, 194.0_dp, 193.974011788_dp, 0.000018717_dp, 195.0_dp, 194.974516167_dp, 0.000005461_dp, 196.0_dp, 195.972787552_dp, 0.000008277_dp, 197.0_dp, 196.973434737_dp, 0.000005157_dp, 198.0_dp, 197.972015450_dp, 0.000009393_dp, 199.0_dp, 198.972912620_dp, 0.000007322_dp, 200.0_dp, 199.971818546_dp, 0.000010744_dp, 201.0_dp, 200.972870431_dp, 0.000014758_dp, 202.0_dp, 201.972151613_dp, 0.000004075_dp, 203.0_dp, 202.973390617_dp, 0.000007036_dp, 204.0_dp, 203.973043506_dp, 0.000001231_dp, 205.0_dp, 204.974481682_dp, 0.000001228_dp, 206.0_dp, 205.974465210_dp, 0.000001228_dp, 207.0_dp, 206.975896821_dp, 0.000001231_dp, 208.0_dp, 207.976652005_dp, 0.000001232_dp, 209.0_dp, 208.981089978_dp, 0.000001875_dp, 210.0_dp, 209.984188381_dp, 0.000001554_dp, 211.0_dp, 210.988735288_dp, 0.000002426_dp, 212.0_dp, 211.991895891_dp, 0.000001975_dp, 213.0_dp, 212.996560796_dp, 0.000007465_dp, 214.0_dp, 213.999803521_dp, 0.000002114_dp, 215.0_dp, 215.004661591_dp, 0.000056560_dp, 216.0_dp, 216.008062_dp, 0.000215_dp, 217.0_dp, 217.013162_dp, 0.000322_dp, 218.0_dp, 218.016779_dp, 0.000322_dp, 219.0_dp, 219.022136_dp, 0.000429_dp, 220.0_dp, 220.025905_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pd_naw = naw_type(42, transpose(reshape([90.0_dp, 89.957370_dp, 0.000429_dp, 91.0_dp, 90.950435_dp, 0.000454_dp, 92.0_dp, 91.941192225_dp, 0.000370402_dp, 93.0_dp, 92.936680426_dp, 0.000397221_dp, 94.0_dp, 93.929036286_dp, 0.000004602_dp, 95.0_dp, 94.924888506_dp, 0.000003253_dp, 96.0_dp, 95.918213739_dp, 0.000004502_dp, 97.0_dp, 96.916471985_dp, 0.000005200_dp, 98.0_dp, 97.912698335_dp, 0.000005090_dp, 99.0_dp, 98.911773073_dp, 0.000005482_dp, 100.0_dp, 99.908520438_dp, 0.000018934_dp, 101.0_dp, 100.908284824_dp, 0.000004925_dp, 102.0_dp, 101.905632292_dp, 0.000000449_dp, 103.0_dp, 102.906111074_dp, 0.000000942_dp, 104.0_dp, 103.904030393_dp, 0.000001434_dp, 105.0_dp, 104.905079479_dp, 0.000001222_dp, 106.0_dp, 105.903480287_dp, 0.000001186_dp, 107.0_dp, 106.905128058_dp, 0.000001289_dp, 108.0_dp, 107.903891806_dp, 0.000001189_dp, 109.0_dp, 108.905950576_dp, 0.000001195_dp, 110.0_dp, 109.905172878_dp, 0.000000657_dp, 111.0_dp, 110.907690358_dp, 0.000000785_dp, 112.0_dp, 111.907330557_dp, 0.000007027_dp, 113.0_dp, 112.910261912_dp, 0.000007458_dp, 114.0_dp, 113.910369430_dp, 0.000007459_dp, 115.0_dp, 114.913659333_dp, 0.000014543_dp, 116.0_dp, 115.914297872_dp, 0.000007659_dp, 117.0_dp, 116.917955584_dp, 0.000007788_dp, 118.0_dp, 117.919067273_dp, 0.000002677_dp, 119.0_dp, 118.923341138_dp, 0.000008854_dp, 120.0_dp, 119.924551745_dp, 0.000002464_dp, 121.0_dp, 120.928950342_dp, 0.000003600_dp, 122.0_dp, 121.930631693_dp, 0.000021000_dp, 123.0_dp, 122.935126000_dp, 0.000847500_dp, 124.0_dp, 123.937305_dp, 0.000322_dp, 125.0_dp, 124.942072_dp, 0.000429_dp, 126.0_dp, 125.944401_dp, 0.000429_dp, 127.0_dp, 126.949307_dp, 0.000537_dp, 128.0_dp, 127.952345_dp, 0.000537_dp, 129.0_dp, 128.959334_dp, 0.000644_dp, 130.0_dp, 129.964863_dp, 0.000322_dp, 131.0_dp, 130.972367_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pm_naw = naw_type(40, transpose(reshape([126.0_dp, 125.957327_dp, 0.000537_dp, 127.0_dp, 126.951358_dp, 0.000429_dp, 128.0_dp, 127.948234_dp, 0.000322_dp, 129.0_dp, 128.942909_dp, 0.000322_dp, 130.0_dp, 129.940451_dp, 0.000215_dp, 131.0_dp, 130.935834_dp, 0.000215_dp, 132.0_dp, 131.933840_dp, 0.000160_dp, 133.0_dp, 132.929782000_dp, 0.000054000_dp, 134.0_dp, 133.928326000_dp, 0.000045000_dp, 135.0_dp, 134.924785000_dp, 0.000089000_dp, 136.0_dp, 135.923595949_dp, 0.000074152_dp, 137.0_dp, 136.920479519_dp, 0.000014000_dp, 138.0_dp, 137.919576119_dp, 0.000012456_dp, 139.0_dp, 138.916799228_dp, 0.000014587_dp, 140.0_dp, 139.916035918_dp, 0.000026001_dp, 141.0_dp, 140.913555081_dp, 0.000015000_dp, 142.0_dp, 141.912890982_dp, 0.000025330_dp, 143.0_dp, 142.910938068_dp, 0.000003160_dp, 144.0_dp, 143.912596208_dp, 0.000003126_dp, 145.0_dp, 144.912755748_dp, 0.000003011_dp, 146.0_dp, 145.914702240_dp, 0.000004589_dp, 147.0_dp, 146.915144944_dp, 0.000001382_dp, 148.0_dp, 147.917481091_dp, 0.000006108_dp, 149.0_dp, 148.918341507_dp, 0.000002344_dp, 150.0_dp, 149.920990014_dp, 0.000021504_dp, 151.0_dp, 150.921216613_dp, 0.000004949_dp, 152.0_dp, 151.923505185_dp, 0.000027809_dp, 153.0_dp, 152.924156252_dp, 0.000009729_dp, 154.0_dp, 153.926712791_dp, 0.000026861_dp, 155.0_dp, 154.928136951_dp, 0.000005065_dp, 156.0_dp, 155.931114059_dp, 0.000001275_dp, 157.0_dp, 156.933121298_dp, 0.000007521_dp, 158.0_dp, 157.936546948_dp, 0.000000953_dp, 159.0_dp, 158.939286409_dp, 0.000010777_dp, 160.0_dp, 159.943215272_dp, 0.000002200_dp, 161.0_dp, 160.946229837_dp, 0.000009700_dp, 162.0_dp, 161.950574_dp, 0.000322_dp, 163.0_dp, 162.953881_dp, 0.000429_dp, 164.0_dp, 163.958819_dp, 0.000429_dp, 165.0_dp, 164.962780_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Po_naw = naw_type(42, transpose(reshape([186.0_dp, 186.004403174_dp, 0.000019622_dp, 187.0_dp, 187.003031482_dp, 0.000035030_dp, 188.0_dp, 187.999415586_dp, 0.000021438_dp, 189.0_dp, 188.998473425_dp, 0.000023681_dp, 190.0_dp, 189.995101731_dp, 0.000014131_dp, 191.0_dp, 190.994558494_dp, 0.000007624_dp, 192.0_dp, 191.991340274_dp, 0.000011416_dp, 193.0_dp, 192.991062421_dp, 0.000015599_dp, 194.0_dp, 193.988186058_dp, 0.000013860_dp, 195.0_dp, 194.988065781_dp, 0.000006486_dp, 196.0_dp, 195.985540722_dp, 0.000005778_dp, 197.0_dp, 196.985621939_dp, 0.000010585_dp, 198.0_dp, 197.983388753_dp, 0.000018705_dp, 199.0_dp, 198.983640445_dp, 0.000005828_dp, 200.0_dp, 199.981812355_dp, 0.000008136_dp, 201.0_dp, 200.982263799_dp, 0.000005305_dp, 202.0_dp, 201.980738934_dp, 0.000009307_dp, 203.0_dp, 202.981416072_dp, 0.000004981_dp, 204.0_dp, 203.980310078_dp, 0.000010811_dp, 205.0_dp, 204.981190006_dp, 0.000010798_dp, 206.0_dp, 205.980473662_dp, 0.000004306_dp, 207.0_dp, 206.981593334_dp, 0.000007148_dp, 208.0_dp, 207.981246035_dp, 0.000001795_dp, 209.0_dp, 208.982430361_dp, 0.000001909_dp, 210.0_dp, 209.982873686_dp, 0.000001230_dp, 211.0_dp, 210.986653171_dp, 0.000001347_dp, 212.0_dp, 211.988867982_dp, 0.000001237_dp, 213.0_dp, 212.992857154_dp, 0.000003277_dp, 214.0_dp, 213.995201287_dp, 0.000001556_dp, 215.0_dp, 214.999418385_dp, 0.000002276_dp, 216.0_dp, 216.001913416_dp, 0.000001948_dp, 217.0_dp, 217.006316145_dp, 0.000007025_dp, 218.0_dp, 218.008971234_dp, 0.000002112_dp, 219.0_dp, 219.013614000_dp, 0.000017000_dp, 220.0_dp, 220.016386000_dp, 0.000019000_dp, 221.0_dp, 221.021228000_dp, 0.000021000_dp, 222.0_dp, 222.024140000_dp, 0.000043000_dp, 223.0_dp, 223.029070_dp, 0.000210_dp, 224.0_dp, 224.032110_dp, 0.000210_dp, 225.0_dp, 225.037123_dp, 0.000322_dp, 226.0_dp, 226.040310_dp, 0.000430_dp, 227.0_dp, 227.045390_dp, 0.000430_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pr_naw = naw_type(41, transpose(reshape([121.0_dp, 120.955393_dp, 0.000537_dp, 122.0_dp, 121.951927_dp, 0.000537_dp, 123.0_dp, 122.946076_dp, 0.000429_dp, 124.0_dp, 123.942940_dp, 0.000430_dp, 125.0_dp, 124.937659_dp, 0.000322_dp, 126.0_dp, 125.935240_dp, 0.000210_dp, 127.0_dp, 126.930710_dp, 0.000210_dp, 128.0_dp, 127.928791000_dp, 0.000032000_dp, 129.0_dp, 128.925095000_dp, 0.000032000_dp, 130.0_dp, 129.923590000_dp, 0.000069000_dp, 131.0_dp, 130.920234960_dp, 0.000050451_dp, 132.0_dp, 131.919240000_dp, 0.000031000_dp, 133.0_dp, 132.916330558_dp, 0.000013416_dp, 134.0_dp, 133.915696729_dp, 0.000021810_dp, 135.0_dp, 134.913111772_dp, 0.000012686_dp, 136.0_dp, 135.912677470_dp, 0.000012296_dp, 137.0_dp, 136.910679183_dp, 0.000008733_dp, 138.0_dp, 137.910757495_dp, 0.000010748_dp, 139.0_dp, 138.908932700_dp, 0.000003917_dp, 140.0_dp, 139.909085600_dp, 0.000006593_dp, 141.0_dp, 140.907659604_dp, 0.000001607_dp, 142.0_dp, 141.910051640_dp, 0.000001607_dp, 143.0_dp, 142.910822624_dp, 0.000001949_dp, 144.0_dp, 143.913310682_dp, 0.000002907_dp, 145.0_dp, 144.914517987_dp, 0.000007674_dp, 146.0_dp, 145.917687630_dp, 0.000036882_dp, 147.0_dp, 146.919007438_dp, 0.000017020_dp, 148.0_dp, 147.922129992_dp, 0.000016147_dp, 149.0_dp, 148.923736100_dp, 0.000010600_dp, 150.0_dp, 149.926676391_dp, 0.000009677_dp, 151.0_dp, 150.928309066_dp, 0.000012506_dp, 152.0_dp, 151.931552900_dp, 0.000019900_dp, 153.0_dp, 152.933903511_dp, 0.000012755_dp, 154.0_dp, 153.937885165_dp, 0.000107360_dp, 155.0_dp, 154.940509193_dp, 0.000018462_dp, 156.0_dp, 155.944766900_dp, 0.000001100_dp, 157.0_dp, 156.948003100_dp, 0.000003400_dp, 158.0_dp, 157.952603_dp, 0.000322_dp, 159.0_dp, 158.956232_dp, 0.000429_dp, 160.0_dp, 159.961138_dp, 0.000429_dp, 161.0_dp, 160.965121_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pt_naw = naw_type(44, transpose(reshape([165.0_dp, 164.999658_dp, 0.000429_dp, 166.0_dp, 165.994866_dp, 0.000322_dp, 167.0_dp, 166.992750_dp, 0.000329_dp, 168.0_dp, 167.988180196_dp, 0.000160960_dp, 169.0_dp, 168.986619_dp, 0.000215_dp, 170.0_dp, 169.982502087_dp, 0.000019588_dp, 171.0_dp, 170.981248868_dp, 0.000086904_dp, 172.0_dp, 171.977341059_dp, 0.000011139_dp, 173.0_dp, 172.976449922_dp, 0.000068096_dp, 174.0_dp, 173.972820431_dp, 0.000011098_dp, 175.0_dp, 174.972400593_dp, 0.000019982_dp, 176.0_dp, 175.968938162_dp, 0.000013647_dp, 177.0_dp, 176.968469541_dp, 0.000016090_dp, 178.0_dp, 177.965649288_dp, 0.000010878_dp, 179.0_dp, 178.965358742_dp, 0.000008563_dp, 180.0_dp, 179.963038010_dp, 0.000010790_dp, 181.0_dp, 180.963089946_dp, 0.000014695_dp, 182.0_dp, 181.961171605_dp, 0.000014057_dp, 183.0_dp, 182.961595895_dp, 0.000015261_dp, 184.0_dp, 183.959921929_dp, 0.000015828_dp, 185.0_dp, 184.960613659_dp, 0.000027731_dp, 186.0_dp, 185.959350845_dp, 0.000023344_dp, 187.0_dp, 186.960616646_dp, 0.000025837_dp, 188.0_dp, 187.959397521_dp, 0.000005694_dp, 189.0_dp, 188.960848485_dp, 0.000010832_dp, 190.0_dp, 189.959949823_dp, 0.000000705_dp, 191.0_dp, 190.961676261_dp, 0.000004430_dp, 192.0_dp, 191.961042667_dp, 0.000002758_dp, 193.0_dp, 192.962984546_dp, 0.000001458_dp, 194.0_dp, 193.962683498_dp, 0.000000532_dp, 195.0_dp, 194.964794325_dp, 0.000000540_dp, 196.0_dp, 195.964954648_dp, 0.000000547_dp, 197.0_dp, 196.967343030_dp, 0.000000575_dp, 198.0_dp, 197.967896718_dp, 0.000002254_dp, 199.0_dp, 198.970597022_dp, 0.000002317_dp, 200.0_dp, 199.971444609_dp, 0.000021588_dp, 201.0_dp, 200.974513305_dp, 0.000053788_dp, 202.0_dp, 201.975639000_dp, 0.000027000_dp, 203.0_dp, 202.979055_dp, 0.000215_dp, 204.0_dp, 203.981084_dp, 0.000215_dp, 205.0_dp, 204.986237_dp, 0.000322_dp, 206.0_dp, 205.990080_dp, 0.000322_dp, 207.0_dp, 206.995556_dp, 0.000429_dp, 208.0_dp, 207.999463_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Pu_naw = naw_type(27, transpose(reshape([221.0_dp, 221.038572_dp, 0.000322_dp, 222.0_dp, 222.037638_dp, 0.000322_dp, 223.0_dp, 223.038777_dp, 0.000322_dp, 224.0_dp, 224.037875_dp, 0.000322_dp, 225.0_dp, 225.038970_dp, 0.000322_dp, 226.0_dp, 226.038250_dp, 0.000215_dp, 227.0_dp, 227.039474_dp, 0.000107_dp, 228.0_dp, 228.038763325_dp, 0.000025069_dp, 229.0_dp, 229.040145099_dp, 0.000065092_dp, 230.0_dp, 230.039648313_dp, 0.000015514_dp, 231.0_dp, 231.041125946_dp, 0.000023683_dp, 232.0_dp, 232.041182133_dp, 0.000018126_dp, 233.0_dp, 233.042997411_dp, 0.000058162_dp, 234.0_dp, 234.043317489_dp, 0.000007298_dp, 235.0_dp, 235.045284609_dp, 0.000022030_dp, 236.0_dp, 236.046056661_dp, 0.000001942_dp, 237.0_dp, 237.048407888_dp, 0.000001821_dp, 238.0_dp, 238.049558175_dp, 0.000001221_dp, 239.0_dp, 239.052161596_dp, 0.000001194_dp, 240.0_dp, 240.053811740_dp, 0.000001186_dp, 241.0_dp, 241.056849651_dp, 0.000001186_dp, 242.0_dp, 242.058740979_dp, 0.000001336_dp, 243.0_dp, 243.062002068_dp, 0.000002728_dp, 244.0_dp, 244.064204401_dp, 0.000002518_dp, 245.0_dp, 245.067824554_dp, 0.000014621_dp, 246.0_dp, 246.070204172_dp, 0.000016087_dp, 247.0_dp, 247.074300_dp, 0.000215_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ra_naw = naw_type(35, transpose(reshape([201.0_dp, 201.012814699_dp, 0.000021794_dp, 202.0_dp, 202.009742305_dp, 0.000016122_dp, 203.0_dp, 203.009233907_dp, 0.000010400_dp, 204.0_dp, 204.006506855_dp, 0.000009580_dp, 205.0_dp, 205.006230692_dp, 0.000024446_dp, 206.0_dp, 206.003827842_dp, 0.000019332_dp, 207.0_dp, 207.003772420_dp, 0.000062572_dp, 208.0_dp, 208.001855012_dp, 0.000009686_dp, 209.0_dp, 209.001994902_dp, 0.000006169_dp, 210.0_dp, 210.000475406_dp, 0.000009868_dp, 211.0_dp, 211.000893049_dp, 0.000005331_dp, 212.0_dp, 211.999786619_dp, 0.000011007_dp, 213.0_dp, 213.000370971_dp, 0.000010540_dp, 214.0_dp, 214.000099560_dp, 0.000005636_dp, 215.0_dp, 215.002718208_dp, 0.000007730_dp, 216.0_dp, 216.003533534_dp, 0.000008592_dp, 217.0_dp, 217.006322676_dp, 0.000007564_dp, 218.0_dp, 218.007134297_dp, 0.000010528_dp, 219.0_dp, 219.010084715_dp, 0.000007315_dp, 220.0_dp, 220.011027542_dp, 0.000008153_dp, 221.0_dp, 221.013917293_dp, 0.000004970_dp, 222.0_dp, 222.015373371_dp, 0.000004781_dp, 223.0_dp, 223.018500648_dp, 0.000002243_dp, 224.0_dp, 224.020210361_dp, 0.000001944_dp, 225.0_dp, 225.023610502_dp, 0.000002786_dp, 226.0_dp, 226.025408186_dp, 0.000002068_dp, 227.0_dp, 227.029176205_dp, 0.000002089_dp, 228.0_dp, 228.031068574_dp, 0.000002141_dp, 229.0_dp, 229.034956703_dp, 0.000016576_dp, 230.0_dp, 230.037054776_dp, 0.000011053_dp, 231.0_dp, 231.041027085_dp, 0.000012206_dp, 232.0_dp, 232.043475267_dp, 0.000009823_dp, 233.0_dp, 233.047594570_dp, 0.000009235_dp, 234.0_dp, 234.050382100_dp, 0.000009000_dp, 235.0_dp, 235.054890_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Rb_naw = naw_type(34, transpose(reshape([71.0_dp, 70.965335_dp, 0.000429_dp, 72.0_dp, 71.958851_dp, 0.000537_dp, 73.0_dp, 72.950604506_dp, 0.000043794_dp, 74.0_dp, 73.944265867_dp, 0.000003249_dp, 75.0_dp, 74.938573200_dp, 0.000001266_dp, 76.0_dp, 75.935073031_dp, 0.000001006_dp, 77.0_dp, 76.930401599_dp, 0.000001400_dp, 78.0_dp, 77.928141866_dp, 0.000003475_dp, 79.0_dp, 78.923990095_dp, 0.000002085_dp, 80.0_dp, 79.922516442_dp, 0.000002000_dp, 81.0_dp, 80.918993900_dp, 0.000005265_dp, 82.0_dp, 81.918209023_dp, 0.000003230_dp, 83.0_dp, 82.915114181_dp, 0.000002500_dp, 84.0_dp, 83.914375223_dp, 0.000002355_dp, 85.0_dp, 84.91178973604_dp, 0.00000000537_dp, 86.0_dp, 85.911167443_dp, 0.000000214_dp, 87.0_dp, 86.909180529_dp, 0.000000006_dp, 88.0_dp, 87.911315590_dp, 0.000000170_dp, 89.0_dp, 88.912278136_dp, 0.000005825_dp, 90.0_dp, 89.914797557_dp, 0.000006926_dp, 91.0_dp, 90.916537261_dp, 0.000008375_dp, 92.0_dp, 91.919728477_dp, 0.000006573_dp, 93.0_dp, 92.922039334_dp, 0.000008406_dp, 94.0_dp, 93.926394819_dp, 0.000002177_dp, 95.0_dp, 94.929263849_dp, 0.000021733_dp, 96.0_dp, 95.934133398_dp, 0.000003599_dp, 97.0_dp, 96.937177117_dp, 0.000002052_dp, 98.0_dp, 97.941632317_dp, 0.000017265_dp, 99.0_dp, 98.945119190_dp, 0.000004327_dp, 100.0_dp, 99.950331532_dp, 0.000014089_dp, 101.0_dp, 100.954302000_dp, 0.000022000_dp, 102.0_dp, 101.960008000_dp, 0.000089000_dp, 103.0_dp, 102.964401_dp, 0.000429_dp, 104.0_dp, 103.970531_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Re_naw = naw_type(41, transpose(reshape([159.0_dp, 158.984106_dp, 0.000327_dp, 160.0_dp, 159.981880_dp, 0.000322_dp, 161.0_dp, 160.977624313_dp, 0.000160930_dp, 162.0_dp, 161.975896_dp, 0.000215_dp, 163.0_dp, 162.972085434_dp, 0.000019897_dp, 164.0_dp, 163.970507122_dp, 0.000058566_dp, 165.0_dp, 164.967085831_dp, 0.000025328_dp, 166.0_dp, 165.965821216_dp, 0.000094731_dp, 167.0_dp, 166.962604_dp, 0.000043_dp, 168.0_dp, 167.961572607_dp, 0.000033087_dp, 169.0_dp, 168.958765979_dp, 0.000012204_dp, 170.0_dp, 169.958234844_dp, 0.000012267_dp, 171.0_dp, 170.955716000_dp, 0.000030000_dp, 172.0_dp, 171.955376165_dp, 0.000038183_dp, 173.0_dp, 172.953243000_dp, 0.000030000_dp, 174.0_dp, 173.953115000_dp, 0.000030000_dp, 175.0_dp, 174.951381000_dp, 0.000030000_dp, 176.0_dp, 175.951623000_dp, 0.000030000_dp, 177.0_dp, 176.950328000_dp, 0.000030000_dp, 178.0_dp, 177.950989000_dp, 0.000030000_dp, 179.0_dp, 178.949989686_dp, 0.000026450_dp, 180.0_dp, 179.950791568_dp, 0.000022965_dp, 181.0_dp, 180.950061507_dp, 0.000013471_dp, 182.0_dp, 181.951211560_dp, 0.000109483_dp, 183.0_dp, 182.950821306_dp, 0.000008625_dp, 184.0_dp, 183.952528073_dp, 0.000004590_dp, 185.0_dp, 184.952958320_dp, 0.000000879_dp, 186.0_dp, 185.954989172_dp, 0.000000880_dp, 187.0_dp, 186.955752217_dp, 0.000000791_dp, 188.0_dp, 187.958113658_dp, 0.000000792_dp, 189.0_dp, 188.959227764_dp, 0.000008793_dp, 190.0_dp, 189.961800064_dp, 0.000005227_dp, 191.0_dp, 190.963123322_dp, 0.000011019_dp, 192.0_dp, 191.966088000_dp, 0.000076000_dp, 193.0_dp, 192.967545000_dp, 0.000042000_dp, 194.0_dp, 193.970735_dp, 0.000215_dp, 195.0_dp, 194.972560_dp, 0.000322_dp, 196.0_dp, 195.975996_dp, 0.000322_dp, 197.0_dp, 196.978153_dp, 0.000322_dp, 198.0_dp, 197.981760_dp, 0.000429_dp, 199.0_dp, 198.984187_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Rf_naw = naw_type(16, transpose(reshape([253.0_dp, 253.100528_dp, 0.000440_dp, 254.0_dp, 254.100055_dp, 0.000304_dp, 255.0_dp, 255.101267_dp, 0.000194_dp, 256.0_dp, 256.101151464_dp, 0.000019160_dp, 257.0_dp, 257.102916796_dp, 0.000011612_dp, 258.0_dp, 258.103429895_dp, 0.000017288_dp, 259.0_dp, 259.105601_dp, 0.000078_dp, 260.0_dp, 260.106440_dp, 0.000215_dp, 261.0_dp, 261.108769591_dp, 0.000070492_dp, 262.0_dp, 262.109923_dp, 0.000240_dp, 263.0_dp, 263.112461_dp, 0.000164_dp, 264.0_dp, 264.113876_dp, 0.000387_dp, 265.0_dp, 265.116683_dp, 0.000387_dp, 266.0_dp, 266.118236_dp, 0.000443_dp, 267.0_dp, 267.121787_dp, 0.000617_dp, 268.0_dp, 268.123968_dp, 0.000711_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Rg_naw = naw_type(15, transpose(reshape([272.0_dp, 272.153273_dp, 0.000251_dp, 273.0_dp, 273.153393_dp, 0.000429_dp, 274.0_dp, 274.155247_dp, 0.000225_dp, 275.0_dp, 275.156088_dp, 0.000479_dp, 276.0_dp, 276.158226_dp, 0.000675_dp, 277.0_dp, 277.159322_dp, 0.000504_dp, 278.0_dp, 278.161590_dp, 0.000417_dp, 279.0_dp, 279.162880_dp, 0.000453_dp, 280.0_dp, 280.165204_dp, 0.000571_dp, 281.0_dp, 281.166757_dp, 0.000831_dp, 282.0_dp, 282.169343_dp, 0.000631_dp, 283.0_dp, 283.171101_dp, 0.000728_dp, 284.0_dp, 284.173882_dp, 0.000537_dp, 285.0_dp, 285.175771_dp, 0.000644_dp, 286.0_dp, 286.178756_dp, 0.000492_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Rh_naw = naw_type(41, transpose(reshape([88.0_dp, 87.960429_dp, 0.000429_dp, 89.0_dp, 88.950992_dp, 0.000387_dp, 90.0_dp, 89.944569_dp, 0.000215_dp, 91.0_dp, 90.937123_dp, 0.000320_dp, 92.0_dp, 91.932367692_dp, 0.000004700_dp, 93.0_dp, 92.925912778_dp, 0.000002821_dp, 94.0_dp, 93.921730450_dp, 0.000003627_dp, 95.0_dp, 94.915897893_dp, 0.000004171_dp, 96.0_dp, 95.914451705_dp, 0.000010737_dp, 97.0_dp, 96.911327872_dp, 0.000038071_dp, 98.0_dp, 97.910707734_dp, 0.000012782_dp, 99.0_dp, 98.908121241_dp, 0.000020881_dp, 100.0_dp, 99.908114147_dp, 0.000019458_dp, 101.0_dp, 100.906158903_dp, 0.000006270_dp, 102.0_dp, 101.906834282_dp, 0.000006880_dp, 103.0_dp, 102.905494081_dp, 0.000002470_dp, 104.0_dp, 103.906645309_dp, 0.000002471_dp, 105.0_dp, 104.905687787_dp, 0.000002685_dp, 106.0_dp, 105.907285879_dp, 0.000005786_dp, 107.0_dp, 106.906747975_dp, 0.000012937_dp, 108.0_dp, 107.908715304_dp, 0.000015026_dp, 109.0_dp, 108.908749555_dp, 0.000004336_dp, 110.0_dp, 109.911079745_dp, 0.000019114_dp, 111.0_dp, 110.911643164_dp, 0.000007356_dp, 112.0_dp, 111.914405199_dp, 0.000047327_dp, 113.0_dp, 112.915440212_dp, 0.000007656_dp, 114.0_dp, 113.918721680_dp, 0.000076824_dp, 115.0_dp, 114.920311649_dp, 0.000007857_dp, 116.0_dp, 115.924062060_dp, 0.000079261_dp, 117.0_dp, 116.926036291_dp, 0.000009548_dp, 118.0_dp, 117.930341116_dp, 0.000026018_dp, 119.0_dp, 118.932556951_dp, 0.000010000_dp, 120.0_dp, 119.937069_dp, 0.000215_dp, 121.0_dp, 120.939613000_dp, 0.000665000_dp, 122.0_dp, 121.944305_dp, 0.000322_dp, 123.0_dp, 122.947192_dp, 0.000429_dp, 124.0_dp, 123.952002_dp, 0.000429_dp, 125.0_dp, 124.955094_dp, 0.000537_dp, 126.0_dp, 125.960064_dp, 0.000537_dp, 127.0_dp, 126.963789_dp, 0.000644_dp, 128.0_dp, 127.970649_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Rn_naw = naw_type(39, transpose(reshape([193.0_dp, 193.009707973_dp, 0.000026958_dp, 194.0_dp, 194.006145636_dp, 0.000017884_dp, 195.0_dp, 195.005421703_dp, 0.000055487_dp, 196.0_dp, 196.002120431_dp, 0.000015087_dp, 197.0_dp, 197.001621446_dp, 0.000017383_dp, 198.0_dp, 197.998679197_dp, 0.000014406_dp, 199.0_dp, 198.998325436_dp, 0.000007833_dp, 200.0_dp, 199.995705335_dp, 0.000006217_dp, 201.0_dp, 200.995590511_dp, 0.000010865_dp, 202.0_dp, 201.993263982_dp, 0.000018808_dp, 203.0_dp, 202.993361155_dp, 0.000006242_dp, 204.0_dp, 203.991443729_dp, 0.000007991_dp, 205.0_dp, 204.991723228_dp, 0.000005453_dp, 206.0_dp, 205.990195409_dp, 0.000009223_dp, 207.0_dp, 206.990730224_dp, 0.000005090_dp, 208.0_dp, 207.989634513_dp, 0.000010910_dp, 209.0_dp, 208.990401389_dp, 0.000010692_dp, 210.0_dp, 209.989688862_dp, 0.000004892_dp, 211.0_dp, 210.990600767_dp, 0.000007314_dp, 212.0_dp, 211.990703946_dp, 0.000003338_dp, 213.0_dp, 212.993885147_dp, 0.000003618_dp, 214.0_dp, 213.995362650_dp, 0.000009862_dp, 215.0_dp, 214.998745037_dp, 0.000006538_dp, 216.0_dp, 216.000271942_dp, 0.000006192_dp, 217.0_dp, 217.003927632_dp, 0.000004506_dp, 218.0_dp, 218.005601123_dp, 0.000002486_dp, 219.0_dp, 219.009478683_dp, 0.000002254_dp, 220.0_dp, 220.011392443_dp, 0.000001947_dp, 221.0_dp, 221.015535637_dp, 0.000006134_dp, 222.0_dp, 222.017576017_dp, 0.000002086_dp, 223.0_dp, 223.021889283_dp, 0.000008397_dp, 224.0_dp, 224.024095803_dp, 0.000010536_dp, 225.0_dp, 225.028485572_dp, 0.000011958_dp, 226.0_dp, 226.030861380_dp, 0.000011247_dp, 227.0_dp, 227.035304393_dp, 0.000015127_dp, 228.0_dp, 228.037835415_dp, 0.000018977_dp, 229.0_dp, 229.042257272_dp, 0.000014000_dp, 230.0_dp, 230.045271_dp, 0.000215_dp, 231.0_dp, 231.049973_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ru_naw = naw_type(41, transpose(reshape([85.0_dp, 84.967117_dp, 0.000537_dp, 86.0_dp, 85.957305_dp, 0.000429_dp, 87.0_dp, 86.950907_dp, 0.000429_dp, 88.0_dp, 87.941664_dp, 0.000322_dp, 89.0_dp, 88.937337849_dp, 0.000026000_dp, 90.0_dp, 89.930344378_dp, 0.000004004_dp, 91.0_dp, 90.926741530_dp, 0.000002384_dp, 92.0_dp, 91.920234373_dp, 0.000002917_dp, 93.0_dp, 92.917104442_dp, 0.000002216_dp, 94.0_dp, 93.911342860_dp, 0.000003374_dp, 95.0_dp, 94.910404415_dp, 0.000010200_dp, 96.0_dp, 95.907588910_dp, 0.000000182_dp, 97.0_dp, 96.907545776_dp, 0.000002965_dp, 98.0_dp, 97.905286709_dp, 0.000006937_dp, 99.0_dp, 98.905930284_dp, 0.000000368_dp, 100.0_dp, 99.904210460_dp, 0.000000367_dp, 101.0_dp, 100.905573086_dp, 0.000000443_dp, 102.0_dp, 101.904340312_dp, 0.000000446_dp, 103.0_dp, 102.906314846_dp, 0.000000473_dp, 104.0_dp, 103.905425312_dp, 0.000002682_dp, 105.0_dp, 104.907745478_dp, 0.000002683_dp, 106.0_dp, 105.907328181_dp, 0.000005787_dp, 107.0_dp, 106.909969837_dp, 0.000009310_dp, 108.0_dp, 107.910185793_dp, 0.000009318_dp, 109.0_dp, 108.913323707_dp, 0.000009612_dp, 110.0_dp, 109.914038501_dp, 0.000009580_dp, 111.0_dp, 110.917567566_dp, 0.000010394_dp, 112.0_dp, 111.918806922_dp, 0.000010305_dp, 113.0_dp, 112.922846729_dp, 0.000041097_dp, 114.0_dp, 113.924614430_dp, 0.000003817_dp, 115.0_dp, 114.929033049_dp, 0.000027016_dp, 116.0_dp, 115.931219191_dp, 0.000004000_dp, 117.0_dp, 116.936135000_dp, 0.000465000_dp, 118.0_dp, 117.938808_dp, 0.000215_dp, 119.0_dp, 118.944090_dp, 0.000322_dp, 120.0_dp, 119.946623_dp, 0.000429_dp, 121.0_dp, 120.952098_dp, 0.000429_dp, 122.0_dp, 121.955147_dp, 0.000537_dp, 123.0_dp, 122.960762_dp, 0.000537_dp, 124.0_dp, 123.963940_dp, 0.000644_dp, 125.0_dp, 124.969544_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: S_naw = naw_type(24, transpose(reshape([26.0_dp, 26.029716_dp, 0.000644_dp, 27.0_dp, 27.018777_dp, 0.000430_dp, 28.0_dp, 28.004372762_dp, 0.000171767_dp, 29.0_dp, 28.996678000_dp, 0.000014000_dp, 30.0_dp, 29.984906770_dp, 0.000000221_dp, 31.0_dp, 30.979557002_dp, 0.000000246_dp, 32.0_dp, 31.97207117354_dp, 0.00000000141_dp, 33.0_dp, 32.97145890862_dp, 0.00000000144_dp, 34.0_dp, 33.967867011_dp, 0.000000047_dp, 35.0_dp, 34.969032321_dp, 0.000000043_dp, 36.0_dp, 35.967080692_dp, 0.000000201_dp, 37.0_dp, 36.971125500_dp, 0.000000212_dp, 38.0_dp, 37.971163300_dp, 0.000007699_dp, 39.0_dp, 38.975133850_dp, 0.000053677_dp, 40.0_dp, 39.975482561_dp, 0.000004274_dp, 41.0_dp, 40.979593451_dp, 0.000004400_dp, 42.0_dp, 41.981065100_dp, 0.000003000_dp, 43.0_dp, 42.986907635_dp, 0.000005335_dp, 44.0_dp, 43.990118846_dp, 0.000005600_dp, 45.0_dp, 44.996414_dp, 0.000322_dp, 46.0_dp, 46.000687_dp, 0.000429_dp, 47.0_dp, 47.007730_dp, 0.000429_dp, 48.0_dp, 48.013301_dp, 0.000537_dp, 49.0_dp, 49.021891_dp, 0.000626_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sb_naw = naw_type(41, transpose(reshape([102.0_dp, 101.945142_dp, 0.000429_dp, 103.0_dp, 102.939162_dp, 0.000322_dp, 104.0_dp, 103.936344_dp, 0.000109_dp, 105.0_dp, 104.931276547_dp, 0.000023431_dp, 106.0_dp, 105.928637979_dp, 0.000008000_dp, 107.0_dp, 106.924150621_dp, 0.000004452_dp, 108.0_dp, 107.922226731_dp, 0.000005900_dp, 109.0_dp, 108.918141203_dp, 0.000005652_dp, 110.0_dp, 109.916854283_dp, 0.000006400_dp, 111.0_dp, 110.913218187_dp, 0.000009500_dp, 112.0_dp, 111.912399903_dp, 0.000019140_dp, 113.0_dp, 112.909374664_dp, 0.000018457_dp, 114.0_dp, 113.909289155_dp, 0.000021226_dp, 115.0_dp, 114.906598000_dp, 0.000017203_dp, 116.0_dp, 115.906792732_dp, 0.000005533_dp, 117.0_dp, 116.904841519_dp, 0.000009057_dp, 118.0_dp, 117.905532194_dp, 0.000003237_dp, 119.0_dp, 118.903944062_dp, 0.000007512_dp, 120.0_dp, 119.905080308_dp, 0.000007728_dp, 121.0_dp, 120.903811353_dp, 0.000002690_dp, 122.0_dp, 121.905169335_dp, 0.000002687_dp, 123.0_dp, 122.904215292_dp, 0.000001456_dp, 124.0_dp, 123.905937065_dp, 0.000001457_dp, 125.0_dp, 124.905254264_dp, 0.000002700_dp, 126.0_dp, 125.907253158_dp, 0.000034189_dp, 127.0_dp, 126.906925557_dp, 0.000005457_dp, 128.0_dp, 127.909146121_dp, 0.000020169_dp, 129.0_dp, 128.909146623_dp, 0.000022786_dp, 130.0_dp, 129.911662686_dp, 0.000015257_dp, 131.0_dp, 130.911989339_dp, 0.000002236_dp, 132.0_dp, 131.914508013_dp, 0.000002648_dp, 133.0_dp, 132.915272128_dp, 0.000003357_dp, 134.0_dp, 133.920537334_dp, 0.000003300_dp, 135.0_dp, 134.925184354_dp, 0.000002834_dp, 136.0_dp, 135.930749009_dp, 0.000006258_dp, 137.0_dp, 136.935522519_dp, 0.000056000_dp, 138.0_dp, 137.941331_dp, 0.000322_dp, 139.0_dp, 138.946269_dp, 0.000429_dp, 140.0_dp, 139.952345_dp, 0.000644_dp, 141.0_dp, 140.957552_dp, 0.000537_dp, 142.0_dp, 141.963918_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sc_naw = naw_type(29, transpose(reshape([35.0_dp, 35.029093_dp, 0.000429_dp, 36.0_dp, 36.017338_dp, 0.000322_dp, 37.0_dp, 37.004058_dp, 0.000322_dp, 38.0_dp, 37.995438_dp, 0.000215_dp, 39.0_dp, 38.984784953_dp, 0.000025765_dp, 40.0_dp, 39.977967275_dp, 0.000003036_dp, 41.0_dp, 40.969251163_dp, 0.000000083_dp, 42.0_dp, 41.965516686_dp, 0.000000165_dp, 43.0_dp, 42.961150425_dp, 0.000001999_dp, 44.0_dp, 43.959402818_dp, 0.000001884_dp, 45.0_dp, 44.955907051_dp, 0.000000712_dp, 46.0_dp, 45.955167034_dp, 0.000000720_dp, 47.0_dp, 46.952402444_dp, 0.000002072_dp, 48.0_dp, 47.952222903_dp, 0.000005313_dp, 49.0_dp, 48.950013159_dp, 0.000002434_dp, 50.0_dp, 49.952187437_dp, 0.000002700_dp, 51.0_dp, 50.953568838_dp, 0.000002700_dp, 52.0_dp, 51.956496170_dp, 0.000003300_dp, 53.0_dp, 52.958379173_dp, 0.000019000_dp, 54.0_dp, 53.963029359_dp, 0.000015000_dp, 55.0_dp, 54.966889637_dp, 0.000067000_dp, 56.0_dp, 55.972607611_dp, 0.000278761_dp, 57.0_dp, 56.977048000_dp, 0.000193000_dp, 58.0_dp, 57.983382000_dp, 0.000204000_dp, 59.0_dp, 58.988374000_dp, 0.000268000_dp, 60.0_dp, 59.995115_dp, 0.000537_dp, 61.0_dp, 61.000537_dp, 0.000644_dp, 62.0_dp, 62.007848_dp, 0.000644_dp, 63.0_dp, 63.014031_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Se_naw = naw_type(33, transpose(reshape([63.0_dp, 62.981911_dp, 0.000537_dp, 64.0_dp, 63.971165_dp, 0.000537_dp, 65.0_dp, 64.964552_dp, 0.000322_dp, 66.0_dp, 65.955276_dp, 0.000215_dp, 67.0_dp, 66.949994000_dp, 0.000072000_dp, 68.0_dp, 67.941825236_dp, 0.000000532_dp, 69.0_dp, 68.939414845_dp, 0.000001599_dp, 70.0_dp, 69.933515521_dp, 0.000001700_dp, 71.0_dp, 70.932209431_dp, 0.000003000_dp, 72.0_dp, 71.927140506_dp, 0.000002100_dp, 73.0_dp, 72.926754881_dp, 0.000007969_dp, 74.0_dp, 73.922475933_dp, 0.000000015_dp, 75.0_dp, 74.922522870_dp, 0.000000078_dp, 76.0_dp, 75.919213702_dp, 0.000000017_dp, 77.0_dp, 76.919914150_dp, 0.000000067_dp, 78.0_dp, 77.917309244_dp, 0.000000191_dp, 79.0_dp, 78.918499252_dp, 0.000000238_dp, 80.0_dp, 79.916521761_dp, 0.000001016_dp, 81.0_dp, 80.917993019_dp, 0.000001049_dp, 82.0_dp, 81.916699531_dp, 0.000000500_dp, 83.0_dp, 82.919118604_dp, 0.000003259_dp, 84.0_dp, 83.918466761_dp, 0.000002105_dp, 85.0_dp, 84.922260758_dp, 0.000002804_dp, 86.0_dp, 85.924311732_dp, 0.000002705_dp, 87.0_dp, 86.928688616_dp, 0.000002405_dp, 88.0_dp, 87.931417490_dp, 0.000003604_dp, 89.0_dp, 88.936669058_dp, 0.000004003_dp, 90.0_dp, 89.940096000_dp, 0.000354000_dp, 91.0_dp, 90.945700000_dp, 0.000465000_dp, 92.0_dp, 91.949840_dp, 0.000429_dp, 93.0_dp, 92.956135_dp, 0.000429_dp, 94.0_dp, 93.960490_dp, 0.000537_dp, 95.0_dp, 94.967300_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sg_naw = naw_type(16, transpose(reshape([258.0_dp, 258.113040_dp, 0.000443_dp, 259.0_dp, 259.114353_dp, 0.000194_dp, 260.0_dp, 260.114383435_dp, 0.000022045_dp, 261.0_dp, 261.115948135_dp, 0.000019853_dp, 262.0_dp, 262.116338978_dp, 0.000023797_dp, 263.0_dp, 263.118299_dp, 0.000101_dp, 264.0_dp, 264.118930_dp, 0.000304_dp, 265.0_dp, 265.121089_dp, 0.000149_dp, 266.0_dp, 266.121973_dp, 0.000263_dp, 267.0_dp, 267.124323_dp, 0.000281_dp, 268.0_dp, 268.125389_dp, 0.000504_dp, 269.0_dp, 269.128495_dp, 0.000395_dp, 270.0_dp, 270.130362_dp, 0.000492_dp, 271.0_dp, 271.133782_dp, 0.000634_dp, 272.0_dp, 272.135825_dp, 0.000743_dp, 273.0_dp, 273.139475_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Si_naw = naw_type(24, transpose(reshape([22.0_dp, 22.036114_dp, 0.000537_dp, 23.0_dp, 23.025711_dp, 0.000537_dp, 24.0_dp, 24.011535430_dp, 0.000020904_dp, 25.0_dp, 25.004108798_dp, 0.000010735_dp, 26.0_dp, 25.992333818_dp, 0.000000115_dp, 27.0_dp, 26.986704687_dp, 0.000000115_dp, 28.0_dp, 27.97692653442_dp, 0.00000000055_dp, 29.0_dp, 28.97649466434_dp, 0.00000000060_dp, 30.0_dp, 29.973770137_dp, 0.000000023_dp, 31.0_dp, 30.975363196_dp, 0.000000046_dp, 32.0_dp, 31.974151538_dp, 0.000000320_dp, 33.0_dp, 32.977976964_dp, 0.000000750_dp, 34.0_dp, 33.978538045_dp, 0.000000860_dp, 35.0_dp, 34.984550111_dp, 0.000038494_dp, 36.0_dp, 35.986649271_dp, 0.000077077_dp, 37.0_dp, 36.992945191_dp, 0.000122179_dp, 38.0_dp, 37.995523000_dp, 0.000112500_dp, 39.0_dp, 39.002491000_dp, 0.000145500_dp, 40.0_dp, 40.006083641_dp, 0.000130962_dp, 41.0_dp, 41.014171_dp, 0.000322_dp, 42.0_dp, 42.018078_dp, 0.000322_dp, 43.0_dp, 43.026119_dp, 0.000429_dp, 44.0_dp, 44.031466_dp, 0.000537_dp, 45.0_dp, 45.039818_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sm_naw = naw_type(41, transpose(reshape([128.0_dp, 127.957971_dp, 0.000537_dp, 129.0_dp, 128.954557_dp, 0.000537_dp, 130.0_dp, 129.948792_dp, 0.000429_dp, 131.0_dp, 130.946022_dp, 0.000429_dp, 132.0_dp, 131.940805_dp, 0.000322_dp, 133.0_dp, 132.938560_dp, 0.000320_dp, 134.0_dp, 133.934110_dp, 0.000210_dp, 135.0_dp, 134.932520000_dp, 0.000166000_dp, 136.0_dp, 135.928275553_dp, 0.000013416_dp, 137.0_dp, 136.927007959_dp, 0.000030718_dp, 138.0_dp, 137.923243988_dp, 0.000012686_dp, 139.0_dp, 138.922296631_dp, 0.000011684_dp, 140.0_dp, 139.918994714_dp, 0.000013416_dp, 141.0_dp, 140.918481545_dp, 0.000009162_dp, 142.0_dp, 141.915209415_dp, 0.000002002_dp, 143.0_dp, 142.914634848_dp, 0.000002951_dp, 144.0_dp, 143.912006285_dp, 0.000001566_dp, 145.0_dp, 144.913417157_dp, 0.000001594_dp, 146.0_dp, 145.913046835_dp, 0.000003269_dp, 147.0_dp, 146.914904401_dp, 0.000001354_dp, 148.0_dp, 147.914829233_dp, 0.000001337_dp, 149.0_dp, 148.917191211_dp, 0.000001241_dp, 150.0_dp, 149.917281993_dp, 0.000001193_dp, 151.0_dp, 150.919938859_dp, 0.000001191_dp, 152.0_dp, 151.919738646_dp, 0.000001090_dp, 153.0_dp, 152.922103576_dp, 0.000001100_dp, 154.0_dp, 153.922215756_dp, 0.000001400_dp, 155.0_dp, 154.924646645_dp, 0.000001429_dp, 156.0_dp, 155.925538191_dp, 0.000009148_dp, 157.0_dp, 156.928418598_dp, 0.000004759_dp, 158.0_dp, 157.929949262_dp, 0.000005133_dp, 159.0_dp, 158.933217130_dp, 0.000006370_dp, 160.0_dp, 159.935337032_dp, 0.000002100_dp, 161.0_dp, 160.939160062_dp, 0.000007318_dp, 162.0_dp, 161.941621687_dp, 0.000003782_dp, 163.0_dp, 162.945679085_dp, 0.000007900_dp, 164.0_dp, 163.948550061_dp, 0.000004400_dp, 165.0_dp, 164.953290_dp, 0.000429_dp, 166.0_dp, 165.956575_dp, 0.000429_dp, 167.0_dp, 166.962072_dp, 0.000537_dp, 168.0_dp, 167.966033_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sn_naw = naw_type(42, transpose(reshape([99.0_dp, 98.948495_dp, 0.000625_dp, 100.0_dp, 99.938648944_dp, 0.000257661_dp, 101.0_dp, 100.935259252_dp, 0.000322068_dp, 102.0_dp, 101.930289525_dp, 0.000107466_dp, 103.0_dp, 102.927973_dp, 0.000108_dp, 104.0_dp, 103.923105195_dp, 0.000006167_dp, 105.0_dp, 104.921268421_dp, 0.000004263_dp, 106.0_dp, 105.916957394_dp, 0.000005465_dp, 107.0_dp, 106.915713649_dp, 0.000005700_dp, 108.0_dp, 107.911894290_dp, 0.000005778_dp, 109.0_dp, 108.911292857_dp, 0.000008533_dp, 110.0_dp, 109.907844835_dp, 0.000014790_dp, 111.0_dp, 110.907741143_dp, 0.000005728_dp, 112.0_dp, 111.904824894_dp, 0.000000315_dp, 113.0_dp, 112.905175857_dp, 0.000001690_dp, 114.0_dp, 113.902780130_dp, 0.000000031_dp, 115.0_dp, 114.903344695_dp, 0.000000016_dp, 116.0_dp, 115.901742825_dp, 0.000000103_dp, 117.0_dp, 116.902954036_dp, 0.000000518_dp, 118.0_dp, 117.901606630_dp, 0.000000536_dp, 119.0_dp, 118.903311266_dp, 0.000000778_dp, 120.0_dp, 119.902202557_dp, 0.000000987_dp, 121.0_dp, 120.904243488_dp, 0.000001050_dp, 122.0_dp, 121.903445494_dp, 0.000002627_dp, 123.0_dp, 122.905727065_dp, 0.000002661_dp, 124.0_dp, 123.905279619_dp, 0.000001410_dp, 125.0_dp, 124.907789370_dp, 0.000001426_dp, 126.0_dp, 125.907658958_dp, 0.000011473_dp, 127.0_dp, 126.910391726_dp, 0.000009904_dp, 128.0_dp, 127.910507828_dp, 0.000018982_dp, 129.0_dp, 128.913482440_dp, 0.000018540_dp, 130.0_dp, 129.913974531_dp, 0.000002010_dp, 131.0_dp, 130.917053067_dp, 0.000003887_dp, 132.0_dp, 131.917823898_dp, 0.000002121_dp, 133.0_dp, 132.923913753_dp, 0.000002043_dp, 134.0_dp, 133.928680430_dp, 0.000003400_dp, 135.0_dp, 134.934908603_dp, 0.000003300_dp, 136.0_dp, 135.939699_dp, 0.000215_dp, 137.0_dp, 136.946162_dp, 0.000322_dp, 138.0_dp, 137.951143_dp, 0.000429_dp, 139.0_dp, 138.957799_dp, 0.000429_dp, 140.0_dp, 139.962973_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Sr_naw = naw_type(35, transpose(reshape([73.0_dp, 72.965700_dp, 0.000430_dp, 74.0_dp, 73.956170_dp, 0.000107_dp, 75.0_dp, 74.949952767_dp, 0.000236183_dp, 76.0_dp, 75.941762760_dp, 0.000037000_dp, 77.0_dp, 76.937945454_dp, 0.000008500_dp, 78.0_dp, 77.932179979_dp, 0.000008000_dp, 79.0_dp, 78.929704692_dp, 0.000007967_dp, 80.0_dp, 79.924517538_dp, 0.000003718_dp, 81.0_dp, 80.923211393_dp, 0.000003358_dp, 82.0_dp, 81.918399845_dp, 0.000006432_dp, 83.0_dp, 82.917554372_dp, 0.000007336_dp, 84.0_dp, 83.913419118_dp, 0.000001334_dp, 85.0_dp, 84.912932041_dp, 0.000003020_dp, 86.0_dp, 85.90926072473_dp, 0.00000000563_dp, 87.0_dp, 86.90887749454_dp, 0.00000000550_dp, 88.0_dp, 87.905612253_dp, 0.000000006_dp, 89.0_dp, 88.907450808_dp, 0.000000098_dp, 90.0_dp, 89.907727870_dp, 0.000001555_dp, 91.0_dp, 90.910195942_dp, 0.000005853_dp, 92.0_dp, 91.911038222_dp, 0.000003675_dp, 93.0_dp, 92.914024314_dp, 0.000008109_dp, 94.0_dp, 93.915355641_dp, 0.000001785_dp, 95.0_dp, 94.919358282_dp, 0.000006237_dp, 96.0_dp, 95.921719045_dp, 0.000009089_dp, 97.0_dp, 96.926375621_dp, 0.000003633_dp, 98.0_dp, 97.928692636_dp, 0.000003463_dp, 99.0_dp, 98.932883604_dp, 0.000005085_dp, 100.0_dp, 99.935783270_dp, 0.000007426_dp, 101.0_dp, 100.940606264_dp, 0.000009103_dp, 102.0_dp, 101.944004679_dp, 0.000072000_dp, 103.0_dp, 102.949243_dp, 0.000215_dp, 104.0_dp, 103.953022_dp, 0.000322_dp, 105.0_dp, 104.959001_dp, 0.000537_dp, 106.0_dp, 105.963177_dp, 0.000644_dp, 107.0_dp, 106.969672_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ta_naw = naw_type(40, transpose(reshape([155.0_dp, 154.974248_dp, 0.000322_dp, 156.0_dp, 155.972087_dp, 0.000322_dp, 157.0_dp, 156.968227445_dp, 0.000161087_dp, 158.0_dp, 157.966593_dp, 0.000215_dp, 159.0_dp, 158.963028046_dp, 0.000021137_dp, 160.0_dp, 159.961541678_dp, 0.000058310_dp, 161.0_dp, 160.958369489_dp, 0.000026174_dp, 162.0_dp, 161.957292907_dp, 0.000067979_dp, 163.0_dp, 162.954337194_dp, 0.000040860_dp, 164.0_dp, 163.953534000_dp, 0.000030000_dp, 165.0_dp, 164.950780287_dp, 0.000014571_dp, 166.0_dp, 165.950512000_dp, 0.000030000_dp, 167.0_dp, 166.948093000_dp, 0.000030000_dp, 168.0_dp, 167.948047000_dp, 0.000030000_dp, 169.0_dp, 168.946011000_dp, 0.000030000_dp, 170.0_dp, 169.946175000_dp, 0.000030000_dp, 171.0_dp, 170.944476000_dp, 0.000030000_dp, 172.0_dp, 171.944895000_dp, 0.000030000_dp, 173.0_dp, 172.943750000_dp, 0.000030000_dp, 174.0_dp, 173.944454000_dp, 0.000030000_dp, 175.0_dp, 174.943737000_dp, 0.000030000_dp, 176.0_dp, 175.944857000_dp, 0.000033000_dp, 177.0_dp, 176.944481940_dp, 0.000003558_dp, 178.0_dp, 177.945680_dp, 0.000056_dp, 179.0_dp, 178.945939050_dp, 0.000001574_dp, 180.0_dp, 179.947467589_dp, 0.000002219_dp, 181.0_dp, 180.947998528_dp, 0.000001692_dp, 182.0_dp, 181.950154612_dp, 0.000001693_dp, 183.0_dp, 182.951375380_dp, 0.000001707_dp, 184.0_dp, 183.954009958_dp, 0.000027923_dp, 185.0_dp, 184.955561317_dp, 0.000015202_dp, 186.0_dp, 185.958553036_dp, 0.000064425_dp, 187.0_dp, 186.960391000_dp, 0.000060000_dp, 188.0_dp, 187.963596_dp, 0.000215_dp, 189.0_dp, 188.965690_dp, 0.000215_dp, 190.0_dp, 189.969168_dp, 0.000215_dp, 191.0_dp, 190.971530_dp, 0.000322_dp, 192.0_dp, 191.975201_dp, 0.000429_dp, 193.0_dp, 192.977660_dp, 0.000429_dp, 194.0_dp, 193.981610_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Tb_naw = naw_type(40, transpose(reshape([135.0_dp, 134.964516_dp, 0.000429_dp, 136.0_dp, 135.961460_dp, 0.000537_dp, 137.0_dp, 136.956020_dp, 0.000430_dp, 138.0_dp, 137.953193_dp, 0.000322_dp, 139.0_dp, 138.948330_dp, 0.000320_dp, 140.0_dp, 139.945805048_dp, 0.000859359_dp, 141.0_dp, 140.941448000_dp, 0.000113000_dp, 142.0_dp, 141.939280858_dp, 0.000752079_dp, 143.0_dp, 142.935137332_dp, 0.000055000_dp, 144.0_dp, 143.933045000_dp, 0.000030000_dp, 145.0_dp, 144.928717001_dp, 0.000119051_dp, 146.0_dp, 145.927252739_dp, 0.000048159_dp, 147.0_dp, 146.924054620_dp, 0.000008691_dp, 148.0_dp, 147.924275476_dp, 0.000013379_dp, 149.0_dp, 148.923253792_dp, 0.000003895_dp, 150.0_dp, 149.923664799_dp, 0.000007912_dp, 151.0_dp, 150.923108970_dp, 0.000004395_dp, 152.0_dp, 151.924081855_dp, 0.000042955_dp, 153.0_dp, 152.923441694_dp, 0.000004237_dp, 154.0_dp, 153.924683681_dp, 0.000048641_dp, 155.0_dp, 154.923509511_dp, 0.000010552_dp, 156.0_dp, 155.924754209_dp, 0.000004044_dp, 157.0_dp, 156.924031888_dp, 0.000001092_dp, 158.0_dp, 157.925419942_dp, 0.000001360_dp, 159.0_dp, 158.925353707_dp, 0.000001184_dp, 160.0_dp, 159.927174553_dp, 0.000001191_dp, 161.0_dp, 160.927576806_dp, 0.000001308_dp, 162.0_dp, 161.929275400_dp, 0.000002200_dp, 163.0_dp, 162.930653609_dp, 0.000004358_dp, 164.0_dp, 163.933327561_dp, 0.000002000_dp, 165.0_dp, 164.934955198_dp, 0.000001654_dp, 166.0_dp, 165.937939727_dp, 0.000001570_dp, 167.0_dp, 166.940007046_dp, 0.000002071_dp, 168.0_dp, 167.943337074_dp, 0.000004500_dp, 169.0_dp, 168.945807_dp, 0.000322_dp, 170.0_dp, 169.949855_dp, 0.000322_dp, 171.0_dp, 170.953011_dp, 0.000429_dp, 172.0_dp, 171.957391_dp, 0.000537_dp, 173.0_dp, 172.960805_dp, 0.000537_dp, 174.0_dp, 173.965679_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Tc_naw = naw_type(40, transpose(reshape([83.0_dp, 82.966377_dp, 0.000537_dp, 84.0_dp, 83.959527_dp, 0.000429_dp, 85.0_dp, 84.950778_dp, 0.000429_dp, 86.0_dp, 85.944637_dp, 0.000322_dp, 87.0_dp, 86.938067185_dp, 0.000004500_dp, 88.0_dp, 87.933794211_dp, 0.000004400_dp, 89.0_dp, 88.927648649_dp, 0.000004100_dp, 90.0_dp, 89.924073919_dp, 0.000001100_dp, 91.0_dp, 90.918424972_dp, 0.000002536_dp, 92.0_dp, 91.915269777_dp, 0.000003330_dp, 93.0_dp, 92.910245147_dp, 0.000001086_dp, 94.0_dp, 93.909652319_dp, 0.000004370_dp, 95.0_dp, 94.907652281_dp, 0.000005453_dp, 96.0_dp, 95.907866675_dp, 0.000005524_dp, 97.0_dp, 96.906360720_dp, 0.000004420_dp, 98.0_dp, 97.907211206_dp, 0.000003628_dp, 99.0_dp, 98.906249681_dp, 0.000000974_dp, 100.0_dp, 99.907652715_dp, 0.000001450_dp, 101.0_dp, 100.907305271_dp, 0.000025768_dp, 102.0_dp, 101.909207239_dp, 0.000009840_dp, 103.0_dp, 102.909173960_dp, 0.000010531_dp, 104.0_dp, 103.911433718_dp, 0.000026716_dp, 105.0_dp, 104.911662024_dp, 0.000037856_dp, 106.0_dp, 105.914356674_dp, 0.000013150_dp, 107.0_dp, 106.915458437_dp, 0.000009310_dp, 108.0_dp, 107.918493493_dp, 0.000009413_dp, 109.0_dp, 108.920254107_dp, 0.000010380_dp, 110.0_dp, 109.923741263_dp, 0.000010195_dp, 111.0_dp, 110.925898966_dp, 0.000011359_dp, 112.0_dp, 111.929941658_dp, 0.000005920_dp, 113.0_dp, 112.932569032_dp, 0.000003600_dp, 114.0_dp, 113.937090000_dp, 0.000465000_dp, 115.0_dp, 114.940100_dp, 0.000210_dp, 116.0_dp, 115.945020_dp, 0.000320_dp, 117.0_dp, 116.948320_dp, 0.000429_dp, 118.0_dp, 117.953526_dp, 0.000429_dp, 119.0_dp, 118.956876_dp, 0.000537_dp, 120.0_dp, 119.962426_dp, 0.000537_dp, 121.0_dp, 120.966140_dp, 0.000537_dp, 122.0_dp, 121.971760_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Te_naw = naw_type(42, transpose(reshape([104.0_dp, 103.946723408_dp, 0.000340967_dp, 105.0_dp, 104.943304516_dp, 0.000322084_dp, 106.0_dp, 105.937498521_dp, 0.000107934_dp, 107.0_dp, 106.934882_dp, 0.000108_dp, 108.0_dp, 107.929380469_dp, 0.000005808_dp, 109.0_dp, 108.927304532_dp, 0.000004704_dp, 110.0_dp, 109.922458102_dp, 0.000007058_dp, 111.0_dp, 110.921000587_dp, 0.000006900_dp, 112.0_dp, 111.916727848_dp, 0.000009000_dp, 113.0_dp, 112.915891000_dp, 0.000030000_dp, 114.0_dp, 113.912087820_dp, 0.000026224_dp, 115.0_dp, 114.911902000_dp, 0.000030000_dp, 116.0_dp, 115.908465558_dp, 0.000025986_dp, 117.0_dp, 116.908646227_dp, 0.000014444_dp, 118.0_dp, 117.905860104_dp, 0.000019652_dp, 119.0_dp, 118.906405699_dp, 0.000007813_dp, 120.0_dp, 119.904065779_dp, 0.000001880_dp, 121.0_dp, 120.904945065_dp, 0.000027734_dp, 122.0_dp, 121.903044708_dp, 0.000001456_dp, 123.0_dp, 122.904271022_dp, 0.000001454_dp, 124.0_dp, 123.902818341_dp, 0.000001451_dp, 125.0_dp, 124.904431178_dp, 0.000001451_dp, 126.0_dp, 125.903312144_dp, 0.000001453_dp, 127.0_dp, 126.905226993_dp, 0.000001465_dp, 128.0_dp, 127.904461237_dp, 0.000000758_dp, 129.0_dp, 128.906596419_dp, 0.000000763_dp, 130.0_dp, 129.906222745_dp, 0.000000011_dp, 131.0_dp, 130.908522210_dp, 0.000000065_dp, 132.0_dp, 131.908546713_dp, 0.000003742_dp, 133.0_dp, 132.910963330_dp, 0.000002218_dp, 134.0_dp, 133.911396376_dp, 0.000002948_dp, 135.0_dp, 134.916554715_dp, 0.000001848_dp, 136.0_dp, 135.920101180_dp, 0.000002448_dp, 137.0_dp, 136.925599354_dp, 0.000002254_dp, 138.0_dp, 137.929472452_dp, 0.000004065_dp, 139.0_dp, 138.935367191_dp, 0.000003800_dp, 140.0_dp, 139.939487057_dp, 0.000015434_dp, 141.0_dp, 140.945604_dp, 0.000429_dp, 142.0_dp, 141.950027_dp, 0.000537_dp, 143.0_dp, 142.956489_dp, 0.000537_dp, 144.0_dp, 143.961116_dp, 0.000322_dp, 145.0_dp, 144.967783_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Th_naw = naw_type(32, transpose(reshape([208.0_dp, 208.017915348_dp, 0.000034208_dp, 209.0_dp, 209.017601_dp, 0.000111_dp, 210.0_dp, 210.015093515_dp, 0.000020299_dp, 211.0_dp, 211.014896923_dp, 0.000092399_dp, 212.0_dp, 212.013001570_dp, 0.000010852_dp, 213.0_dp, 213.013011470_dp, 0.000009895_dp, 214.0_dp, 214.011481480_dp, 0.000011445_dp, 215.0_dp, 215.011724640_dp, 0.000006800_dp, 216.0_dp, 216.011055933_dp, 0.000011920_dp, 217.0_dp, 217.013103443_dp, 0.000011394_dp, 218.0_dp, 218.013276248_dp, 0.000011289_dp, 219.0_dp, 219.015526432_dp, 0.000060611_dp, 220.0_dp, 220.015769866_dp, 0.000014693_dp, 221.0_dp, 221.018185757_dp, 0.000008582_dp, 222.0_dp, 222.018468220_dp, 0.000010966_dp, 223.0_dp, 223.020811083_dp, 0.000008527_dp, 224.0_dp, 224.021466137_dp, 0.000010310_dp, 225.0_dp, 225.023950975_dp, 0.000005467_dp, 226.0_dp, 226.024903699_dp, 0.000004810_dp, 227.0_dp, 227.027702546_dp, 0.000002241_dp, 228.0_dp, 228.028739741_dp, 0.000001938_dp, 229.0_dp, 229.031761357_dp, 0.000002581_dp, 230.0_dp, 230.033132267_dp, 0.000001297_dp, 231.0_dp, 231.036302764_dp, 0.000001306_dp, 232.0_dp, 232.038053606_dp, 0.000001525_dp, 233.0_dp, 233.041580126_dp, 0.000001528_dp, 234.0_dp, 234.043599801_dp, 0.000002779_dp, 235.0_dp, 235.047255000_dp, 0.000014000_dp, 236.0_dp, 236.049657000_dp, 0.000015000_dp, 237.0_dp, 237.053629000_dp, 0.000017000_dp, 238.0_dp, 238.056388_dp, 0.000304_dp, 239.0_dp, 239.060655_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ti_naw = naw_type(29, transpose(reshape([37.0_dp, 37.027021_dp, 0.000429_dp, 38.0_dp, 38.012206_dp, 0.000322_dp, 39.0_dp, 39.002684_dp, 0.000215_dp, 40.0_dp, 39.990345146_dp, 0.000073262_dp, 41.0_dp, 40.983148000_dp, 0.000030000_dp, 42.0_dp, 41.973049369_dp, 0.000000289_dp, 43.0_dp, 42.968528420_dp, 0.000006139_dp, 44.0_dp, 43.959689936_dp, 0.000000751_dp, 45.0_dp, 44.958120758_dp, 0.000000897_dp, 46.0_dp, 45.952626356_dp, 0.000000097_dp, 47.0_dp, 46.951757491_dp, 0.000000085_dp, 48.0_dp, 47.947940677_dp, 0.000000079_dp, 49.0_dp, 48.947864391_dp, 0.000000084_dp, 50.0_dp, 49.944785622_dp, 0.000000088_dp, 51.0_dp, 50.946609468_dp, 0.000000519_dp, 52.0_dp, 51.946883509_dp, 0.000002948_dp, 53.0_dp, 52.949670714_dp, 0.000003100_dp, 54.0_dp, 53.950892000_dp, 0.000017000_dp, 55.0_dp, 54.955091000_dp, 0.000031000_dp, 56.0_dp, 55.957677675_dp, 0.000107569_dp, 57.0_dp, 56.963068098_dp, 0.000221020_dp, 58.0_dp, 57.966808519_dp, 0.000196823_dp, 59.0_dp, 58.972217_dp, 0.000322_dp, 60.0_dp, 59.976275000_dp, 0.000258000_dp, 61.0_dp, 60.982426_dp, 0.000322_dp, 62.0_dp, 61.986903_dp, 0.000429_dp, 63.0_dp, 62.993709_dp, 0.000537_dp, 64.0_dp, 63.998411_dp, 0.000644_dp, 65.0_dp, 65.005593_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Tl_naw = naw_type(43, transpose(reshape([176.0_dp, 176.000627731_dp, 0.000089166_dp, 177.0_dp, 176.996414252_dp, 0.000023218_dp, 178.0_dp, 177.995047_dp, 0.000110_dp, 179.0_dp, 178.991122185_dp, 0.000041495_dp, 180.0_dp, 179.989918950_dp, 0.000075058_dp, 181.0_dp, 180.986259978_dp, 0.000009771_dp, 182.0_dp, 181.985692649_dp, 0.000012856_dp, 183.0_dp, 182.982192843_dp, 0.000010017_dp, 184.0_dp, 183.981874973_dp, 0.000010747_dp, 185.0_dp, 184.978789189_dp, 0.000022194_dp, 186.0_dp, 185.978654787_dp, 0.000022276_dp, 187.0_dp, 186.975904740_dp, 0.000008640_dp, 188.0_dp, 187.976020886_dp, 0.000032103_dp, 189.0_dp, 188.973573525_dp, 0.000008983_dp, 190.0_dp, 189.973841771_dp, 0.000007784_dp, 191.0_dp, 190.971784093_dp, 0.000007889_dp, 192.0_dp, 191.972225000_dp, 0.000034000_dp, 193.0_dp, 192.970501994_dp, 0.000007200_dp, 194.0_dp, 193.971081408_dp, 0.000015000_dp, 195.0_dp, 194.969774052_dp, 0.000011944_dp, 196.0_dp, 195.970481189_dp, 0.000013000_dp, 197.0_dp, 196.969560492_dp, 0.000014573_dp, 198.0_dp, 197.970446669_dp, 0.000008100_dp, 199.0_dp, 198.969877000_dp, 0.000030000_dp, 200.0_dp, 199.970963608_dp, 0.000006182_dp, 201.0_dp, 200.970820235_dp, 0.000015228_dp, 202.0_dp, 201.972108874_dp, 0.000001972_dp, 203.0_dp, 202.972344098_dp, 0.000001257_dp, 204.0_dp, 203.973863420_dp, 0.000001238_dp, 205.0_dp, 204.974427318_dp, 0.000001330_dp, 206.0_dp, 205.976110108_dp, 0.000001380_dp, 207.0_dp, 206.977418605_dp, 0.000005839_dp, 208.0_dp, 207.982018006_dp, 0.000001989_dp, 209.0_dp, 208.985351713_dp, 0.000006559_dp, 210.0_dp, 209.990072942_dp, 0.000012456_dp, 211.0_dp, 210.993475000_dp, 0.000045000_dp, 212.0_dp, 211.998335_dp, 0.000215_dp, 213.0_dp, 213.001915000_dp, 0.000029000_dp, 214.0_dp, 214.006940_dp, 0.000210_dp, 215.0_dp, 215.010768_dp, 0.000322_dp, 216.0_dp, 216.015964_dp, 0.000322_dp, 217.0_dp, 217.020032_dp, 0.000429_dp, 218.0_dp, 218.025454_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Tm_naw = naw_type(39, transpose(reshape([144.0_dp, 143.976211_dp, 0.000429_dp, 145.0_dp, 144.970389_dp, 0.000210_dp, 146.0_dp, 145.966661_dp, 0.000215_dp, 147.0_dp, 146.961379887_dp, 0.000007341_dp, 148.0_dp, 147.958384026_dp, 0.000011000_dp, 149.0_dp, 148.952828_dp, 0.000215_dp, 150.0_dp, 149.950090_dp, 0.000210_dp, 151.0_dp, 150.945494433_dp, 0.000020799_dp, 152.0_dp, 151.944476000_dp, 0.000058000_dp, 153.0_dp, 152.942058023_dp, 0.000012860_dp, 154.0_dp, 153.941570062_dp, 0.000015471_dp, 155.0_dp, 154.939209576_dp, 0.000010651_dp, 156.0_dp, 155.938985746_dp, 0.000015328_dp, 157.0_dp, 156.936973000_dp, 0.000030000_dp, 158.0_dp, 157.936979525_dp, 0.000027074_dp, 159.0_dp, 158.934975000_dp, 0.000030000_dp, 160.0_dp, 159.935264177_dp, 0.000035089_dp, 161.0_dp, 160.933549000_dp, 0.000030000_dp, 162.0_dp, 161.934001211_dp, 0.000027974_dp, 163.0_dp, 162.932658282_dp, 0.000005920_dp, 164.0_dp, 163.933538019_dp, 0.000026845_dp, 165.0_dp, 164.932441843_dp, 0.000001779_dp, 166.0_dp, 165.933562136_dp, 0.000012401_dp, 167.0_dp, 166.932857206_dp, 0.000001350_dp, 168.0_dp, 167.934178457_dp, 0.000001800_dp, 169.0_dp, 168.934218956_dp, 0.000000792_dp, 170.0_dp, 169.935807093_dp, 0.000000785_dp, 171.0_dp, 170.936435162_dp, 0.000001043_dp, 172.0_dp, 171.938406959_dp, 0.000005884_dp, 173.0_dp, 172.939606630_dp, 0.000004723_dp, 174.0_dp, 173.942174061_dp, 0.000048010_dp, 175.0_dp, 174.943842310_dp, 0.000053677_dp, 176.0_dp, 175.946997707_dp, 0.000107354_dp, 177.0_dp, 176.948932_dp, 0.000215_dp, 178.0_dp, 177.952506_dp, 0.000322_dp, 179.0_dp, 178.955018_dp, 0.000429_dp, 180.0_dp, 179.959023_dp, 0.000429_dp, 181.0_dp, 180.961954_dp, 0.000537_dp, 182.0_dp, 181.966194_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Ts_naw = naw_type(4, transpose(reshape([291.0_dp, 291.205748_dp, 0.000640_dp, 292.0_dp, 292.207861_dp, 0.000718_dp, 293.0_dp, 293.208727_dp, 0.000835_dp, 294.0_dp, 294.210840_dp, 0.000637_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: U_naw = naw_type(29, transpose(reshape([215.0_dp, 215.026719774_dp, 0.000111794_dp, 216.0_dp, 216.024762829_dp, 0.000030158_dp, 217.0_dp, 217.024660_dp, 0.000086_dp, 218.0_dp, 218.023504877_dp, 0.000014722_dp, 219.0_dp, 219.025009233_dp, 0.000014319_dp, 220.0_dp, 220.024706_dp, 0.000108_dp, 221.0_dp, 221.026323297_dp, 0.000077440_dp, 222.0_dp, 222.026057957_dp, 0.000055817_dp, 223.0_dp, 223.027960754_dp, 0.000063396_dp, 224.0_dp, 224.027635913_dp, 0.000016383_dp, 225.0_dp, 225.029385050_dp, 0.000010664_dp, 226.0_dp, 226.029338669_dp, 0.000011884_dp, 227.0_dp, 227.031181124_dp, 0.000009136_dp, 228.0_dp, 228.031368959_dp, 0.000014465_dp, 229.0_dp, 229.033505976_dp, 0.000006374_dp, 230.0_dp, 230.033940114_dp, 0.000004841_dp, 231.0_dp, 231.036292180_dp, 0.000002866_dp, 232.0_dp, 232.037154765_dp, 0.000001941_dp, 233.0_dp, 233.039634294_dp, 0.000002420_dp, 234.0_dp, 234.040950296_dp, 0.000001212_dp, 235.0_dp, 235.043928117_dp, 0.000001198_dp, 236.0_dp, 236.045566130_dp, 0.000001193_dp, 237.0_dp, 237.048728309_dp, 0.000001290_dp, 238.0_dp, 238.050786936_dp, 0.000001601_dp, 239.0_dp, 239.054291989_dp, 0.000001612_dp, 240.0_dp, 240.056592411_dp, 0.000002740_dp, 241.0_dp, 241.060330_dp, 0.000210_dp, 242.0_dp, 242.062931_dp, 0.000215_dp, 243.0_dp, 243.067075_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: V_naw = naw_type(29, transpose(reshape([39.0_dp, 39.024230_dp, 0.000429_dp, 40.0_dp, 40.013387_dp, 0.000322_dp, 41.0_dp, 41.000333_dp, 0.000215_dp, 42.0_dp, 41.991820_dp, 0.000210_dp, 43.0_dp, 42.980766000_dp, 0.000046000_dp, 44.0_dp, 43.974440977_dp, 0.000007799_dp, 45.0_dp, 44.965768498_dp, 0.000000926_dp, 46.0_dp, 45.960197389_dp, 0.000000143_dp, 47.0_dp, 46.954903558_dp, 0.000000118_dp, 48.0_dp, 47.952250900_dp, 0.000001043_dp, 49.0_dp, 48.948510509_dp, 0.000000884_dp, 50.0_dp, 49.947156681_dp, 0.000000099_dp, 51.0_dp, 50.943957664_dp, 0.000000104_dp, 52.0_dp, 51.944773636_dp, 0.000000170_dp, 53.0_dp, 52.944334940_dp, 0.000003331_dp, 54.0_dp, 53.946432009_dp, 0.000012001_dp, 55.0_dp, 54.947262000_dp, 0.000029000_dp, 56.0_dp, 55.950420082_dp, 0.000188819_dp, 57.0_dp, 56.952297000_dp, 0.000091000_dp, 58.0_dp, 57.956595985_dp, 0.000102862_dp, 59.0_dp, 58.959623343_dp, 0.000147505_dp, 60.0_dp, 59.964479215_dp, 0.000195327_dp, 61.0_dp, 60.967603529_dp, 0.000252196_dp, 62.0_dp, 61.972932556_dp, 0.000283723_dp, 63.0_dp, 62.976661000_dp, 0.000365000_dp, 64.0_dp, 63.982480_dp, 0.000429_dp, 65.0_dp, 64.986999_dp, 0.000537_dp, 66.0_dp, 65.993237_dp, 0.000537_dp, 67.0_dp, 66.998128_dp, 0.000644_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: W_naw = naw_type(41, transpose(reshape([157.0_dp, 156.978862_dp, 0.000429_dp, 158.0_dp, 157.974565_dp, 0.000322_dp, 159.0_dp, 158.972696_dp, 0.000322_dp, 160.0_dp, 159.968513946_dp, 0.000160828_dp, 161.0_dp, 160.967249_dp, 0.000215_dp, 162.0_dp, 161.963500341_dp, 0.000018955_dp, 163.0_dp, 162.962524251_dp, 0.000062722_dp, 164.0_dp, 163.958952445_dp, 0.000010384_dp, 165.0_dp, 164.958280663_dp, 0.000027649_dp, 166.0_dp, 165.955031952_dp, 0.000010159_dp, 167.0_dp, 166.954811080_dp, 0.000020078_dp, 168.0_dp, 167.951805459_dp, 0.000014233_dp, 169.0_dp, 168.951778689_dp, 0.000016571_dp, 170.0_dp, 169.949231235_dp, 0.000014165_dp, 171.0_dp, 170.949451000_dp, 0.000030000_dp, 172.0_dp, 171.947292000_dp, 0.000030000_dp, 173.0_dp, 172.947689000_dp, 0.000030000_dp, 174.0_dp, 173.946079000_dp, 0.000030000_dp, 175.0_dp, 174.946717000_dp, 0.000030000_dp, 176.0_dp, 175.945634000_dp, 0.000030000_dp, 177.0_dp, 176.946643000_dp, 0.000030000_dp, 178.0_dp, 177.945885791_dp, 0.000016316_dp, 179.0_dp, 178.947079378_dp, 0.000015644_dp, 180.0_dp, 179.946713304_dp, 0.000001545_dp, 181.0_dp, 180.948218733_dp, 0.000001554_dp, 182.0_dp, 181.948205636_dp, 0.000000799_dp, 183.0_dp, 182.950224416_dp, 0.000000798_dp, 184.0_dp, 183.950933180_dp, 0.000000792_dp, 185.0_dp, 184.953421206_dp, 0.000000793_dp, 186.0_dp, 185.954365140_dp, 0.000001302_dp, 187.0_dp, 186.957161249_dp, 0.000001302_dp, 188.0_dp, 187.958488325_dp, 0.000003316_dp, 189.0_dp, 188.961557_dp, 0.000215_dp, 190.0_dp, 189.963103542_dp, 0.000037993_dp, 191.0_dp, 190.966531000_dp, 0.000045000_dp, 192.0_dp, 191.968202_dp, 0.000215_dp, 193.0_dp, 192.971884_dp, 0.000215_dp, 194.0_dp, 193.973795_dp, 0.000322_dp, 195.0_dp, 194.977735_dp, 0.000322_dp, 196.0_dp, 195.979882_dp, 0.000429_dp, 197.0_dp, 196.984036_dp, 0.000429_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Xe_naw = naw_type(43, transpose(reshape([108.0_dp, 107.954232285_dp, 0.000407406_dp, 109.0_dp, 108.950434955_dp, 0.000322178_dp, 110.0_dp, 109.944258759_dp, 0.000108415_dp, 111.0_dp, 110.941470_dp, 0.000124_dp, 112.0_dp, 111.935559068_dp, 0.000008891_dp, 113.0_dp, 112.933221663_dp, 0.000007342_dp, 114.0_dp, 113.927980329_dp, 0.000012000_dp, 115.0_dp, 114.926293943_dp, 0.000013000_dp, 116.0_dp, 115.921580955_dp, 0.000013974_dp, 117.0_dp, 116.920358758_dp, 0.000011141_dp, 118.0_dp, 117.916178678_dp, 0.000011141_dp, 119.0_dp, 118.915410641_dp, 0.000011141_dp, 120.0_dp, 119.911784267_dp, 0.000012686_dp, 121.0_dp, 120.911453012_dp, 0.000010995_dp, 122.0_dp, 121.908367655_dp, 0.000011928_dp, 123.0_dp, 122.908482235_dp, 0.000010234_dp, 124.0_dp, 123.905885174_dp, 0.000001457_dp, 125.0_dp, 124.906387640_dp, 0.000001518_dp, 126.0_dp, 125.904297422_dp, 0.000000006_dp, 127.0_dp, 126.905183636_dp, 0.000004388_dp, 128.0_dp, 127.90353075341_dp, 0.00000000558_dp, 129.0_dp, 128.90478085742_dp, 0.00000000542_dp, 130.0_dp, 129.903509346_dp, 0.000000010_dp, 131.0_dp, 130.90508412808_dp, 0.00000000549_dp, 132.0_dp, 131.90415508346_dp, 0.00000000544_dp, 133.0_dp, 132.905910748_dp, 0.000002576_dp, 134.0_dp, 133.905393030_dp, 0.000000006_dp, 135.0_dp, 134.907231441_dp, 0.000003938_dp, 136.0_dp, 135.907214474_dp, 0.000000007_dp, 137.0_dp, 136.911557771_dp, 0.000000111_dp, 138.0_dp, 137.914146268_dp, 0.000003010_dp, 139.0_dp, 138.918792200_dp, 0.000002300_dp, 140.0_dp, 139.921645814_dp, 0.000002500_dp, 141.0_dp, 140.926787181_dp, 0.000003100_dp, 142.0_dp, 141.929973095_dp, 0.000002900_dp, 143.0_dp, 142.935369550_dp, 0.000005000_dp, 144.0_dp, 143.938945076_dp, 0.000005700_dp, 145.0_dp, 144.944719631_dp, 0.000012000_dp, 146.0_dp, 145.948518245_dp, 0.000026000_dp, 147.0_dp, 146.954482_dp, 0.000215_dp, 148.0_dp, 147.958508_dp, 0.000322_dp, 149.0_dp, 148.964573_dp, 0.000322_dp, 150.0_dp, 149.968878_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Y_naw = naw_type(35, transpose(reshape([75.0_dp, 74.965840_dp, 0.000322_dp, 76.0_dp, 75.958937_dp, 0.000322_dp, 77.0_dp, 76.950146_dp, 0.000218_dp, 78.0_dp, 77.943990_dp, 0.000320_dp, 79.0_dp, 78.937946000_dp, 0.000086000_dp, 80.0_dp, 79.934354750_dp, 0.000006701_dp, 81.0_dp, 80.929454283_dp, 0.000005802_dp, 82.0_dp, 81.926930189_dp, 0.000005902_dp, 83.0_dp, 82.922484026_dp, 0.000020000_dp, 84.0_dp, 83.920671060_dp, 0.000004615_dp, 85.0_dp, 84.916433039_dp, 0.000020360_dp, 86.0_dp, 85.914886095_dp, 0.000015182_dp, 87.0_dp, 86.910876100_dp, 0.000001210_dp, 88.0_dp, 87.909501274_dp, 0.000001610_dp, 89.0_dp, 88.905838156_dp, 0.000000363_dp, 90.0_dp, 89.907141749_dp, 0.000000379_dp, 91.0_dp, 90.907298048_dp, 0.000001978_dp, 92.0_dp, 91.908945752_dp, 0.000009798_dp, 93.0_dp, 92.909578434_dp, 0.000011259_dp, 94.0_dp, 93.911592062_dp, 0.000006849_dp, 95.0_dp, 94.912819697_dp, 0.000007277_dp, 96.0_dp, 95.915909305_dp, 0.000006521_dp, 97.0_dp, 96.918286702_dp, 0.000007201_dp, 98.0_dp, 97.922394841_dp, 0.000008501_dp, 99.0_dp, 98.924160839_dp, 0.000007101_dp, 100.0_dp, 99.927727678_dp, 0.000012000_dp, 101.0_dp, 100.930160817_dp, 0.000007601_dp, 102.0_dp, 101.934328471_dp, 0.000004381_dp, 103.0_dp, 102.937243796_dp, 0.000012029_dp, 104.0_dp, 103.941943_dp, 0.000215_dp, 105.0_dp, 104.945711_dp, 0.000429_dp, 106.0_dp, 105.950842_dp, 0.000537_dp, 107.0_dp, 106.954943_dp, 0.000537_dp, 108.0_dp, 107.960515_dp, 0.000644_dp, 109.0_dp, 108.965131_dp, 0.000751_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Yb_naw = naw_type(38, transpose(reshape([148.0_dp, 147.967547_dp, 0.000429_dp, 149.0_dp, 148.964219_dp, 0.000322_dp, 150.0_dp, 149.958314_dp, 0.000322_dp, 151.0_dp, 150.955402453_dp, 0.000322591_dp, 152.0_dp, 151.950326699_dp, 0.000160718_dp, 153.0_dp, 152.949372_dp, 0.000215_dp, 154.0_dp, 153.946395696_dp, 0.000018551_dp, 155.0_dp, 154.945783216_dp, 0.000017820_dp, 156.0_dp, 155.942817096_dp, 0.000009992_dp, 157.0_dp, 156.942651368_dp, 0.000011706_dp, 158.0_dp, 157.939871202_dp, 0.000008559_dp, 159.0_dp, 158.940060257_dp, 0.000018874_dp, 160.0_dp, 159.937559210_dp, 0.000005900_dp, 161.0_dp, 160.937912384_dp, 0.000016211_dp, 162.0_dp, 161.935779342_dp, 0.000016213_dp, 163.0_dp, 162.936345406_dp, 0.000016215_dp, 164.0_dp, 163.934500743_dp, 0.000016217_dp, 165.0_dp, 164.935270241_dp, 0.000028490_dp, 166.0_dp, 165.933876439_dp, 0.000007515_dp, 167.0_dp, 166.934954069_dp, 0.000004251_dp, 168.0_dp, 167.933891297_dp, 0.000000100_dp, 169.0_dp, 168.935184208_dp, 0.000000191_dp, 170.0_dp, 169.934767242_dp, 0.000000011_dp, 171.0_dp, 170.936331515_dp, 0.000000013_dp, 172.0_dp, 171.936386654_dp, 0.000000014_dp, 173.0_dp, 172.938216211_dp, 0.000000012_dp, 174.0_dp, 173.938867545_dp, 0.000000011_dp, 175.0_dp, 174.941281907_dp, 0.000000076_dp, 176.0_dp, 175.942574706_dp, 0.000000015_dp, 177.0_dp, 176.945263846_dp, 0.000000236_dp, 178.0_dp, 177.946669400_dp, 0.000007072_dp, 179.0_dp, 178.949930_dp, 0.000215_dp, 180.0_dp, 179.951991_dp, 0.000322_dp, 181.0_dp, 180.955890_dp, 0.000320_dp, 182.0_dp, 181.958239_dp, 0.000429_dp, 183.0_dp, 182.962426_dp, 0.000429_dp, 184.0_dp, 183.965002_dp, 0.000540_dp, 185.0_dp, 184.969425_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Zn_naw = naw_type(33, transpose(reshape([54.0_dp, 53.993879_dp, 0.000232_dp, 55.0_dp, 54.984681_dp, 0.000429_dp, 56.0_dp, 55.972743_dp, 0.000429_dp, 57.0_dp, 56.965056_dp, 0.000215_dp, 58.0_dp, 57.954590296_dp, 0.000053678_dp, 59.0_dp, 58.949311886_dp, 0.000000814_dp, 60.0_dp, 59.941841317_dp, 0.000000588_dp, 61.0_dp, 60.939506964_dp, 0.000017068_dp, 62.0_dp, 61.934333359_dp, 0.000000660_dp, 63.0_dp, 62.933211140_dp, 0.000001674_dp, 64.0_dp, 63.929141776_dp, 0.000000690_dp, 65.0_dp, 64.929240534_dp, 0.000000693_dp, 66.0_dp, 65.926033639_dp, 0.000000798_dp, 67.0_dp, 66.927127422_dp, 0.000000810_dp, 68.0_dp, 67.924844232_dp, 0.000000835_dp, 69.0_dp, 68.926550360_dp, 0.000000853_dp, 70.0_dp, 69.925319175_dp, 0.000002058_dp, 71.0_dp, 70.927719578_dp, 0.000002849_dp, 72.0_dp, 71.926842806_dp, 0.000002300_dp, 73.0_dp, 72.929582580_dp, 0.000002000_dp, 74.0_dp, 73.929407260_dp, 0.000002700_dp, 75.0_dp, 74.932840244_dp, 0.000002100_dp, 76.0_dp, 75.933114956_dp, 0.000001562_dp, 77.0_dp, 76.936887197_dp, 0.000002117_dp, 78.0_dp, 77.938289204_dp, 0.000002086_dp, 79.0_dp, 78.942638067_dp, 0.000002388_dp, 80.0_dp, 79.944552929_dp, 0.000002774_dp, 81.0_dp, 80.950402617_dp, 0.000005400_dp, 82.0_dp, 81.954574097_dp, 0.000003300_dp, 83.0_dp, 82.961041_dp, 0.000322_dp, 84.0_dp, 83.965829_dp, 0.000429_dp, 85.0_dp, 84.973054_dp, 0.000537_dp, 86.0_dp, 85.978463_dp, 0.000537_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50]))) type( naw_type ), public, parameter :: Zr_naw = naw_type(37, transpose(reshape([77.0_dp, 76.966076_dp, 0.000429_dp, 78.0_dp, 77.956146_dp, 0.000429_dp, 79.0_dp, 78.949790_dp, 0.000322_dp, 80.0_dp, 79.941213_dp, 0.000322_dp, 81.0_dp, 80.938245000_dp, 0.000099000_dp, 82.0_dp, 81.931707497_dp, 0.000001700_dp, 83.0_dp, 82.929240926_dp, 0.000006902_dp, 84.0_dp, 83.923325663_dp, 0.000005903_dp, 85.0_dp, 84.921443199_dp, 0.000006902_dp, 86.0_dp, 85.916296814_dp, 0.000003827_dp, 87.0_dp, 86.914817338_dp, 0.000004450_dp, 88.0_dp, 87.910220715_dp, 0.000005800_dp, 89.0_dp, 88.908879751_dp, 0.000002983_dp, 90.0_dp, 89.904698755_dp, 0.000000126_dp, 91.0_dp, 90.905640205_dp, 0.000000101_dp, 92.0_dp, 91.905035336_dp, 0.000000101_dp, 93.0_dp, 92.906470661_dp, 0.000000489_dp, 94.0_dp, 93.906312523_dp, 0.000000175_dp, 95.0_dp, 94.908040276_dp, 0.000000933_dp, 96.0_dp, 95.908277615_dp, 0.000000122_dp, 97.0_dp, 96.910963802_dp, 0.000000130_dp, 98.0_dp, 97.912740448_dp, 0.000009065_dp, 99.0_dp, 98.916675081_dp, 0.000011271_dp, 100.0_dp, 99.918010499_dp, 0.000008742_dp, 101.0_dp, 100.921458454_dp, 0.000008944_dp, 102.0_dp, 101.923154181_dp, 0.000009401_dp, 103.0_dp, 102.927204054_dp, 0.000009900_dp, 104.0_dp, 103.929449193_dp, 0.000010000_dp, 105.0_dp, 104.934021832_dp, 0.000013000_dp, 106.0_dp, 105.936930_dp, 0.000215_dp, 107.0_dp, 106.942007_dp, 0.000322_dp, 108.0_dp, 107.945303_dp, 0.000429_dp, 109.0_dp, 108.950907_dp, 0.000537_dp, 110.0_dp, 109.954675_dp, 0.000537_dp, 111.0_dp, 110.960837_dp, 0.000644_dp, 112.0_dp, 111.965196_dp, 0.000751_dp, 113.0_dp, 112.971723_dp, 0.000322_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 50])))","tags":"","loc":"module/ciaaw__naw.html"},{"title":"ciaaw__pte – ciaaw","text":"Ciaaw pte - Autogenerated\nSee specs Uses ciaaw__saw ciaaw__common ciaaw__naw ciaaw__ice ciaaw__types module~~ciaaw__pte~~UsesGraph module~ciaaw__pte ciaaw__pte module~ciaaw__common ciaaw__common module~ciaaw__pte->module~ciaaw__common module~ciaaw__ice ciaaw__ice module~ciaaw__pte->module~ciaaw__ice module~ciaaw__naw ciaaw__naw module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__types ciaaw__types module~ciaaw__pte->module~ciaaw__types ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__ice->module~ciaaw__common module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw->module~ciaaw__common module~ciaaw__naw->module~ciaaw__types module~ciaaw__saw->module~ciaaw__common module~ciaaw__saw->module~ciaaw__types module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__pte~~UsedByGraph module~ciaaw__pte ciaaw__pte module~ciaaw ciaaw module~ciaaw->module~ciaaw__pte module~ciaaw__api ciaaw__api module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__api->module~ciaaw__pte module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial type( element_type ), public, parameter :: pt (118) = [element_type(\"hydrogen\", \"H\", 1, H_saw, H_ice, H_naw), element_type(\"helium\", \"He\", 2, He_saw, He_ice, He_naw), element_type(\"lithium\", \"Li\", 3, Li_saw, Li_ice, Li_naw), element_type(\"beryllium\", \"Be\", 4, Be_saw, Be_ice, Be_naw), element_type(\"boron\", \"B\", 5, B_saw, B_ice, B_naw), element_type(\"carbon\", \"C\", 6, C_saw, C_ice, C_naw), element_type(\"nitrogen\", \"N\", 7, N_saw, N_ice, N_naw), element_type(\"oxygen\", \"O\", 8, O_saw, O_ice, O_naw), element_type(\"fluorine\", \"F\", 9, F_saw, F_ice, F_naw), element_type(\"neon\", \"Ne\", 10, Ne_saw, Ne_ice, Ne_naw), element_type(\"sodium\", \"Na\", 11, Na_saw, Na_ice, Na_naw), element_type(\"magnesium\", \"Mg\", 12, Mg_saw, Mg_ice, Mg_naw), element_type(\"aluminium\", \"Al\", 13, Al_saw, Al_ice, Al_naw), element_type(\"silicon\", \"Si\", 14, Si_saw, Si_ice, Si_naw), element_type(\"phosphorus\", \"P\", 15, P_saw, P_ice, P_naw), element_type(\"sulfur\", \"S\", 16, S_saw, S_ice, S_naw), element_type(\"chlorine\", \"Cl\", 17, Cl_saw, Cl_ice, Cl_naw), element_type(\"argon\", \"Ar\", 18, Ar_saw, Ar_ice, Ar_naw), element_type(\"potassium\", \"K\", 19, K_saw, K_ice, K_naw), element_type(\"calcium\", \"Ca\", 20, Ca_saw, Ca_ice, Ca_naw), element_type(\"scandium\", \"Sc\", 21, Sc_saw, Sc_ice, Sc_naw), element_type(\"titanium\", \"Ti\", 22, Ti_saw, Ti_ice, Ti_naw), element_type(\"vanadium\", \"V\", 23, V_saw, V_ice, V_naw), element_type(\"chromium\", \"Cr\", 24, Cr_saw, Cr_ice, Cr_naw), element_type(\"manganese\", \"Mn\", 25, Mn_saw, Mn_ice, Mn_naw), element_type(\"iron\", \"Fe\", 26, Fe_saw, Fe_ice, Fe_naw), element_type(\"cobalt\", \"Co\", 27, Co_saw, Co_ice, Co_naw), element_type(\"nickel\", \"Ni\", 28, Ni_saw, Ni_ice, Ni_naw), element_type(\"copper\", \"Cu\", 29, Cu_saw, Cu_ice, Cu_naw), element_type(\"zinc\", \"Zn\", 30, Zn_saw, Zn_ice, Zn_naw), element_type(\"gallium\", \"Ga\", 31, Ga_saw, Ga_ice, Ga_naw), element_type(\"germanium\", \"Ge\", 32, Ge_saw, Ge_ice, Ge_naw), element_type(\"arsenic\", \"As\", 33, As_saw, As_ice, As_naw), element_type(\"selenium\", \"Se\", 34, Se_saw, Se_ice, Se_naw), element_type(\"bromine\", \"Br\", 35, Br_saw, Br_ice, Br_naw), element_type(\"krypton\", \"Kr\", 36, Kr_saw, Kr_ice, Kr_naw), element_type(\"rubidium\", \"Rb\", 37, Rb_saw, Rb_ice, Rb_naw), element_type(\"strontium\", \"Sr\", 38, Sr_saw, Sr_ice, Sr_naw), element_type(\"yttrium\", \"Y\", 39, Y_saw, Y_ice, Y_naw), element_type(\"zirconium\", \"Zr\", 40, Zr_saw, Zr_ice, Zr_naw), element_type(\"nobium\", \"Nb\", 41, Nb_saw, Nb_ice, Nb_naw), element_type(\"molybdenum\", \"Mo\", 42, Mo_saw, Mo_ice, Mo_naw), element_type(\"technetium\", \"Tc\", 43, Tc_saw, Tc_ice, Tc_naw), element_type(\"ruthenium\", \"Ru\", 44, Ru_saw, Ru_ice, Ru_naw), element_type(\"rhodium\", \"Rh\", 45, Rh_saw, Rh_ice, Rh_naw), element_type(\"palladium\", \"Pd\", 46, Pd_saw, Pd_ice, Pd_naw), element_type(\"silver\", \"Ag\", 47, Ag_saw, Ag_ice, Ag_naw), element_type(\"cadmium\", \"Cd\", 48, Cd_saw, Cd_ice, Cd_naw), element_type(\"indium\", \"In\", 49, In_saw, In_ice, In_naw), element_type(\"tin\", \"Sn\", 50, Sn_saw, Sn_ice, Sn_naw), element_type(\"antimony\", \"Sb\", 51, Sb_saw, Sb_ice, Sb_naw), element_type(\"tellurium\", \"Te\", 52, Te_saw, Te_ice, Te_naw), element_type(\"iodine\", \"I\", 53, I_saw, I_ice, I_naw), element_type(\"xenon\", \"Xe\", 54, Xe_saw, Xe_ice, Xe_naw), element_type(\"caesium\", \"Cs\", 55, Cs_saw, Cs_ice, Cs_naw), element_type(\"barium\", \"Ba\", 56, Ba_saw, Ba_ice, Ba_naw), element_type(\"lanthanum\", \"La\", 57, La_saw, La_ice, La_naw), element_type(\"cerium\", \"Ce\", 58, Ce_saw, Ce_ice, Ce_naw), element_type(\"praseodymium\", \"Pr\", 59, Pr_saw, Pr_ice, Pr_naw), element_type(\"neodymium\", \"Nd\", 60, Nd_saw, Nd_ice, Nd_naw), element_type(\"promethium\", \"Pm\", 61, Pm_saw, Pm_ice, Pm_naw), element_type(\"samarium\", \"Sm\", 62, Sm_saw, Sm_ice, Sm_naw), element_type(\"europium\", \"Eu\", 63, Eu_saw, Eu_ice, Eu_naw), element_type(\"gadolinium\", \"Gd\", 64, Gd_saw, Gd_ice, Gd_naw), element_type(\"terbium\", \"Tb\", 65, Tb_saw, Tb_ice, Tb_naw), element_type(\"dysprosium\", \"Dy\", 66, Dy_saw, Dy_ice, Dy_naw), element_type(\"holmium\", \"Ho\", 67, Ho_saw, Ho_ice, Ho_naw), element_type(\"erbium\", \"Er\", 68, Er_saw, Er_ice, Er_naw), element_type(\"thulium\", \"Tm\", 69, Tm_saw, Tm_ice, Tm_naw), element_type(\"ytterbium\", \"Yb\", 70, Yb_saw, Yb_ice, Yb_naw), element_type(\"lutetium\", \"Lu\", 71, Lu_saw, Lu_ice, Lu_naw), element_type(\"hafnium\", \"Hf\", 72, Hf_saw, Hf_ice, Hf_naw), element_type(\"tantalum\", \"Ta\", 73, Ta_saw, Ta_ice, Ta_naw), element_type(\"tungsten\", \"W\", 74, W_saw, W_ice, W_naw), element_type(\"rhenium\", \"Re\", 75, Re_saw, Re_ice, Re_naw), element_type(\"osmium\", \"Os\", 76, Os_saw, Os_ice, Os_naw), element_type(\"iridium\", \"Ir\", 77, Ir_saw, Ir_ice, Ir_naw), element_type(\"platinum\", \"Pt\", 78, Pt_saw, Pt_ice, Pt_naw), element_type(\"gold\", \"Au\", 79, Au_saw, Au_ice, Au_naw), element_type(\"mercury\", \"Hg\", 80, Hg_saw, Hg_ice, Hg_naw), element_type(\"thallium\", \"Tl\", 81, Tl_saw, Tl_ice, Tl_naw), element_type(\"lead\", \"Pb\", 82, Pb_saw, Pb_ice, Pb_naw), element_type(\"bismuth\", \"Bi\", 83, Bi_saw, Bi_ice, Bi_naw), element_type(\"polonium\", \"Po\", 84, Po_saw, Po_ice, Po_naw), element_type(\"astatine\", \"At\", 85, At_saw, At_ice, At_naw), element_type(\"radon\", \"Rn\", 86, Rn_saw, Rn_ice, Rn_naw), element_type(\"francium\", \"Fr\", 87, Fr_saw, Fr_ice, Fr_naw), element_type(\"radium\", \"Ra\", 88, Ra_saw, Ra_ice, Ra_naw), element_type(\"actinium\", \"Ac\", 89, Ac_saw, Ac_ice, Ac_naw), element_type(\"thorium\", \"Th\", 90, Th_saw, Th_ice, Th_naw), element_type(\"protactinium\", \"Pa\", 91, Pa_saw, Pa_ice, Pa_naw), element_type(\"uranium\", \"U\", 92, U_saw, U_ice, U_naw), element_type(\"neptunium\", \"Np\", 93, Np_saw, ice_nan, Np_naw), element_type(\"plutonium\", \"Pu\", 94, Pu_saw, ice_nan, Pu_naw), element_type(\"americium\", \"Am\", 95, Am_saw, ice_nan, Am_naw), element_type(\"curium\", \"Cm\", 96, Cm_saw, ice_nan, Cm_naw), element_type(\"berkelium\", \"Bk\", 97, Bk_saw, ice_nan, Bk_naw), element_type(\"californium\", \"Cf\", 98, Cf_saw, ice_nan, Cf_naw), element_type(\"einsteinium\", \"Es\", 99, Es_saw, ice_nan, Es_naw), element_type(\"fermium\", \"Fm\", 100, Fm_saw, ice_nan, Fm_naw), element_type(\"mendelevium\", \"Md\", 101, Md_saw, ice_nan, Md_naw), element_type(\"nobelium\", \"No\", 102, No_saw, ice_nan, No_naw), element_type(\"lawrencium\", \"Lr\", 103, Lr_saw, ice_nan, Lr_naw), element_type(\"rutherfordium\", \"Rf\", 104, Rf_saw, ice_nan, Rf_naw), element_type(\"dubnium\", \"Db\", 105, Db_saw, ice_nan, Db_naw), element_type(\"seaborgium\", \"Sg\", 106, Sg_saw, ice_nan, Sg_naw), element_type(\"bohrium\", \"Bh\", 107, Bh_saw, ice_nan, Bh_naw), element_type(\"hassium\", \"Hs\", 108, Hs_saw, ice_nan, Hs_naw), element_type(\"meitnerium\", \"Mt\", 109, Mt_saw, ice_nan, Mt_naw), element_type(\"darmstadtium\", \"Ds\", 110, Ds_saw, ice_nan, Ds_naw), element_type(\"roentgenium\", \"Rg\", 111, Rg_saw, ice_nan, Rg_naw), element_type(\"copernicium\", \"Cn\", 112, Cn_saw, ice_nan, Cn_naw), element_type(\"nihonium\", \"Nh\", 113, Nh_saw, ice_nan, Nh_naw), element_type(\"flerovium\", \"Fl\", 114, Fl_saw, ice_nan, Fl_naw), element_type(\"moscovium\", \"Mc\", 115, Mc_saw, ice_nan, Mc_naw), element_type(\"livermorium\", \"Lv\", 116, Lv_saw, ice_nan, Lv_naw), element_type(\"tennesine\", \"Ts\", 117, Ts_saw, ice_nan, Ts_naw), element_type(\"organesson\", \"Og\", 118, Og_saw, ice_nan, Og_naw)]","tags":"","loc":"module/ciaaw__pte.html"},{"title":"ciaaw__version – ciaaw","text":"Version Used by module~~ciaaw__version~~UsedByGraph module~ciaaw__version ciaaw__version module~ciaaw__api ciaaw__api module~ciaaw__api->module~ciaaw__version module~ciaaw ciaaw module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial character(len=*), public, parameter :: version = \"0.5.1\"","tags":"","loc":"module/ciaaw__version.html"},{"title":"ciaaw__api – ciaaw","text":"API\nSee specs Uses ciaaw__common ciaaw__version ieee_arithmetic ciaaw__pte ciaaw__types module~~ciaaw__api~~UsesGraph module~ciaaw__api ciaaw__api ieee_arithmetic ieee_arithmetic module~ciaaw__api->ieee_arithmetic module~ciaaw__common ciaaw__common module~ciaaw__api->module~ciaaw__common module~ciaaw__pte ciaaw__pte module~ciaaw__api->module~ciaaw__pte module~ciaaw__types ciaaw__types module~ciaaw__api->module~ciaaw__types module~ciaaw__version ciaaw__version module~ciaaw__api->module~ciaaw__version module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__pte->module~ciaaw__common module~ciaaw__pte->module~ciaaw__types module~ciaaw__ice ciaaw__ice module~ciaaw__pte->module~ciaaw__ice module~ciaaw__naw ciaaw__naw module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type module~ciaaw__ice->module~ciaaw__common module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw->module~ciaaw__common module~ciaaw__naw->module~ciaaw__types module~ciaaw__saw->module~ciaaw__common module~ciaaw__saw->module~ciaaw__types Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__api~~UsedByGraph module~ciaaw__api ciaaw__api module~ciaaw ciaaw module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Functions public  function get_ice (s, A, uncertainty) result(res) Get the isotopic composition of the element s for the mass number A. \nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if the provided symbol or A are incorrect or -1 if the element does not have an ICE. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. integer(kind=int32), intent(in) :: A Mass number. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) public  function get_ice_values (s) result(res) Get the (n, 3) values array. See ice_type .\nReturns a null pointer if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value real(kind=dp), pointer, (:,:) public  function get_naw (s, A, uncertainty) result(res) Get the atomic weight of the nuclide s for the mass number A. \nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if provided symbol or A are incorrect \nor -1 if the element does not have an NAW. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. integer(kind=int32), intent(in) :: A Mass number. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) public  function get_nice (s) result(res) Get the number of isotopes in ICE.\nReturns -1 if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value integer(kind=int32) public  function get_nnaw (s) result(res) Get the number of nuclides in NAW.\nReturns -1 if the provided symbol is incorrect. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. Return Value integer(kind=int32) public  function get_saw (s, abridged, uncertainty) result(res) Get the standard atomic weight. By default the abridged value is provided.\nIf the non abridged value is desired, set abridged to false.\nThe uncertainty instead of the value can be retrieved if the uncertainty is set to true.\nReturns NaN if provided symbol is incorrect or -1 if the element does not have a SAW. Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: s Element symbol. logical, intent(in), optional :: abridged Flag for returning the abridged standard atomic weight. Default to TRUE. logical, intent(in), optional :: uncertainty Flag for returning the uncertainty instead of the value. Default to FALSE. Return Value real(kind=dp) public  function get_version () result(fptr) Get the version Arguments None Return Value character(len=:), pointer Fortran pointer to a string indicating the version..","tags":"","loc":"module/ciaaw__api.html"},{"title":"ciaaw__types – ciaaw","text":"Derived types for Standard Atomic Weights. Uses ciaaw__common stdlib_string_type module~~ciaaw__types~~UsesGraph module~ciaaw__types ciaaw__types module~ciaaw__common ciaaw__common module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__types~~UsedByGraph module~ciaaw__types ciaaw__types module~ciaaw__api ciaaw__api module~ciaaw__api->module~ciaaw__types module~ciaaw__pte ciaaw__pte module~ciaaw__api->module~ciaaw__pte module~ciaaw__ice ciaaw__ice module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw ciaaw__naw module~ciaaw__naw->module~ciaaw__types module~ciaaw__pte->module~ciaaw__types module~ciaaw__pte->module~ciaaw__ice module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__saw->module~ciaaw__types module~ciaaw ciaaw module~ciaaw->module~ciaaw__api module~ciaaw->module~ciaaw__pte module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial type( ice_type ), public, parameter :: ice_nan = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) Derived Types type, public :: element_type Derived type representing an element. Components Type Visibility Attributes Name Initial character(len=24), public :: element Element name. type( ice_type ), public :: ice Isotopic composition of the element type( naw_type ), public :: naw Atomic weight of the nuclide type( saw_type ), public :: saw Standard atomic weights character(len=8), public :: symbol Element symbol. integer(kind=int32), public :: z Element atomic number. type, public :: ice_type Derived type reprensenting the isotopic abundance. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: n Number of isotopic compositions real(kind=dp), public :: values (NROWS_ICE,3) Mass numbers, Abundance, Uncertainty type, public :: naw_type Derived type reprensenting the nuclide’s atomic weights. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: n Number of atomic weights real(kind=dp), public :: values (NROWS_NAW,3) Mass numbers, Atomic weight, Uncertainty type, public :: saw_type Derived type representing the standard atomic weight of an element. Components Type Visibility Attributes Name Initial real(kind=dp), public :: asaw Abridged value standard atomic weight. real(kind=dp), public :: asaw_u Abridged uncertainty standard atomic weight. real(kind=dp), public :: saw Value standard atomic weight. real(kind=dp), public :: saw_max Max standard atomic weight. real(kind=dp), public :: saw_min Min standard atomic weight. real(kind=dp), public :: saw_u Uncertainty standard atomic weight.","tags":"","loc":"module/ciaaw__types.html"},{"title":"ciaaw__ice – ciaaw","text":"Ciaaw ice - Autogenerated\nSee specs Uses ciaaw__common ciaaw__types module~~ciaaw__ice~~UsesGraph module~ciaaw__ice ciaaw__ice module~ciaaw__common ciaaw__common module~ciaaw__ice->module~ciaaw__common module~ciaaw__types ciaaw__types module~ciaaw__ice->module~ciaaw__types ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__ice~~UsedByGraph module~ciaaw__ice ciaaw__ice module~ciaaw__pte ciaaw__pte module~ciaaw__pte->module~ciaaw__ice module~ciaaw ciaaw module~ciaaw->module~ciaaw__pte module~ciaaw__api ciaaw__api module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__api->module~ciaaw__pte module~ciaaw__capi->module~ciaaw__api Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Variables Type Visibility Attributes Name Initial type( ice_type ), public, parameter :: Ac_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ag_ice = ice_type(2, transpose(reshape([107.0_dp, 0.518392_dp, 51e-6_dp, 109.0_dp, 0.481608_dp, 61e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Al_ice = ice_type(1, transpose(reshape([27.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ar_ice = ice_type(3, transpose(reshape([36.0_dp, 0.0033361_dp, 35e-7_dp, 38.0_dp, 0.0006289_dp, 12e-7_dp, 40.0_dp, 0.9960350_dp, 42e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: As_ice = ice_type(1, transpose(reshape([75.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: At_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Au_ice = ice_type(1, transpose(reshape([197.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: B_ice = ice_type(2, transpose(reshape([10.0_dp, 0.1982_dp, 2e-4_dp, 11.0_dp, 0.8018_dp, 2e-4_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ba_ice = ice_type(7, transpose(reshape([130.0_dp, 0.001058_dp, 2e-6_dp, 132.0_dp, 0.001012_dp, 2e-6_dp, 134.0_dp, 0.024170_dp, 30e-6_dp, 135.0_dp, 0.065920_dp, 20e-6_dp, 136.0_dp, 0.078532_dp, 40e-6_dp, 137.0_dp, 0.112317_dp, 40e-6_dp, 138.0_dp, 0.716991_dp, 70e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Be_ice = ice_type(1, transpose(reshape([9.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Bi_ice = ice_type(1, transpose(reshape([209.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Br_ice = ice_type(2, transpose(reshape([79.0_dp, 0.50686_dp, 25e-5_dp, 81.0_dp, 0.49314_dp, 36e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: C_ice = ice_type(2, transpose(reshape([12.0_dp, 0.988922_dp, 28e-6_dp, 13.0_dp, 0.011078_dp, 28e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ca_ice = ice_type(6, transpose(reshape([40.0_dp, 0.96941_dp, 6e-5_dp, 42.0_dp, 0.00647_dp, 3e-5_dp, 43.0_dp, 0.00135_dp, 2e-5_dp, 44.0_dp, 0.02086_dp, 4e-5_dp, 46.0_dp, 0.00004_dp, 1e-5_dp, 48.0_dp, 0.00187_dp, 1e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Cd_ice = ice_type(8, transpose(reshape([106.0_dp, 0.01249_dp, 5e-5_dp, 108.0_dp, 0.00890_dp, 2e-5_dp, 110.0_dp, 0.12485_dp, 14e-5_dp, 111.0_dp, 0.12804_dp, 8e-5_dp, 112.0_dp, 0.24117_dp, 3e-5_dp, 113.0_dp, 0.12225_dp, 1e-5_dp, 114.0_dp, 0.28729_dp, 18e-5_dp, 116.0_dp, 0.07501_dp, 18e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ce_ice = ice_type(4, transpose(reshape([136.0_dp, 0.00186_dp, 1e-5_dp, 138.0_dp, 0.00251_dp, 1e-5_dp, 140.0_dp, 0.88449_dp, 34e-5_dp, 142.0_dp, 0.11114_dp, 34e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Cl_ice = ice_type(2, transpose(reshape([35.0_dp, 0.757647_dp, 38e-7_dp, 37.0_dp, 0.242353_dp, 38e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Co_ice = ice_type(1, transpose(reshape([59.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Cr_ice = ice_type(4, transpose(reshape([50.0_dp, 0.043452_dp, 85e-6_dp, 52.0_dp, 0.837895_dp, 117e-6_dp, 53.0_dp, 0.095006_dp, 110e-6_dp, 54.0_dp, 0.023647_dp, 48e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Cs_ice = ice_type(1, transpose(reshape([133.0_dp, 1.000000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Cu_ice = ice_type(2, transpose(reshape([63.0_dp, 0.69174_dp, 20e-5_dp, 65.0_dp, 0.30826_dp, 20e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Dy_ice = ice_type(7, transpose(reshape([156.0_dp, 0.00056_dp, 2e-5_dp, 158.0_dp, 0.00095_dp, 2e-5_dp, 160.0_dp, 0.02329_dp, 12e-5_dp, 161.0_dp, 0.18889_dp, 28e-5_dp, 162.0_dp, 0.25475_dp, 24e-5_dp, 163.0_dp, 0.24896_dp, 28e-5_dp, 164.0_dp, 0.28260_dp, 36e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Er_ice = ice_type(6, transpose(reshape([162.0_dp, 0.001391_dp, 30e-6_dp, 164.0_dp, 0.016006_dp, 20e-6_dp, 166.0_dp, 0.335014_dp, 240e-6_dp, 167.0_dp, 0.228724_dp, 60e-6_dp, 168.0_dp, 0.269852_dp, 120e-6_dp, 170.0_dp, 0.149013_dp, 240e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Eu_ice = ice_type(2, transpose(reshape([151.0_dp, 0.47810_dp, 42e-5_dp, 153.0_dp, 0.52190_dp, 42e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: F_ice = ice_type(1, transpose(reshape([19.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Fe_ice = ice_type(4, transpose(reshape([54.0_dp, 0.058450_dp, 230e-6_dp, 56.0_dp, 0.917540_dp, 240e-6_dp, 57.0_dp, 0.021191_dp, 65e-6_dp, 58.0_dp, 0.002819_dp, 27e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Fr_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ga_ice = ice_type(2, transpose(reshape([69.0_dp, 0.601079_dp, 62e-6_dp, 71.0_dp, 0.398921_dp, 62e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Gd_ice = ice_type(7, transpose(reshape([152.0_dp, 0.002029_dp, 4e-6_dp, 154.0_dp, 0.021809_dp, 4e-6_dp, 155.0_dp, 0.147998_dp, 17e-6_dp, 156.0_dp, 0.204664_dp, 6e-6_dp, 157.0_dp, 0.156518_dp, 9e-6_dp, 158.0_dp, 0.248347_dp, 16e-6_dp, 160.0_dp, 0.218635_dp, 7e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ge_ice = ice_type(5, transpose(reshape([70.0_dp, 0.20526_dp, 46e-5_dp, 72.0_dp, 0.27446_dp, 15e-5_dp, 73.0_dp, 0.07760_dp, 25e-5_dp, 74.0_dp, 0.36523_dp, 63e-5_dp, 76.0_dp, 0.07745_dp, 35e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: H_ice = ice_type(2, transpose(reshape([1.0_dp, 0.99984426_dp, 5e-8_dp, 2.0_dp, 0.00015574_dp, 5e-8_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: He_ice = ice_type(2, transpose(reshape([3.0_dp, 0.000001343_dp, 13e-9_dp, 4.0_dp, 0.999998657_dp, 13e-9_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Hf_ice = ice_type(6, transpose(reshape([174.0_dp, 0.001620_dp, 9e-5_dp, 176.0_dp, 0.052604_dp, 56e-6_dp, 177.0_dp, 0.185953_dp, 12e-6_dp, 178.0_dp, 0.272811_dp, 22e-6_dp, 179.0_dp, 0.136210_dp, 9e-6_dp, 180.0_dp, 0.350802_dp, 26e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Hg_ice = ice_type(7, transpose(reshape([196.0_dp, 0.00155_dp, 4e-5_dp, 198.0_dp, 0.10038_dp, 10e-5_dp, 199.0_dp, 0.16938_dp, 9e-5_dp, 200.0_dp, 0.23138_dp, 6e-5_dp, 201.0_dp, 0.13170_dp, 70e-5_dp, 202.0_dp, 0.29743_dp, 9e-5_dp, 204.0_dp, 0.06818_dp, 6e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ho_ice = ice_type(1, transpose(reshape([165.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: I_ice = ice_type(1, transpose(reshape([127.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: In_ice = ice_type(2, transpose(reshape([113.0_dp, 0.04271_dp, 17e-5_dp, 115.0_dp, 0.95719_dp, 17e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ir_ice = ice_type(2, transpose(reshape([191.0_dp, 0.37272_dp, 15e-5_dp, 193.0_dp, 0.62728_dp, 15e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: K_ice = ice_type(3, transpose(reshape([39.0_dp, 0.932581_dp, 29e-6_dp, 40.0_dp, 0.0001167_dp, 4e-7_dp, 41.0_dp, 0.067302_dp, 29e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Kr_ice = ice_type(6, transpose(reshape([78.0_dp, 0.0035518_dp, 32e-7_dp, 80.0_dp, 0.0228560_dp, 96e-7_dp, 82.0_dp, 0.115930_dp, 62e-6_dp, 83.0_dp, 0.114996_dp, 58e-6_dp, 84.0_dp, 0.569877_dp, 58e-6_dp, 86.0_dp, 0.172790_dp, 32e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: La_ice = ice_type(2, transpose(reshape([138.0_dp, 0.0008881_dp, 24e-7_dp, 139.0_dp, 0.9991119_dp, 24e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Li_ice = ice_type(2, transpose(reshape([6.0_dp, 0.07589_dp, 24e-5_dp, 7.0_dp, 0.92411_dp, 24e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Lu_ice = ice_type(2, transpose(reshape([175.0_dp, 0.974013_dp, 12e-5_dp, 176.0_dp, 0.025987_dp, 12e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Mg_ice = ice_type(3, transpose(reshape([24.0_dp, 0.78951_dp, 12e-5_dp, 25.0_dp, 0.10020_dp, 8e-5_dp, 26.0_dp, 0.11029_dp, 10e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Mn_ice = ice_type(1, transpose(reshape([55.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Mo_ice = ice_type(7, transpose(reshape([92.0_dp, 0.14649_dp, 17e-5_dp, 94.0_dp, 0.09187_dp, 5e-5_dp, 95.0_dp, 0.15873_dp, 5e-5_dp, 96.0_dp, 0.16673_dp, 2e-5_dp, 97.0_dp, 0.09582_dp, 3e-5_dp, 98.0_dp, 0.24292_dp, 14e-5_dp, 100.0_dp, 0.09744_dp, 10e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: N_ice = ice_type(2, transpose(reshape([14.0_dp, 0.996337_dp, 4e-6_dp, 15.0_dp, 0.003663_dp, 4e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Na_ice = ice_type(1, transpose(reshape([23.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Nb_ice = ice_type(1, transpose(reshape([93.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Nd_ice = ice_type(7, transpose(reshape([142.0_dp, 0.27153_dp, 19e-5_dp, 143.0_dp, 0.12173_dp, 18e-5_dp, 144.0_dp, 0.23798_dp, 12e-5_dp, 145.0_dp, 0.08293_dp, 7e-5_dp, 146.0_dp, 0.17189_dp, 17e-5_dp, 148.0_dp, 0.05756_dp, 8e-5_dp, 150.0_dp, 0.05638_dp, 9e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ne_ice = ice_type(3, transpose(reshape([20.0_dp, 0.904838_dp, 90e-6_dp, 21.0_dp, 0.002696_dp, 5e-6_dp, 22.0_dp, 0.092465_dp, 90e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ni_ice = ice_type(5, transpose(reshape([58.0_dp, 0.680769_dp, 59e-6_dp, 60.0_dp, 0.262231_dp, 51e-6_dp, 61.0_dp, 0.011399_dp, 4e-6_dp, 62.0_dp, 0.036345_dp, 11e-6_dp, 64.0_dp, 0.009256_dp, 6e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: O_ice = ice_type(3, transpose(reshape([16.0_dp, 0.9976206_dp, 9e-7_dp, 17.0_dp, 0.0003790_dp, 9e-7_dp, 18.0_dp, 0.0020004_dp, 5e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Os_ice = ice_type(7, transpose(reshape([184.0_dp, 0.000197_dp, 5e-6_dp, 186.0_dp, 0.015859_dp, 44e-6_dp, 187.0_dp, 0.019644_dp, 12e-6_dp, 188.0_dp, 0.132434_dp, 19e-6_dp, 189.0_dp, 0.161466_dp, 16e-6_dp, 190.0_dp, 0.262584_dp, 14e-6_dp, 192.0_dp, 0.407815_dp, 22e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: P_ice = ice_type(1, transpose(reshape([31.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pa_ice = ice_type(1, transpose(reshape([231.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pb_ice = ice_type(4, transpose(reshape([204.0_dp, 0.014245_dp, 12e-6_dp, 206.0_dp, 0.241447_dp, 57e-6_dp, 207.0_dp, 0.220827_dp, 27e-6_dp, 208.0_dp, 0.523481_dp, 86e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pd_ice = ice_type(6, transpose(reshape([102.0_dp, 0.0102_dp, 1e-4_dp, 104.0_dp, 0.1114_dp, 5e-4_dp, 105.0_dp, 0.2233_dp, 5e-4_dp, 106.0_dp, 0.2733_dp, 2e-6_dp, 108.0_dp, 0.2646_dp, 6e-6_dp, 110.0_dp, 0.1172_dp, 6e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pm_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Po_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pr_ice = ice_type(1, transpose(reshape([141.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Pt_ice = ice_type(6, transpose(reshape([190.0_dp, 0.00012_dp, 1e-5_dp, 192.0_dp, 0.00782_dp, 8e-5_dp, 194.0_dp, 0.32864_dp, 140e-5_dp, 195.0_dp, 0.33775_dp, 79e-5_dp, 196.0_dp, 0.25211_dp, 110e-5_dp, 198.0_dp, 0.07357_dp, 43e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ra_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Rb_ice = ice_type(2, transpose(reshape([85.0_dp, 0.721654_dp, 132e-6_dp, 87.0_dp, 0.278346_dp, 132e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Re_ice = ice_type(2, transpose(reshape([185.0_dp, 0.37398_dp, 16e-5_dp, 187.0_dp, 0.62602_dp, 16e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Rh_ice = ice_type(1, transpose(reshape([103.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Rn_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ru_ice = ice_type(7, transpose(reshape([96.0_dp, 0.055420_dp, 1e-6_dp, 98.0_dp, 0.018688_dp, 2e-6_dp, 99.0_dp, 0.127579_dp, 6e-6_dp, 100.0_dp, 0.125985_dp, 4e-6_dp, 101.0_dp, 0.170600_dp, 10e-6_dp, 102.0_dp, 0.315519_dp, 11e-6_dp, 104.0_dp, 0.186210_dp, 11e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: S_ice = ice_type(4, transpose(reshape([32.0_dp, 0.9504074_dp, 88e-7_dp, 33.0_dp, 0.0074869_dp, 60e-7_dp, 34.0_dp, 0.0419599_dp, 66e-7_dp, 36.0_dp, 0.0001458_dp, 9e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Sb_ice = ice_type(2, transpose(reshape([121.0_dp, 0.57213_dp, 32e-5_dp, 123.0_dp, 0.42787_dp, 32e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Sc_ice = ice_type(1, transpose(reshape([45.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Se_ice = ice_type(6, transpose(reshape([74.0_dp, 0.00863_dp, 3e-5_dp, 76.0_dp, 0.09220_dp, 6e-5_dp, 77.0_dp, 0.07594_dp, 4e-5_dp, 78.0_dp, 0.23685_dp, 14e-5_dp, 80.0_dp, 0.49813_dp, 16e-5_dp, 82.0_dp, 0.08825_dp, 8e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Si_ice = ice_type(3, transpose(reshape([28.0_dp, 0.9222968_dp, 44e-7_dp, 29.0_dp, 0.0468316_dp, 32e-7_dp, 30.0_dp, 0.0308716_dp, 32e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Sm_ice = ice_type(7, transpose(reshape([144.0_dp, 0.03078_dp, 14e-5_dp, 147.0_dp, 0.15004_dp, 54e-5_dp, 148.0_dp, 0.11248_dp, 36e-5_dp, 149.0_dp, 0.13824_dp, 40e-5_dp, 150.0_dp, 0.07365_dp, 34e-5_dp, 152.0_dp, 0.26740_dp, 36e-5_dp, 154.0_dp, 0.22741_dp, 56e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Sn_ice = ice_type(10, transpose(reshape([112.0_dp, 0.00973_dp, 3e-5_dp, 114.0_dp, 0.00659_dp, 3e-5_dp, 115.0_dp, 0.00339_dp, 3e-5_dp, 116.0_dp, 0.14536_dp, 31e-5_dp, 117.0_dp, 0.07676_dp, 22e-5_dp, 118.0_dp, 0.24223_dp, 30e-5_dp, 119.0_dp, 0.08585_dp, 13e-5_dp, 120.0_dp, 0.32593_dp, 20e-5_dp, 122.0_dp, 0.04629_dp, 9e-5_dp, 124.0_dp, 0.05789_dp, 17e-5_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Sr_ice = ice_type(4, transpose(reshape([84.0_dp, 0.005574_dp, 16e-6_dp, 86.0_dp, 0.098566_dp, 34e-6_dp, 87.0_dp, 0.070015_dp, 26e-6_dp, 88.0_dp, 0.825845_dp, 66e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ta_ice = ice_type(2, transpose(reshape([180.0_dp, 0.0001201_dp, 8e-7_dp, 181.0_dp, 0.9998799_dp, 8e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Tb_ice = ice_type(1, transpose(reshape([159.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Tc_ice = ice_type(0, transpose(reshape([-1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Te_ice = ice_type(8, transpose(reshape([120.0_dp, 0.00096_dp, 1e-5_dp, 122.0_dp, 0.02603_dp, 1e-5_dp, 123.0_dp, 0.00908_dp, 1e-5_dp, 124.0_dp, 0.04816_dp, 2e-5_dp, 125.0_dp, 0.07139_dp, 2e-5_dp, 126.0_dp, 0.18952_dp, 4e-5_dp, 128.0_dp, 0.31687_dp, 4e-5_dp, 130.0_dp, 0.33799_dp, 3e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Th_ice = ice_type(2, transpose(reshape([230.0_dp, 0.00001138_dp, 2e-8_dp, 232.0_dp, 0.99998862_dp, 2e-8_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Ti_ice = ice_type(5, transpose(reshape([46.0_dp, 0.08249_dp, 21e-5_dp, 47.0_dp, 0.07437_dp, 14e-5_dp, 48.0_dp, 0.73720_dp, 20e-5_dp, 49.0_dp, 0.05409_dp, 10e-5_dp, 50.0_dp, 0.05185_dp, 13e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Tl_ice = ice_type(2, transpose(reshape([203.0_dp, 0.29524_dp, 9e-5_dp, 205.0_dp, 0.70476_dp, 9e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Tm_ice = ice_type(1, transpose(reshape([169.0_dp, 1.00000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: U_ice = ice_type(3, transpose(reshape([234.0_dp, 0.0000542_dp, 4e-7_dp, 235.0_dp, 0.0072041_dp, 36e-7_dp, 238.0_dp, 0.9927417_dp, 36e-7_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: V_ice = ice_type(2, transpose(reshape([50.0_dp, 0.002497_dp, 6e-6_dp, 51.0_dp, 0.997503_dp, 6e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: W_ice = ice_type(5, transpose(reshape([180.0_dp, 0.001198_dp, 2e-6_dp, 182.0_dp, 0.264985_dp, 49e-6_dp, 183.0_dp, 0.143136_dp, 6e-6_dp, 184.0_dp, 0.306422_dp, 13e-6_dp, 186.0_dp, 0.284259_dp, 62e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Xe_ice = ice_type(9, transpose(reshape([124.0_dp, 0.000952_dp, 3e-6_dp, 126.0_dp, 0.000890_dp, 2e-6_dp, 128.0_dp, 0.019102_dp, 8e-6_dp, 129.0_dp, 0.264006_dp, 82e-6_dp, 130.0_dp, 0.040710_dp, 13e-6_dp, 131.0_dp, 0.212324_dp, 30e-6_dp, 132.0_dp, 0.269086_dp, 33e-6_dp, 134.0_dp, 0.104357_dp, 21e-6_dp, 136.0_dp, 0.088573_dp, 44e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Y_ice = ice_type(1, transpose(reshape([89.0_dp, 1.0000_dp, 0.0000_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Yb_ice = ice_type(7, transpose(reshape([168.0_dp, 0.00123_dp, 1e-5_dp, 170.0_dp, 0.02982_dp, 6e-5_dp, 171.0_dp, 0.14086_dp, 20e-5_dp, 172.0_dp, 0.21686_dp, 19e-5_dp, 173.0_dp, 0.16103_dp, 9e-5_dp, 174.0_dp, 0.32025_dp, 12e-5_dp, 176.0_dp, 0.12995_dp, 13e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Zn_ice = ice_type(5, transpose(reshape([64.0_dp, 0.491704_dp, 83e-6_dp, 66.0_dp, 0.277306_dp, 110e-6_dp, 67.0_dp, 0.040401_dp, 18e-6_dp, 68.0_dp, 0.184483_dp, 69e-6_dp, 70.0_dp, 0.006106_dp, 11e-6_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10]))) type( ice_type ), public, parameter :: Zr_ice = ice_type(5, transpose(reshape([90.0_dp, 0.51452_dp, 9e-5_dp, 91.0_dp, 0.11223_dp, 12e-5_dp, 92.0_dp, 0.17146_dp, 7e-5_dp, 94.0_dp, 0.17380_dp, 12e-5_dp, 96.0_dp, 0.02799_dp, 5e-5_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp, -1.0_dp], shape=[3, 10])))","tags":"","loc":"module/ciaaw__ice.html"},{"title":"ciaaw__common – ciaaw","text":"Common parameters Uses stdlib_optval stdlib_kinds ieee_arithmetic module~~ciaaw__common~~UsesGraph module~ciaaw__common ciaaw__common ieee_arithmetic ieee_arithmetic module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Used by module~~ciaaw__common~~UsedByGraph module~ciaaw__common ciaaw__common module~ciaaw__api ciaaw__api module~ciaaw__api->module~ciaaw__common module~ciaaw__pte ciaaw__pte module~ciaaw__api->module~ciaaw__pte module~ciaaw__types ciaaw__types module~ciaaw__api->module~ciaaw__types module~ciaaw__capi ciaaw__capi module~ciaaw__capi->module~ciaaw__common module~ciaaw__capi->module~ciaaw__api module~ciaaw__ice ciaaw__ice module~ciaaw__ice->module~ciaaw__common module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw ciaaw__naw module~ciaaw__naw->module~ciaaw__common module~ciaaw__naw->module~ciaaw__types module~ciaaw__pte->module~ciaaw__common module~ciaaw__pte->module~ciaaw__ice module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__pte->module~ciaaw__types module~ciaaw__saw->module~ciaaw__common module~ciaaw__saw->module~ciaaw__types module~ciaaw__types->module~ciaaw__common module~ciaaw ciaaw module~ciaaw->module~ciaaw__api module~ciaaw->module~ciaaw__capi module~ciaaw->module~ciaaw__pte Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"module/ciaaw__common.html"},{"title":"ciaaw – ciaaw","text":"Main module for the CIAAW library. Uses ciaaw__pte ciaaw__api ciaaw__capi module~~ciaaw~~UsesGraph module~ciaaw ciaaw module~ciaaw__api ciaaw__api module~ciaaw->module~ciaaw__api module~ciaaw__capi ciaaw__capi module~ciaaw->module~ciaaw__capi module~ciaaw__pte ciaaw__pte module~ciaaw->module~ciaaw__pte module~ciaaw__api->module~ciaaw__pte ieee_arithmetic ieee_arithmetic module~ciaaw__api->ieee_arithmetic module~ciaaw__common ciaaw__common module~ciaaw__api->module~ciaaw__common module~ciaaw__types ciaaw__types module~ciaaw__api->module~ciaaw__types module~ciaaw__version ciaaw__version module~ciaaw__api->module~ciaaw__version module~ciaaw__capi->module~ciaaw__api iso_c_binding iso_c_binding module~ciaaw__capi->iso_c_binding module~ciaaw__capi->module~ciaaw__common module~ciaaw__pte->module~ciaaw__common module~ciaaw__ice ciaaw__ice module~ciaaw__pte->module~ciaaw__ice module~ciaaw__naw ciaaw__naw module~ciaaw__pte->module~ciaaw__naw module~ciaaw__saw ciaaw__saw module~ciaaw__pte->module~ciaaw__saw module~ciaaw__pte->module~ciaaw__types module~ciaaw__common->ieee_arithmetic stdlib_kinds stdlib_kinds module~ciaaw__common->stdlib_kinds stdlib_optval stdlib_optval module~ciaaw__common->stdlib_optval module~ciaaw__ice->module~ciaaw__common module~ciaaw__ice->module~ciaaw__types module~ciaaw__naw->module~ciaaw__common module~ciaaw__naw->module~ciaaw__types module~ciaaw__saw->module~ciaaw__common module~ciaaw__saw->module~ciaaw__types module~ciaaw__types->module~ciaaw__common stdlib_string_type stdlib_string_type module~ciaaw__types->stdlib_string_type Help Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Subroutine Subroutine Function Function Program Program This Page's Entity This Page's Entity Solid arrows point from a submodule to the (sub)module which it is\ndescended from. Dashed arrows point from a module or program unit to \nmodules which it uses. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs.","tags":"","loc":"module/ciaaw.html"},{"title":"ciaaw_saw.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_saw.f90~~EfferentGraph sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_saw.f90~~AfferentGraph sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__saw !! Ciaaw saw - Autogenerated !! See [specs](../page/specs/ciaaw_api.html) use ciaaw__common use ciaaw__types private type ( saw_type ), parameter , public :: H_saw = & saw_type ( 1.00784_dp , 1.00811_dp , - 1.0_dp , - 1.0_dp , & 1.0080_dp , 0.0002_dp ) !! H type ( saw_type ), parameter , public :: He_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 4.002602_dp , 0.000002_dp , & 4.0026_dp , 0.0001_dp ) !! He type ( saw_type ), parameter , public :: Li_saw = & saw_type ( 6.938_dp , 6.997_dp , - 1.0_dp , - 1.0_dp , & 6.94_dp , 0.06_dp ) !! Li type ( saw_type ), parameter , public :: Be_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 9.0121831_dp , 0.0000005_dp , & 9.0122_dp , 0.00001_dp ) !! Be type ( saw_type ), parameter , public :: B_saw = & saw_type ( 1 0.806_dp , 1 0.821_dp , - 1.0_dp , - 1.0_dp , & 1 0.81_dp , 0.02_dp ) !! B type ( saw_type ), parameter , public :: C_saw = & saw_type ( 1 2.0096_dp , 1 2.0116_dp , - 1.0_dp , - 1.0_dp , & 1 2.011_dp , 0.002_dp ) !! C type ( saw_type ), parameter , public :: N_saw = & saw_type ( 1 4.00643_dp , 1 4.00728_dp , - 1.0_dp , - 1.0_dp , & 1 4.007_dp , 0.001_dp ) !! N type ( saw_type ), parameter , public :: O_saw = & saw_type ( 1 5.99903_dp , 1 5.99977_dp , - 1.0_dp , - 1.0_dp , & 1 5.999_dp , 0.001_dp ) !! O type ( saw_type ), parameter , public :: F_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 1 8.998403162_dp , 0.000000005_dp , & 1 8.998_dp , 0.001_dp ) !! F type ( saw_type ), parameter , public :: Ne_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 2 0.1797_dp , 0.0006_dp , & 2 0.180_dp , 0.001_dp ) !! Ne type ( saw_type ), parameter , public :: Na_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 2 2.98976928_dp , 0.00000002_dp , & 2 2.990_dp , 0.001_dp ) !! Na type ( saw_type ), parameter , public :: Mg_saw = & saw_type ( 2 4.304_dp , 2 4.307_dp , - 1.0_dp , - 1.0_dp , & 2 4.305_dp , 0.002_dp ) !! Mg type ( saw_type ), parameter , public :: Al_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 2 6.9815384_dp , 0.0000003_dp , & 2 6.982_dp , 0.001_dp ) !! Al type ( saw_type ), parameter , public :: Si_saw = & saw_type ( 2 8.084_dp , 2 8.086_dp , - 1.0_dp , - 1.0_dp , & 2 8.085_dp , 0.001_dp ) !! Si type ( saw_type ), parameter , public :: P_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 3 0.973761998_dp , 0.000000005_dp , & 3 0.974_dp , 0.001_dp ) !! P type ( saw_type ), parameter , public :: S_saw = & saw_type ( 3 2.059_dp , 3 2.076_dp , - 1.0_dp , - 1.0_dp , & 3 2.06_dp , 0.02_dp ) !! S type ( saw_type ), parameter , public :: Cl_saw = & saw_type ( 3 5.446_dp , 3 5.457_dp , - 1.0_dp , - 1.0_dp , & 3 5.45_dp , 0.01_dp ) !! Cl type ( saw_type ), parameter , public :: Ar_saw = & saw_type ( 3 9.792_dp , 3 9.963_dp , - 1.0_dp , - 1.0_dp , & 3 9.95_dp , 0.16_dp ) !! Ar type ( saw_type ), parameter , public :: K_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 3 9.0983_dp , 0.0001_dp , & 3 9.098_dp , 0.001_dp ) !! K type ( saw_type ), parameter , public :: Ca_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 4 0.078_dp , 0.004_dp , & 4 0.078_dp , 0.004_dp ) !! Ca type ( saw_type ), parameter , public :: Sc_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 4 4.955907_dp , 0.000004_dp , & 4 4.956_dp , 0.001_dp ) !! Sc type ( saw_type ), parameter , public :: Ti_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 4 7.867_dp , 0.001_dp , & 4 7.867_dp , 0.001_dp ) !! Ti type ( saw_type ), parameter , public :: V_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 0.9415_dp , 0.0001_dp , & 5 0.942_dp , 0.001_dp ) !! V type ( saw_type ), parameter , public :: Cr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 1.9961_dp , 0.0006_dp , & 5 1.996_dp , 0.001_dp ) !! Cr type ( saw_type ), parameter , public :: Mn_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 4.938043_dp , 0.000002_dp , & 5 4.938_dp , 0.001_dp ) !! Mn type ( saw_type ), parameter , public :: Fe_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 5.845_dp , 0.002_dp , & 5 5.845_dp , 0.002_dp ) !! Fe type ( saw_type ), parameter , public :: Co_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 8.933194_dp , 0.000003_dp , & 5 8.933_dp , 0.001_dp ) !! Co type ( saw_type ), parameter , public :: Ni_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 5 8.6934_dp , 0.0004_dp , & 5 8.693_dp , 0.001_dp ) !! Ni type ( saw_type ), parameter , public :: Cu_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 6 3.546_dp , 0.003_dp , & 6 3.546_dp , 0.003_dp ) !! Cu type ( saw_type ), parameter , public :: Zn_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 6 5.38_dp , 0.02_dp , & 6 5.38_dp , 0.02_dp ) !! Zn type ( saw_type ), parameter , public :: Ga_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 6 9.723_dp , 0.001_dp , & 6 9.723_dp , 0.001_dp ) !! Ga type ( saw_type ), parameter , public :: Ge_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 7 2.630_dp , 0.008_dp , & 7 2.630_dp , 0.008_dp ) !! Ge type ( saw_type ), parameter , public :: As_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 7 4.921595_dp , 0.000006_dp , & 7 4.922_dp , 0.001_dp ) !! As type ( saw_type ), parameter , public :: Se_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 7 8.971_dp , 0.008_dp , & 7 8.971_dp , 0.008_dp ) !! Se type ( saw_type ), parameter , public :: Br_saw = & saw_type ( 7 9.901_dp , 7 9.907_dp , - 1.0_dp , - 1.0_dp , & 7 9.904_dp , 0.003_dp ) !! Br type ( saw_type ), parameter , public :: Kr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 8 3.798_dp , 0.002_dp , & 8 3.798_dp , 0.002_dp ) !! Kr type ( saw_type ), parameter , public :: Rb_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 8 5.4678_dp , 0.0003_dp , & 8 5.468_dp , 0.001_dp ) !! Rb type ( saw_type ), parameter , public :: Sr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 8 7.62_dp , 0.01_dp , & 8 7.62_dp , 0.01_dp ) !! Sr type ( saw_type ), parameter , public :: Y_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 8 8.905838_dp , 0.000002_dp , & 8 8.906_dp , 0.001_dp ) !! Y type ( saw_type ), parameter , public :: Zr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 9 1.224_dp , 0.002_dp , & 9 1.224_dp , 0.002_dp ) !! Zr type ( saw_type ), parameter , public :: Nb_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 9 2.90637_dp , 0.00001_dp , & 9 2.906_dp , 0.001_dp ) !! Nb type ( saw_type ), parameter , public :: Mo_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 9 5.95_dp , 0.01_dp , & 9 5.95_dp , 0.01_dp ) !! Mo type ( saw_type ), parameter , public :: Tc_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Tc type ( saw_type ), parameter , public :: Ru_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 10 1.07_dp , 0.02_dp , & 10 1.07_dp , 0.02_dp ) !! Ru type ( saw_type ), parameter , public :: Rh_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 10 2.90549_dp , 0.00002_dp , & 10 2.91_dp , 0.01_dp ) !! Rh type ( saw_type ), parameter , public :: Pd_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 10 6.42_dp , 0.01_dp , & 10 6.42_dp , 0.01_dp ) !! Pd type ( saw_type ), parameter , public :: Ag_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 10 7.8682_dp , 0.0002_dp , & 10 7.87_dp , 0.01_dp ) !! Ag type ( saw_type ), parameter , public :: Cd_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 11 2.414_dp , 0.004_dp , & 11 2.41_dp , 0.01_dp ) !! Cd type ( saw_type ), parameter , public :: In_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 11 4.818_dp , 0.001_dp , & 11 4.82_dp , 0.01_dp ) !! In type ( saw_type ), parameter , public :: Sn_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 11 8.70_dp , 0.007_dp , & 11 8.71_dp , 0.01_dp ) !! Sn type ( saw_type ), parameter , public :: Sb_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 12 1.760_dp , 0.001_dp , & 12 1.76_dp , 0.01_dp ) !! Sb type ( saw_type ), parameter , public :: Te_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 12 7.60_dp , 0.03_dp , & 12 7.60_dp , 0.03_dp ) !! Te type ( saw_type ), parameter , public :: I_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 12 6.90447_dp , 0.00003_dp , & 12 6.90_dp , 0.01_dp ) !! I type ( saw_type ), parameter , public :: Xe_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 13 1.293_dp , 0.006_dp , & 13 1.29_dp , 0.01_dp ) !! Xe type ( saw_type ), parameter , public :: Cs_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 13 2.90545196_dp , 0.00000006_dp , & 13 2.91_dp , 0.01_dp ) !! Cs type ( saw_type ), parameter , public :: Ba_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 13 7.327_dp , 0.007_dp , & 13 7.33_dp , 0.01_dp ) !! Ba type ( saw_type ), parameter , public :: La_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 13 8.90547_dp , 0.00007_dp , & 13 8.91_dp , 0.01_dp ) !! La type ( saw_type ), parameter , public :: Ce_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 14 0.116_dp , 0.001_dp , & 14 0.12_dp , 0.01_dp ) !! Ce type ( saw_type ), parameter , public :: Pr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 14 0.90766_dp , 0.00001_dp , & 14 0.91_dp , 0.01_dp ) !! Pr type ( saw_type ), parameter , public :: Nd_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 14 4.242_dp , 0.003_dp , & 14 4.24_dp , 0.01_dp ) !! Nd type ( saw_type ), parameter , public :: Pm_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Pm type ( saw_type ), parameter , public :: Sm_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 15 0.36_dp , 0.02_dp , & 15 0.36_dp , 0.02_dp ) !! Sm type ( saw_type ), parameter , public :: Eu_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 15 1.964_dp , 0.001_dp , & 15 1.96_dp , 0.01_dp ) !! Eu type ( saw_type ), parameter , public :: Gd_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 15 7.25_dp , 0.03_dp , & 15 7.25_dp , 0.03_dp ) !! Gd type ( saw_type ), parameter , public :: Tb_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 15 8.925354_dp , 0.000007_dp , & 15 8.93_dp , 0.01_dp ) !! Tb type ( saw_type ), parameter , public :: Dy_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 16 2.500_dp , 0.001_dp , & 16 2.50_dp , 0.01_dp ) !! Dy type ( saw_type ), parameter , public :: Ho_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 16 4.930329_dp , 0.000005_dp , & 16 4.93_dp , 0.01_dp ) !! Ho type ( saw_type ), parameter , public :: Er_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 16 7.259_dp , 0.003_dp , & 16 7.26_dp , 0.01_dp ) !! Er type ( saw_type ), parameter , public :: Tm_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 16 8.934219_dp , 0.000005_dp , & 16 8.93_dp , 0.01_dp ) !! Tm type ( saw_type ), parameter , public :: Yb_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 17 3.045_dp , 0.010_dp , & 17 3.05_dp , 0.02_dp ) !! Yb type ( saw_type ), parameter , public :: Lu_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 17 4.9668_dp , 0.0001_dp , & 17 4.97_dp , 0.01_dp ) !! Lu type ( saw_type ), parameter , public :: Hf_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 17 8.486_dp , 0.006_dp , & 17 8.49_dp , 0.01_dp ) !! Hf type ( saw_type ), parameter , public :: Ta_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 18 0.94788_dp , 0.00002_dp , & 18 0.95_dp , 0.01_dp ) !! Ta type ( saw_type ), parameter , public :: W_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 18 3.84_dp , 0.01_dp , & 18 3.84_dp , 0.01_dp ) !! W type ( saw_type ), parameter , public :: Re_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 18 6.207_dp , 0.001_dp , & 18 6.21_dp , 0.01_dp ) !! Re type ( saw_type ), parameter , public :: Os_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 19 0.23_dp , 0.03_dp , & 19 0.23_dp , 0.03_dp ) !! Os type ( saw_type ), parameter , public :: Ir_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 19 2.217_dp , 0.002_dp , & 19 2.22_dp , 0.01_dp ) !! Ir type ( saw_type ), parameter , public :: Pt_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 19 5.084_dp , 0.009_dp , & 19 5.08_dp , 0.02_dp ) !! Pt type ( saw_type ), parameter , public :: Au_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 19 6.966570_dp , 0.000004_dp , & 19 6.97_dp , 0.01_dp ) !! Au type ( saw_type ), parameter , public :: Hg_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 20 0.592_dp , 0.003_dp , & 20 0.59_dp , 0.01_dp ) !! Hg type ( saw_type ), parameter , public :: Tl_saw = & saw_type ( 20 4.382_dp , 20 4.385_dp , - 1.0_dp , - 1.0_dp , & 20 4.38_dp , 0.01_dp ) !! Tl type ( saw_type ), parameter , public :: Pb_saw = & saw_type ( 20 6.14_dp , 20 7.94_dp , - 1.0_dp , - 1.0_dp , & 20 7.2_dp , 1.1_dp ) !! Pb type ( saw_type ), parameter , public :: Bi_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 20 8.98040_dp , 0.00001_dp , & 20 8.98_dp , 0.01_dp ) !! Bi type ( saw_type ), parameter , public :: Po_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Po type ( saw_type ), parameter , public :: At_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! At type ( saw_type ), parameter , public :: Rn_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Rn type ( saw_type ), parameter , public :: Fr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Fr type ( saw_type ), parameter , public :: Ra_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Ra type ( saw_type ), parameter , public :: Ac_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Ac type ( saw_type ), parameter , public :: Th_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 23 2.0377_dp , 0.0004_dp , & 23 2.04_dp , 0.01_dp ) !! Th type ( saw_type ), parameter , public :: Pa_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 23 1.03588_dp , 0.00001_dp , & 23 1.04_dp , 0.01_dp ) !! Pa type ( saw_type ), parameter , public :: U_saw = & saw_type ( - 1.0_dp , - 1.0_dp , 23 8.02891_dp , 0.00003_dp , & 23 8.03_dp , 0.01_dp ) !! U type ( saw_type ), parameter , public :: Np_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Np type ( saw_type ), parameter , public :: Pu_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Pu type ( saw_type ), parameter , public :: Am_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Am type ( saw_type ), parameter , public :: Cm_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Cm type ( saw_type ), parameter , public :: Bk_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Bk type ( saw_type ), parameter , public :: Cf_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Cf type ( saw_type ), parameter , public :: Es_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Es type ( saw_type ), parameter , public :: Fm_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Fm type ( saw_type ), parameter , public :: Md_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Md type ( saw_type ), parameter , public :: No_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! No type ( saw_type ), parameter , public :: Lr_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Lr type ( saw_type ), parameter , public :: Rf_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Rf type ( saw_type ), parameter , public :: Db_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Db type ( saw_type ), parameter , public :: Sg_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Sg type ( saw_type ), parameter , public :: Bh_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Bh type ( saw_type ), parameter , public :: Hs_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Hs type ( saw_type ), parameter , public :: Mt_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Mt type ( saw_type ), parameter , public :: Ds_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Ds type ( saw_type ), parameter , public :: Rg_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Rg type ( saw_type ), parameter , public :: Cn_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Cn type ( saw_type ), parameter , public :: Nh_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Nh type ( saw_type ), parameter , public :: Fl_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Fl type ( saw_type ), parameter , public :: Mc_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Mc type ( saw_type ), parameter , public :: Lv_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Lv type ( saw_type ), parameter , public :: Ts_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Ts type ( saw_type ), parameter , public :: Og_saw = & saw_type ( - 1.0_dp , - 1.0_dp , - 1.0_dp , - 1.0_dp , & - 1.0_dp , - 1.0_dp ) !! Og end module ciaaw__saw","tags":"","loc":"sourcefile/ciaaw_saw.f90.html"},{"title":"ciaaw_capi.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_capi.f90~~EfferentGraph sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_version.f90 ciaaw_version.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_version.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_capi.f90~~AfferentGraph sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__capi !! C API. !! See [specs](../page/specs/capi.html) use iso_c_binding , only : c_ptr , c_null_char , c_loc , c_double , c_int , c_bool , c_f_pointer use ciaaw__common use ciaaw__api implicit none private character ( len = :), allocatable , target :: version_c public :: capi_get_version public :: capi_get_saw public :: capi_get_ice , capi_get_nice public :: capi_get_naw , capi_get_nnaw public :: capi_get_ice_values contains ! ------------------------------------------------------------------------------ ! VERSION function capi_get_version () bind ( c , name = 'ciaaw_get_version' ) result ( cptr ) !! C API for [[ciaaw__api(module):get_version(function)]]. type ( c_ptr ) :: cptr !! C pointer to a string indicating the version. character ( len = :), pointer :: fptr fptr => get_version () if ( allocated ( version_c )) then deallocate ( version_c ) endif allocate ( character ( len = len ( fptr ) + 1 ) :: version_c ) version_c = fptr // c_null_char cptr = c_loc ( version_c ) end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! SAW function capi_get_saw ( s , n , abridged , uncertainty ) bind ( C , name = \"ciaaw_get_saw\" ) result ( res ) !! C API for [[ciaaw__api(module):get_saw(function)]]. ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. logical ( c_bool ), intent ( in ), value :: abridged !! Flag for setting if abridged value is desired. logical ( c_bool ), intent ( in ), value :: uncertainty !! Flag for setting if the uncertainty is desired instead of the value. ! Returns real ( c_double ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs logical :: f_abridged , f_uncertainty call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo f_abridged = logical ( abridged ) f_uncertainty = logical ( uncertainty ) res = get_saw ( fs , f_abridged , f_uncertainty ) end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! ICE function capi_get_ice ( s , n , A , uncertainty ) bind ( C , name = \"ciaaw_get_ice\" ) result ( res ) !! C API for [[ciaaw__api(module):get_ice(function)]] ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Element symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. integer ( c_int ), intent ( in ), value :: A !! Mass number. logical ( c_bool ), intent ( in ), value :: uncertainty !! Flag for returning the uncertainty instead of the value. Default to FALSE. ! Returns real ( c_double ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs logical :: f_uncertainty call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo f_uncertainty = logical ( uncertainty ) res = get_ice ( fs , A , f_uncertainty ) end function function capi_get_nice ( s , n ) bind ( C , name = \"ciaaw_get_nice\" ) result ( res ) !! C API for [[ciaaw__api(module):get_nice(function)]] ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Element symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. ! Returns integer ( c_int ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo res = get_nice ( fs ) end function function capi_get_ice_values ( s , n ) bind ( C , name = \"ciaaw_get_ice_values\" ) result ( res ) !! C API for [[ciaaw__api(module):get_ice_values(function)]] ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Element symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. ! Returns type ( c_ptr ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs real ( dp ), pointer , contiguous :: fptr (:,:) call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo fptr => get_ice_values ( fs ) res = c_loc ( fptr ) end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! NAW function capi_get_naw ( s , n , A , uncertainty ) bind ( C , name = \"ciaaw_get_naw\" ) result ( res ) !! C API for [[ciaaw__api(module):get_naw(function)]] ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Element symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. integer ( c_int ), intent ( in ), value :: A !! Mass number. logical ( c_bool ), intent ( in ), value :: uncertainty !! Flag for returning the uncertainty instead of the value. Default to FALSE. ! Returns real ( c_double ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs logical :: f_uncertainty call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo f_uncertainty = logical ( uncertainty ) res = get_naw ( fs , A , f_uncertainty ) end function function capi_get_nnaw ( s , n ) bind ( C , name = \"ciaaw_get_nnaw\" ) result ( res ) !! C API for [[ciaaw__api(module):get_nnaw(function)]] ! Arguments type ( c_ptr ), intent ( in ), value :: s !! Element symbol. integer ( c_int ), intent ( in ), value :: n !! Size of the symbol string. ! Returns integer ( c_int ) :: res ! Variables integer ( c_int ) :: i character , pointer , dimension (:) :: c2f_s character ( len = n ) :: fs call c_f_pointer ( s , c2f_s , shape = [ n ]) do i = 1 , n fs ( i : i ) = c2f_s ( i ) enddo res = get_nnaw ( fs ) end function ! ------------------------------------------------------------------------------ end module ciaaw__capi","tags":"","loc":"sourcefile/ciaaw_capi.f90.html"},{"title":"ciaaw_naw.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_naw.f90~~EfferentGraph sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_naw.f90~~AfferentGraph sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__naw !! Ciaaw naw - Autogenerated !! See [specs](../page/specs/ciaaw_api.html) use ciaaw__common use ciaaw__types private type ( naw_type ), parameter , public :: H_naw = & naw_type ( 7 , transpose ( reshape ([& 1.0_dp , 1.007825031898_dp , 0.000000000014_dp ,& 2.0_dp , 2.014101777844_dp , 0.000000000015_dp ,& 3.0_dp , 3.01604928132_dp , 0.00000000008_dp ,& 4.0_dp , 4.026431867_dp , 0.000107354_dp ,& 5.0_dp , 5.035311492_dp , 0.000096020_dp ,& 6.0_dp , 6.044955437_dp , 0.000272816_dp ,& 7.0_dp , 7.052749_dp , 0.001078_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: He_naw = & naw_type ( 8 , transpose ( reshape ([& 3.0_dp , 3.01602932197_dp , 0.00000000006_dp ,& 4.0_dp , 4.00260325413_dp , 0.00000000016_dp ,& 5.0_dp , 5.012057224_dp , 0.000021470_dp ,& 6.0_dp , 6.018885889_dp , 0.000000057_dp ,& 7.0_dp , 7.027990652_dp , 0.000008115_dp ,& 8.0_dp , 8.033934388_dp , 0.000000095_dp ,& 9.0_dp , 9.043946414_dp , 0.000050259_dp ,& 1 0.0_dp , 1 0.052815306_dp , 0.000099676_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Li_naw = & naw_type ( 11 , transpose ( reshape ([& 3.0_dp , 3.030775_dp , 0.002147_dp ,& 4.0_dp , 4.027185561_dp , 0.000227733_dp ,& 5.0_dp , 5.012537800_dp , 0.000053677_dp ,& 6.0_dp , 6.01512288742_dp , 0.00000000155_dp ,& 7.0_dp , 7.01600343426_dp , 0.00000000450_dp ,& 8.0_dp , 8.022486244_dp , 0.000000050_dp ,& 9.0_dp , 9.026790191_dp , 0.000000200_dp ,& 1 0.0_dp , 1 0.035483453_dp , 0.000013656_dp ,& 1 1.0_dp , 1 1.043723581_dp , 0.000000660_dp ,& 1 2.0_dp , 1 2.052613942_dp , 0.000032213_dp ,& 1 3.0_dp , 1 3.061171503_dp , 0.000075150_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Be_naw = & naw_type ( 12 , transpose ( reshape ([& 5.0_dp , 5.039870_dp , 0.002150_dp ,& 6.0_dp , 6.019726409_dp , 0.000005848_dp ,& 7.0_dp , 7.016928714_dp , 0.000000076_dp ,& 8.0_dp , 8.005305102_dp , 0.000000037_dp ,& 9.0_dp , 9.012183062_dp , 0.000000082_dp ,& 1 0.0_dp , 1 0.013534692_dp , 0.000000086_dp ,& 1 1.0_dp , 1 1.021661080_dp , 0.000000255_dp ,& 1 2.0_dp , 1 2.026922082_dp , 0.000002048_dp ,& 1 3.0_dp , 1 3.036134506_dp , 0.000010929_dp ,& 1 4.0_dp , 1 4.042892920_dp , 0.000141970_dp ,& 1 5.0_dp , 1 5.053490215_dp , 0.000177990_dp ,& 1 6.0_dp , 1 6.061672036_dp , 0.000177990_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: B_naw = & naw_type ( 16 , transpose ( reshape ([& 6.0_dp , 6.050800_dp , 0.002150_dp ,& 7.0_dp , 7.029712000_dp , 0.000027000_dp ,& 8.0_dp , 8.024607315_dp , 0.000001073_dp ,& 9.0_dp , 9.013329645_dp , 0.000000969_dp ,& 1 0.0_dp , 1 0.012936862_dp , 0.000000016_dp ,& 1 1.0_dp , 1 1.009305166_dp , 0.000000013_dp ,& 1 2.0_dp , 1 2.014352638_dp , 0.000001418_dp ,& 1 3.0_dp , 1 3.017779981_dp , 0.000001073_dp ,& 1 4.0_dp , 1 4.025404010_dp , 0.000022773_dp ,& 1 5.0_dp , 1 5.031087023_dp , 0.000022575_dp ,& 1 6.0_dp , 1 6.039841045_dp , 0.000026373_dp ,& 1 7.0_dp , 1 7.046931399_dp , 0.000219114_dp ,& 1 8.0_dp , 1 8.055601683_dp , 0.000219180_dp ,& 1 9.0_dp , 1 9.064166000_dp , 0.000564000_dp ,& 2 0.0_dp , 2 0.074505644_dp , 0.000586538_dp ,& 2 1.0_dp , 2 1.084147485_dp , 0.000599750_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: C_naw = & naw_type ( 16 , transpose ( reshape ([& 8.0_dp , 8.037643039_dp , 0.000019584_dp ,& 9.0_dp , 9.031037202_dp , 0.000002293_dp ,& 1 0.0_dp , 1 0.016853217_dp , 0.000000075_dp ,& 1 1.0_dp , 1 1.011432597_dp , 0.000000064_dp ,& 1 2.0_dp , 1 2.0000000_dp , 0.0000000_dp ,& 1 3.0_dp , 1 3.00335483534_dp , 0.00000000025_dp ,& 1 4.0_dp , 1 4.00324198862_dp , 0.00000000403_dp ,& 1 5.0_dp , 1 5.010599256_dp , 0.000000858_dp ,& 1 6.0_dp , 1 6.014701255_dp , 0.000003840_dp ,& 1 7.0_dp , 1 7.022578650_dp , 0.000018641_dp ,& 1 8.0_dp , 1 8.026751930_dp , 0.000032206_dp ,& 1 9.0_dp , 1 9.034797594_dp , 0.000105625_dp ,& 2 0.0_dp , 2 0.040261732_dp , 0.000247585_dp ,& 2 1.0_dp , 2 1.049000_dp , 0.000640_dp ,& 2 2.0_dp , 2 2.057553990_dp , 0.000248515_dp ,& 2 3.0_dp , 2 3.068890_dp , 0.001070_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: N_naw = & naw_type ( 16 , transpose ( reshape ([& 1 0.0_dp , 1 0.041653540_dp , 0.000429417_dp ,& 1 1.0_dp , 1 1.026157593_dp , 0.000005368_dp ,& 1 2.0_dp , 1 2.018613180_dp , 0.000001073_dp ,& 1 3.0_dp , 1 3.005738609_dp , 0.000000289_dp ,& 1 4.0_dp , 1 4.00307400425_dp , 0.00000000024_dp ,& 1 5.0_dp , 1 5.00010889827_dp , 0.00000000062_dp ,& 1 6.0_dp , 1 6.006101925_dp , 0.000002470_dp ,& 1 7.0_dp , 1 7.008448876_dp , 0.000016103_dp ,& 1 8.0_dp , 1 8.014077563_dp , 0.000019935_dp ,& 1 9.0_dp , 1 9.017022389_dp , 0.000017610_dp ,& 2 0.0_dp , 2 0.023367295_dp , 0.000084696_dp ,& 2 1.0_dp , 2 1.027087573_dp , 0.000143906_dp ,& 2 2.0_dp , 2 2.034100918_dp , 0.000223060_dp ,& 2 3.0_dp , 2 3.039421000_dp , 0.000451500_dp ,& 2 4.0_dp , 2 4.050390_dp , 0.000430_dp ,& 2 5.0_dp , 2 5.060100_dp , 0.000540_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: O_naw = & naw_type ( 18 , transpose ( reshape ([& 1 1.0_dp , 1 1.051249828_dp , 0.000064453_dp ,& 1 2.0_dp , 1 2.034367726_dp , 0.000012882_dp ,& 1 3.0_dp , 1 3.024815435_dp , 0.000010226_dp ,& 1 4.0_dp , 1 4.008596706_dp , 0.000000027_dp ,& 1 5.0_dp , 1 5.003065636_dp , 0.000000526_dp ,& 1 6.0_dp , 1 5.99491461926_dp , 0.00000000032_dp ,& 1 7.0_dp , 1 6.99913175595_dp , 0.00000000069_dp ,& 1 8.0_dp , 1 7.99915961214_dp , 0.00000000069_dp ,& 1 9.0_dp , 1 9.003577969_dp , 0.000002830_dp ,& 2 0.0_dp , 2 0.004075357_dp , 0.000000950_dp ,& 2 1.0_dp , 2 1.008654948_dp , 0.000012882_dp ,& 2 2.0_dp , 2 2.009965744_dp , 0.000061107_dp ,& 2 3.0_dp , 2 3.015696686_dp , 0.000130663_dp ,& 2 4.0_dp , 2 4.019861000_dp , 0.000177000_dp ,& 2 5.0_dp , 2 5.029338919_dp , 0.000177225_dp ,& 2 6.0_dp , 2 6.037210155_dp , 0.000177081_dp ,& 2 7.0_dp , 2 7.047955_dp , 0.000537_dp ,& 2 8.0_dp , 2 8.055910_dp , 0.000750_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: F_naw = & naw_type ( 19 , transpose ( reshape ([& 1 3.0_dp , 1 3.045121_dp , 0.000537_dp ,& 1 4.0_dp , 1 4.034315196_dp , 0.000044142_dp ,& 1 5.0_dp , 1 5.017785139_dp , 0.000015029_dp ,& 1 6.0_dp , 1 6.011460278_dp , 0.000005758_dp ,& 1 7.0_dp , 1 7.002095237_dp , 0.000000266_dp ,& 1 8.0_dp , 1 8.000937324_dp , 0.000000497_dp ,& 1 9.0_dp , 1 8.99840316207_dp , 0.00000000088_dp ,& 2 0.0_dp , 1 9.999981252_dp , 0.000000031_dp ,& 2 1.0_dp , 2 0.999948893_dp , 0.000001932_dp ,& 2 2.0_dp , 2 2.002998812_dp , 0.000013310_dp ,& 2 3.0_dp , 2 3.003526875_dp , 0.000035770_dp ,& 2 4.0_dp , 2 4.008099370_dp , 0.000104853_dp ,& 2 5.0_dp , 2 5.012167727_dp , 0.000103535_dp ,& 2 6.0_dp , 2 6.020048065_dp , 0.000114898_dp ,& 2 7.0_dp , 2 7.026981897_dp , 0.000129037_dp ,& 2 8.0_dp , 2 8.035860448_dp , 0.000129198_dp ,& 2 9.0_dp , 2 9.043103000_dp , 0.000564000_dp ,& 3 0.0_dp , 3 0.052561_dp , 0.000537_dp ,& 3 1.0_dp , 3 1.061023_dp , 0.000574_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ne_naw = & naw_type ( 20 , transpose ( reshape ([& 1 5.0_dp , 1 5.043172977_dp , 0.000071588_dp ,& 1 6.0_dp , 1 6.025750860_dp , 0.000021986_dp ,& 1 7.0_dp , 1 7.017713962_dp , 0.000000380_dp ,& 1 8.0_dp , 1 8.005708696_dp , 0.000000390_dp ,& 1 9.0_dp , 1 9.001880906_dp , 0.000000171_dp ,& 2 0.0_dp , 1 9.99244017525_dp , 0.00000000165_dp ,& 2 1.0_dp , 2 0.993846685_dp , 0.000000041_dp ,& 2 2.0_dp , 2 1.991385113_dp , 0.000000018_dp ,& 2 3.0_dp , 2 2.994466905_dp , 0.000000112_dp ,& 2 4.0_dp , 2 3.993610649_dp , 0.000000550_dp ,& 2 5.0_dp , 2 4.997814797_dp , 0.000031181_dp ,& 2 6.0_dp , 2 6.000516496_dp , 0.000019784_dp ,& 2 7.0_dp , 2 7.007569462_dp , 0.000097445_dp ,& 2 8.0_dp , 2 8.012130767_dp , 0.000135339_dp ,& 2 9.0_dp , 2 9.019753000_dp , 0.000160500_dp ,& 3 0.0_dp , 3 0.024992235_dp , 0.000271875_dp ,& 3 1.0_dp , 3 1.033474816_dp , 0.000285772_dp ,& 3 2.0_dp , 3 2.039720_dp , 0.000540_dp ,& 3 3.0_dp , 3 3.049523_dp , 0.000644_dp ,& 3 4.0_dp , 3 4.056728_dp , 0.000551_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Na_naw = & naw_type ( 23 , transpose ( reshape ([& 1 7.0_dp , 1 7.037273000_dp , 0.000064000_dp ,& 1 8.0_dp , 1 8.026879388_dp , 0.000100785_dp ,& 1 9.0_dp , 1 9.013880264_dp , 0.000011309_dp ,& 2 0.0_dp , 2 0.007354301_dp , 0.000001190_dp ,& 2 1.0_dp , 2 0.997654459_dp , 0.000000045_dp ,& 2 2.0_dp , 2 1.994437547_dp , 0.000000141_dp ,& 2 3.0_dp , 2 2.98976928195_dp , 0.00000000194_dp ,& 2 4.0_dp , 2 3.990963012_dp , 0.000000017_dp ,& 2 5.0_dp , 2 4.989953974_dp , 0.000001288_dp ,& 2 6.0_dp , 2 5.992634649_dp , 0.000003759_dp ,& 2 7.0_dp , 2 6.994076408_dp , 0.000004000_dp ,& 2 8.0_dp , 2 7.998939000_dp , 0.000011000_dp ,& 2 9.0_dp , 2 9.002877091_dp , 0.000007876_dp ,& 3 0.0_dp , 3 0.009097931_dp , 0.000005074_dp ,& 3 1.0_dp , 3 1.013146654_dp , 0.000015000_dp ,& 3 2.0_dp , 3 2.020011024_dp , 0.000040000_dp ,& 3 3.0_dp , 3 3.025529000_dp , 0.000483000_dp ,& 3 4.0_dp , 3 4.034010000_dp , 0.000643500_dp ,& 3 5.0_dp , 3 5.040614_dp , 0.000720_dp ,& 3 6.0_dp , 3 6.049279_dp , 0.000737_dp ,& 3 7.0_dp , 3 7.057042_dp , 0.000737_dp ,& 3 8.0_dp , 3 8.066458_dp , 0.000768_dp ,& 3 9.0_dp , 3 9.075123_dp , 0.000797_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Mg_naw = & naw_type ( 23 , transpose ( reshape ([& 1 9.0_dp , 1 9.034179920_dp , 0.000064413_dp ,& 2 0.0_dp , 2 0.018763075_dp , 0.000002000_dp ,& 2 1.0_dp , 2 1.011705764_dp , 0.000000810_dp ,& 2 2.0_dp , 2 1.999570597_dp , 0.000000170_dp ,& 2 3.0_dp , 2 2.994123768_dp , 0.000000034_dp ,& 2 4.0_dp , 2 3.985041689_dp , 0.000000013_dp ,& 2 5.0_dp , 2 4.985836966_dp , 0.000000050_dp ,& 2 6.0_dp , 2 5.982592972_dp , 0.000000031_dp ,& 2 7.0_dp , 2 6.984340647_dp , 0.000000050_dp ,& 2 8.0_dp , 2 7.983875426_dp , 0.000000280_dp ,& 2 9.0_dp , 2 8.988607163_dp , 0.000000369_dp ,& 3 0.0_dp , 2 9.990465454_dp , 0.000001390_dp ,& 3 1.0_dp , 3 0.996648232_dp , 0.000003300_dp ,& 3 2.0_dp , 3 1.999110138_dp , 0.000003500_dp ,& 3 3.0_dp , 3 3.005327862_dp , 0.000002859_dp ,& 3 4.0_dp , 3 4.008935455_dp , 0.000007400_dp ,& 3 5.0_dp , 3 5.016790000_dp , 0.000289500_dp ,& 3 6.0_dp , 3 6.021879000_dp , 0.000741000_dp ,& 3 7.0_dp , 3 7.030286265_dp , 0.000750350_dp ,& 3 8.0_dp , 3 8.036580_dp , 0.000540_dp ,& 3 9.0_dp , 3 9.045921_dp , 0.000551_dp ,& 4 0.0_dp , 4 0.053194_dp , 0.000537_dp ,& 4 1.0_dp , 4 1.062373_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Al_naw = & naw_type ( 23 , transpose ( reshape ([& 2 1.0_dp , 2 1.029082_dp , 0.000644_dp ,& 2 2.0_dp , 2 2.019540_dp , 0.000430_dp ,& 2 3.0_dp , 2 3.007244351_dp , 0.000000370_dp ,& 2 4.0_dp , 2 3.999947598_dp , 0.000000244_dp ,& 2 5.0_dp , 2 4.990428308_dp , 0.000000069_dp ,& 2 6.0_dp , 2 5.986891876_dp , 0.000000071_dp ,& 2 7.0_dp , 2 6.981538408_dp , 0.000000050_dp ,& 2 8.0_dp , 2 7.981910009_dp , 0.000000052_dp ,& 2 9.0_dp , 2 8.980453164_dp , 0.000000370_dp ,& 3 0.0_dp , 2 9.982969171_dp , 0.000002077_dp ,& 3 1.0_dp , 3 0.983949754_dp , 0.000002400_dp ,& 3 2.0_dp , 3 1.988084338_dp , 0.000007700_dp ,& 3 3.0_dp , 3 2.990877685_dp , 0.000007500_dp ,& 3 4.0_dp , 3 3.996781924_dp , 0.000002259_dp ,& 3 5.0_dp , 3 4.999759816_dp , 0.000007900_dp ,& 3 6.0_dp , 3 6.006388000_dp , 0.000160500_dp ,& 3 7.0_dp , 3 7.010531000_dp , 0.000193500_dp ,& 3 8.0_dp , 3 8.017681_dp , 0.000161_dp ,& 3 9.0_dp , 3 9.023070_dp , 0.000322_dp ,& 4 0.0_dp , 4 0.030940_dp , 0.000322_dp ,& 4 1.0_dp , 4 1.037134_dp , 0.000429_dp ,& 4 2.0_dp , 4 2.045078_dp , 0.000537_dp ,& 4 3.0_dp , 4 3.051820_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Si_naw = & naw_type ( 24 , transpose ( reshape ([& 2 2.0_dp , 2 2.036114_dp , 0.000537_dp ,& 2 3.0_dp , 2 3.025711_dp , 0.000537_dp ,& 2 4.0_dp , 2 4.011535430_dp , 0.000020904_dp ,& 2 5.0_dp , 2 5.004108798_dp , 0.000010735_dp ,& 2 6.0_dp , 2 5.992333818_dp , 0.000000115_dp ,& 2 7.0_dp , 2 6.986704687_dp , 0.000000115_dp ,& 2 8.0_dp , 2 7.97692653442_dp , 0.00000000055_dp ,& 2 9.0_dp , 2 8.97649466434_dp , 0.00000000060_dp ,& 3 0.0_dp , 2 9.973770137_dp , 0.000000023_dp ,& 3 1.0_dp , 3 0.975363196_dp , 0.000000046_dp ,& 3 2.0_dp , 3 1.974151538_dp , 0.000000320_dp ,& 3 3.0_dp , 3 2.977976964_dp , 0.000000750_dp ,& 3 4.0_dp , 3 3.978538045_dp , 0.000000860_dp ,& 3 5.0_dp , 3 4.984550111_dp , 0.000038494_dp ,& 3 6.0_dp , 3 5.986649271_dp , 0.000077077_dp ,& 3 7.0_dp , 3 6.992945191_dp , 0.000122179_dp ,& 3 8.0_dp , 3 7.995523000_dp , 0.000112500_dp ,& 3 9.0_dp , 3 9.002491000_dp , 0.000145500_dp ,& 4 0.0_dp , 4 0.006083641_dp , 0.000130962_dp ,& 4 1.0_dp , 4 1.014171_dp , 0.000322_dp ,& 4 2.0_dp , 4 2.018078_dp , 0.000322_dp ,& 4 3.0_dp , 4 3.026119_dp , 0.000429_dp ,& 4 4.0_dp , 4 4.031466_dp , 0.000537_dp ,& 4 5.0_dp , 4 5.039818_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: P_naw = & naw_type ( 24 , transpose ( reshape ([& 2 4.0_dp , 2 4.036522_dp , 0.000537_dp ,& 2 5.0_dp , 2 5.021675_dp , 0.000429_dp ,& 2 6.0_dp , 2 6.011780_dp , 0.000210_dp ,& 2 7.0_dp , 2 6.999292499_dp , 0.000009662_dp ,& 2 8.0_dp , 2 7.992326460_dp , 0.000001231_dp ,& 2 9.0_dp , 2 8.981800368_dp , 0.000000385_dp ,& 3 0.0_dp , 2 9.978313490_dp , 0.000000069_dp ,& 3 1.0_dp , 3 0.97376199768_dp , 0.00000000080_dp ,& 3 2.0_dp , 3 1.973907643_dp , 0.000000042_dp ,& 3 3.0_dp , 3 2.971725692_dp , 0.000001170_dp ,& 3 4.0_dp , 3 3.973645886_dp , 0.000000870_dp ,& 3 5.0_dp , 3 4.973314045_dp , 0.000002003_dp ,& 3 6.0_dp , 3 5.978259610_dp , 0.000014078_dp ,& 3 7.0_dp , 3 6.979606942_dp , 0.000040738_dp ,& 3 8.0_dp , 3 7.984303105_dp , 0.000077918_dp ,& 3 9.0_dp , 3 8.986285865_dp , 0.000120929_dp ,& 4 0.0_dp , 3 9.991262221_dp , 0.000089755_dp ,& 4 1.0_dp , 4 0.994654000_dp , 0.000129000_dp ,& 4 2.0_dp , 4 2.001172140_dp , 0.000101996_dp ,& 4 3.0_dp , 4 3.005411_dp , 0.000322_dp ,& 4 4.0_dp , 4 4.011927_dp , 0.000429_dp ,& 4 5.0_dp , 4 5.017134_dp , 0.000537_dp ,& 4 6.0_dp , 4 6.024520_dp , 0.000537_dp ,& 4 7.0_dp , 4 7.030929_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: S_naw = & naw_type ( 24 , transpose ( reshape ([& 2 6.0_dp , 2 6.029716_dp , 0.000644_dp ,& 2 7.0_dp , 2 7.018777_dp , 0.000430_dp ,& 2 8.0_dp , 2 8.004372762_dp , 0.000171767_dp ,& 2 9.0_dp , 2 8.996678000_dp , 0.000014000_dp ,& 3 0.0_dp , 2 9.984906770_dp , 0.000000221_dp ,& 3 1.0_dp , 3 0.979557002_dp , 0.000000246_dp ,& 3 2.0_dp , 3 1.97207117354_dp , 0.00000000141_dp ,& 3 3.0_dp , 3 2.97145890862_dp , 0.00000000144_dp ,& 3 4.0_dp , 3 3.967867011_dp , 0.000000047_dp ,& 3 5.0_dp , 3 4.969032321_dp , 0.000000043_dp ,& 3 6.0_dp , 3 5.967080692_dp , 0.000000201_dp ,& 3 7.0_dp , 3 6.971125500_dp , 0.000000212_dp ,& 3 8.0_dp , 3 7.971163300_dp , 0.000007699_dp ,& 3 9.0_dp , 3 8.975133850_dp , 0.000053677_dp ,& 4 0.0_dp , 3 9.975482561_dp , 0.000004274_dp ,& 4 1.0_dp , 4 0.979593451_dp , 0.000004400_dp ,& 4 2.0_dp , 4 1.981065100_dp , 0.000003000_dp ,& 4 3.0_dp , 4 2.986907635_dp , 0.000005335_dp ,& 4 4.0_dp , 4 3.990118846_dp , 0.000005600_dp ,& 4 5.0_dp , 4 4.996414_dp , 0.000322_dp ,& 4 6.0_dp , 4 6.000687_dp , 0.000429_dp ,& 4 7.0_dp , 4 7.007730_dp , 0.000429_dp ,& 4 8.0_dp , 4 8.013301_dp , 0.000537_dp ,& 4 9.0_dp , 4 9.021891_dp , 0.000626_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cl_naw = & naw_type ( 25 , transpose ( reshape ([& 2 8.0_dp , 2 8.030349_dp , 0.000537_dp ,& 2 9.0_dp , 2 9.015053_dp , 0.000203_dp ,& 3 0.0_dp , 3 0.005018333_dp , 0.000025631_dp ,& 3 1.0_dp , 3 0.992448097_dp , 0.000003700_dp ,& 3 2.0_dp , 3 1.985684605_dp , 0.000000603_dp ,& 3 3.0_dp , 3 2.977451988_dp , 0.000000419_dp ,& 3 4.0_dp , 3 3.973762490_dp , 0.000000052_dp ,& 3 5.0_dp , 3 4.968852694_dp , 0.000000038_dp ,& 3 6.0_dp , 3 5.968306822_dp , 0.000000038_dp ,& 3 7.0_dp , 3 6.965902573_dp , 0.000000055_dp ,& 3 8.0_dp , 3 7.968010408_dp , 0.000000105_dp ,& 3 9.0_dp , 3 8.968008151_dp , 0.000001859_dp ,& 4 0.0_dp , 3 9.970415466_dp , 0.000034423_dp ,& 4 1.0_dp , 4 0.970684525_dp , 0.000073777_dp ,& 4 2.0_dp , 4 1.973342000_dp , 0.000064000_dp ,& 4 3.0_dp , 4 2.974063700_dp , 0.000066407_dp ,& 4 4.0_dp , 4 3.978014918_dp , 0.000091859_dp ,& 4 5.0_dp , 4 4.980394353_dp , 0.000146177_dp ,& 4 6.0_dp , 4 5.985254926_dp , 0.000104400_dp ,& 4 7.0_dp , 4 6.989715_dp , 0.000215_dp ,& 4 8.0_dp , 4 7.995405_dp , 0.000537_dp ,& 4 9.0_dp , 4 9.000794_dp , 0.000429_dp ,& 5 0.0_dp , 5 0.008266_dp , 0.000429_dp ,& 5 1.0_dp , 5 1.015341_dp , 0.000751_dp ,& 5 2.0_dp , 5 2.024004_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ar_naw = & naw_type ( 26 , transpose ( reshape ([& 2 9.0_dp , 2 9.040761_dp , 0.000471_dp ,& 3 0.0_dp , 3 0.023694_dp , 0.000192_dp ,& 3 1.0_dp , 3 1.012158_dp , 0.000215_dp ,& 3 2.0_dp , 3 1.997637824_dp , 0.000001900_dp ,& 3 3.0_dp , 3 2.989925545_dp , 0.000000430_dp ,& 3 4.0_dp , 3 3.980270092_dp , 0.000000083_dp ,& 3 5.0_dp , 3 4.975257719_dp , 0.000000730_dp ,& 3 6.0_dp , 3 5.967545106_dp , 0.000000028_dp ,& 3 7.0_dp , 3 6.966776301_dp , 0.000000221_dp ,& 3 8.0_dp , 3 7.962732102_dp , 0.000000209_dp ,& 3 9.0_dp , 3 8.964313037_dp , 0.000005367_dp ,& 4 0.0_dp , 3 9.96238312204_dp , 0.00000000234_dp ,& 4 1.0_dp , 4 0.964500570_dp , 0.000000372_dp ,& 4 2.0_dp , 4 1.963045737_dp , 0.000006200_dp ,& 4 3.0_dp , 4 2.965636056_dp , 0.000005700_dp ,& 4 4.0_dp , 4 3.964923814_dp , 0.000001700_dp ,& 4 5.0_dp , 4 4.968039731_dp , 0.000000550_dp ,& 4 6.0_dp , 4 5.968039244_dp , 0.000002500_dp ,& 4 7.0_dp , 4 6.972767112_dp , 0.000001300_dp ,& 4 8.0_dp , 4 7.976001000_dp , 0.000018000_dp ,& 4 9.0_dp , 4 8.981685_dp , 0.000429_dp ,& 5 0.0_dp , 4 9.985797_dp , 0.000537_dp ,& 5 1.0_dp , 5 0.993033_dp , 0.000429_dp ,& 5 2.0_dp , 5 1.998519_dp , 0.000644_dp ,& 5 3.0_dp , 5 3.007290_dp , 0.000750_dp ,& 5 4.0_dp , 5 4.013484_dp , 0.000859_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: K_naw = & naw_type ( 29 , transpose ( reshape ([& 3 1.0_dp , 3 1.036780_dp , 0.000322_dp ,& 3 2.0_dp , 3 2.023607_dp , 0.000429_dp ,& 3 3.0_dp , 3 3.008095_dp , 0.000215_dp ,& 3 4.0_dp , 3 3.998690_dp , 0.000210_dp ,& 3 5.0_dp , 3 4.988005406_dp , 0.000000550_dp ,& 3 6.0_dp , 3 5.981301887_dp , 0.000000349_dp ,& 3 7.0_dp , 3 6.973375890_dp , 0.000000100_dp ,& 3 8.0_dp , 3 7.969081114_dp , 0.000000209_dp ,& 3 9.0_dp , 3 8.96370648482_dp , 0.00000000489_dp ,& 4 0.0_dp , 3 9.963998165_dp , 0.000000060_dp ,& 4 1.0_dp , 4 0.96182525611_dp , 0.00000000403_dp ,& 4 2.0_dp , 4 1.962402305_dp , 0.000000113_dp ,& 4 3.0_dp , 4 2.960734701_dp , 0.000000440_dp ,& 4 4.0_dp , 4 3.961586984_dp , 0.000000450_dp ,& 4 5.0_dp , 4 4.960691491_dp , 0.000000560_dp ,& 4 6.0_dp , 4 5.961981584_dp , 0.000000780_dp ,& 4 7.0_dp , 4 6.961661612_dp , 0.000001500_dp ,& 4 8.0_dp , 4 7.965341184_dp , 0.000000830_dp ,& 4 9.0_dp , 4 8.968210753_dp , 0.000000860_dp ,& 5 0.0_dp , 4 9.972380015_dp , 0.000008300_dp ,& 5 1.0_dp , 5 0.975828664_dp , 0.000014000_dp ,& 5 2.0_dp , 5 1.981602000_dp , 0.000036000_dp ,& 5 3.0_dp , 5 2.986800000_dp , 0.000120000_dp ,& 5 4.0_dp , 5 3.994471_dp , 0.000429_dp ,& 5 5.0_dp , 5 5.000505_dp , 0.000537_dp ,& 5 6.0_dp , 5 6.008567_dp , 0.000644_dp ,& 5 7.0_dp , 5 7.015169_dp , 0.000644_dp ,& 5 8.0_dp , 5 8.023543_dp , 0.000751_dp ,& 5 9.0_dp , 5 9.030864_dp , 0.000859_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ca_naw = & naw_type ( 29 , transpose ( reshape ([& 3 3.0_dp , 3 3.033312_dp , 0.000429_dp ,& 3 4.0_dp , 3 4.015985_dp , 0.000322_dp ,& 3 5.0_dp , 3 5.005572_dp , 0.000215_dp ,& 3 6.0_dp , 3 5.993074388_dp , 0.000042941_dp ,& 3 7.0_dp , 3 6.985897849_dp , 0.000000680_dp ,& 3 8.0_dp , 3 7.976319223_dp , 0.000000208_dp ,& 3 9.0_dp , 3 8.970710811_dp , 0.000000640_dp ,& 4 0.0_dp , 3 9.962590850_dp , 0.000000022_dp ,& 4 1.0_dp , 4 0.962277905_dp , 0.000000147_dp ,& 4 2.0_dp , 4 1.958617780_dp , 0.000000159_dp ,& 4 3.0_dp , 4 2.958766381_dp , 0.000000244_dp ,& 4 4.0_dp , 4 3.955481489_dp , 0.000000348_dp ,& 4 5.0_dp , 4 4.956186270_dp , 0.000000392_dp ,& 4 6.0_dp , 4 5.953687726_dp , 0.000002398_dp ,& 4 7.0_dp , 4 6.954541134_dp , 0.000002384_dp ,& 4 8.0_dp , 4 7.952522654_dp , 0.000000018_dp ,& 4 9.0_dp , 4 8.955662625_dp , 0.000000190_dp ,& 5 0.0_dp , 4 9.957499215_dp , 0.000001700_dp ,& 5 1.0_dp , 5 0.960995663_dp , 0.000000560_dp ,& 5 2.0_dp , 5 1.963213646_dp , 0.000000720_dp ,& 5 3.0_dp , 5 2.968451000_dp , 0.000047000_dp ,& 5 4.0_dp , 5 3.972989000_dp , 0.000052000_dp ,& 5 5.0_dp , 5 4.979978000_dp , 0.000172000_dp ,& 5 6.0_dp , 5 5.985496000_dp , 0.000268000_dp ,& 5 7.0_dp , 5 6.992958_dp , 0.000429_dp ,& 5 8.0_dp , 5 7.998357_dp , 0.000537_dp ,& 5 9.0_dp , 5 9.006237_dp , 0.000644_dp ,& 6 0.0_dp , 6 0.011809_dp , 0.000751_dp ,& 6 1.0_dp , 6 1.020408_dp , 0.000859_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sc_naw = & naw_type ( 29 , transpose ( reshape ([& 3 5.0_dp , 3 5.029093_dp , 0.000429_dp ,& 3 6.0_dp , 3 6.017338_dp , 0.000322_dp ,& 3 7.0_dp , 3 7.004058_dp , 0.000322_dp ,& 3 8.0_dp , 3 7.995438_dp , 0.000215_dp ,& 3 9.0_dp , 3 8.984784953_dp , 0.000025765_dp ,& 4 0.0_dp , 3 9.977967275_dp , 0.000003036_dp ,& 4 1.0_dp , 4 0.969251163_dp , 0.000000083_dp ,& 4 2.0_dp , 4 1.965516686_dp , 0.000000165_dp ,& 4 3.0_dp , 4 2.961150425_dp , 0.000001999_dp ,& 4 4.0_dp , 4 3.959402818_dp , 0.000001884_dp ,& 4 5.0_dp , 4 4.955907051_dp , 0.000000712_dp ,& 4 6.0_dp , 4 5.955167034_dp , 0.000000720_dp ,& 4 7.0_dp , 4 6.952402444_dp , 0.000002072_dp ,& 4 8.0_dp , 4 7.952222903_dp , 0.000005313_dp ,& 4 9.0_dp , 4 8.950013159_dp , 0.000002434_dp ,& 5 0.0_dp , 4 9.952187437_dp , 0.000002700_dp ,& 5 1.0_dp , 5 0.953568838_dp , 0.000002700_dp ,& 5 2.0_dp , 5 1.956496170_dp , 0.000003300_dp ,& 5 3.0_dp , 5 2.958379173_dp , 0.000019000_dp ,& 5 4.0_dp , 5 3.963029359_dp , 0.000015000_dp ,& 5 5.0_dp , 5 4.966889637_dp , 0.000067000_dp ,& 5 6.0_dp , 5 5.972607611_dp , 0.000278761_dp ,& 5 7.0_dp , 5 6.977048000_dp , 0.000193000_dp ,& 5 8.0_dp , 5 7.983382000_dp , 0.000204000_dp ,& 5 9.0_dp , 5 8.988374000_dp , 0.000268000_dp ,& 6 0.0_dp , 5 9.995115_dp , 0.000537_dp ,& 6 1.0_dp , 6 1.000537_dp , 0.000644_dp ,& 6 2.0_dp , 6 2.007848_dp , 0.000644_dp ,& 6 3.0_dp , 6 3.014031_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ti_naw = & naw_type ( 29 , transpose ( reshape ([& 3 7.0_dp , 3 7.027021_dp , 0.000429_dp ,& 3 8.0_dp , 3 8.012206_dp , 0.000322_dp ,& 3 9.0_dp , 3 9.002684_dp , 0.000215_dp ,& 4 0.0_dp , 3 9.990345146_dp , 0.000073262_dp ,& 4 1.0_dp , 4 0.983148000_dp , 0.000030000_dp ,& 4 2.0_dp , 4 1.973049369_dp , 0.000000289_dp ,& 4 3.0_dp , 4 2.968528420_dp , 0.000006139_dp ,& 4 4.0_dp , 4 3.959689936_dp , 0.000000751_dp ,& 4 5.0_dp , 4 4.958120758_dp , 0.000000897_dp ,& 4 6.0_dp , 4 5.952626356_dp , 0.000000097_dp ,& 4 7.0_dp , 4 6.951757491_dp , 0.000000085_dp ,& 4 8.0_dp , 4 7.947940677_dp , 0.000000079_dp ,& 4 9.0_dp , 4 8.947864391_dp , 0.000000084_dp ,& 5 0.0_dp , 4 9.944785622_dp , 0.000000088_dp ,& 5 1.0_dp , 5 0.946609468_dp , 0.000000519_dp ,& 5 2.0_dp , 5 1.946883509_dp , 0.000002948_dp ,& 5 3.0_dp , 5 2.949670714_dp , 0.000003100_dp ,& 5 4.0_dp , 5 3.950892000_dp , 0.000017000_dp ,& 5 5.0_dp , 5 4.955091000_dp , 0.000031000_dp ,& 5 6.0_dp , 5 5.957677675_dp , 0.000107569_dp ,& 5 7.0_dp , 5 6.963068098_dp , 0.000221020_dp ,& 5 8.0_dp , 5 7.966808519_dp , 0.000196823_dp ,& 5 9.0_dp , 5 8.972217_dp , 0.000322_dp ,& 6 0.0_dp , 5 9.976275000_dp , 0.000258000_dp ,& 6 1.0_dp , 6 0.982426_dp , 0.000322_dp ,& 6 2.0_dp , 6 1.986903_dp , 0.000429_dp ,& 6 3.0_dp , 6 2.993709_dp , 0.000537_dp ,& 6 4.0_dp , 6 3.998411_dp , 0.000644_dp ,& 6 5.0_dp , 6 5.005593_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: V_naw = & naw_type ( 29 , transpose ( reshape ([& 3 9.0_dp , 3 9.024230_dp , 0.000429_dp ,& 4 0.0_dp , 4 0.013387_dp , 0.000322_dp ,& 4 1.0_dp , 4 1.000333_dp , 0.000215_dp ,& 4 2.0_dp , 4 1.991820_dp , 0.000210_dp ,& 4 3.0_dp , 4 2.980766000_dp , 0.000046000_dp ,& 4 4.0_dp , 4 3.974440977_dp , 0.000007799_dp ,& 4 5.0_dp , 4 4.965768498_dp , 0.000000926_dp ,& 4 6.0_dp , 4 5.960197389_dp , 0.000000143_dp ,& 4 7.0_dp , 4 6.954903558_dp , 0.000000118_dp ,& 4 8.0_dp , 4 7.952250900_dp , 0.000001043_dp ,& 4 9.0_dp , 4 8.948510509_dp , 0.000000884_dp ,& 5 0.0_dp , 4 9.947156681_dp , 0.000000099_dp ,& 5 1.0_dp , 5 0.943957664_dp , 0.000000104_dp ,& 5 2.0_dp , 5 1.944773636_dp , 0.000000170_dp ,& 5 3.0_dp , 5 2.944334940_dp , 0.000003331_dp ,& 5 4.0_dp , 5 3.946432009_dp , 0.000012001_dp ,& 5 5.0_dp , 5 4.947262000_dp , 0.000029000_dp ,& 5 6.0_dp , 5 5.950420082_dp , 0.000188819_dp ,& 5 7.0_dp , 5 6.952297000_dp , 0.000091000_dp ,& 5 8.0_dp , 5 7.956595985_dp , 0.000102862_dp ,& 5 9.0_dp , 5 8.959623343_dp , 0.000147505_dp ,& 6 0.0_dp , 5 9.964479215_dp , 0.000195327_dp ,& 6 1.0_dp , 6 0.967603529_dp , 0.000252196_dp ,& 6 2.0_dp , 6 1.972932556_dp , 0.000283723_dp ,& 6 3.0_dp , 6 2.976661000_dp , 0.000365000_dp ,& 6 4.0_dp , 6 3.982480_dp , 0.000429_dp ,& 6 5.0_dp , 6 4.986999_dp , 0.000537_dp ,& 6 6.0_dp , 6 5.993237_dp , 0.000537_dp ,& 6 7.0_dp , 6 6.998128_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cr_naw = & naw_type ( 30 , transpose ( reshape ([& 4 1.0_dp , 4 1.021911_dp , 0.000429_dp ,& 4 2.0_dp , 4 2.007579_dp , 0.000322_dp ,& 4 3.0_dp , 4 2.997885_dp , 0.000215_dp ,& 4 4.0_dp , 4 3.985591000_dp , 0.000055000_dp ,& 4 5.0_dp , 4 4.979050000_dp , 0.000038000_dp ,& 4 6.0_dp , 4 5.968360969_dp , 0.000012295_dp ,& 4 7.0_dp , 4 6.962894995_dp , 0.000005578_dp ,& 4 8.0_dp , 4 7.954029431_dp , 0.000007848_dp ,& 4 9.0_dp , 4 8.951333720_dp , 0.000002363_dp ,& 5 0.0_dp , 4 9.946042209_dp , 0.000000100_dp ,& 5 1.0_dp , 5 0.944765388_dp , 0.000000178_dp ,& 5 2.0_dp , 5 1.940504714_dp , 0.000000120_dp ,& 5 3.0_dp , 5 2.940646304_dp , 0.000000124_dp ,& 5 4.0_dp , 5 3.938877359_dp , 0.000000142_dp ,& 5 5.0_dp , 5 4.940836637_dp , 0.000000245_dp ,& 5 6.0_dp , 5 5.940648977_dp , 0.000000620_dp ,& 5 7.0_dp , 5 6.943612112_dp , 0.000002000_dp ,& 5 8.0_dp , 5 7.944184501_dp , 0.000003200_dp ,& 5 9.0_dp , 5 8.948345426_dp , 0.000000720_dp ,& 6 0.0_dp , 5 9.949641656_dp , 0.000001200_dp ,& 6 1.0_dp , 6 0.954378130_dp , 0.000002000_dp ,& 6 2.0_dp , 6 1.956142920_dp , 0.000003700_dp ,& 6 3.0_dp , 6 2.961161000_dp , 0.000078000_dp ,& 6 4.0_dp , 6 3.963886000_dp , 0.000322000_dp ,& 6 5.0_dp , 6 4.969608_dp , 0.000215_dp ,& 6 6.0_dp , 6 5.973011_dp , 0.000322_dp ,& 6 7.0_dp , 6 6.979313_dp , 0.000429_dp ,& 6 8.0_dp , 6 7.983156_dp , 0.000537_dp ,& 6 9.0_dp , 6 8.989662_dp , 0.000537_dp ,& 7 0.0_dp , 6 9.993945_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Mn_naw = & naw_type ( 31 , transpose ( reshape ([& 4 3.0_dp , 4 3.018647_dp , 0.000429_dp ,& 4 4.0_dp , 4 4.008009_dp , 0.000322_dp ,& 4 5.0_dp , 4 4.994654_dp , 0.000322_dp ,& 4 6.0_dp , 4 5.986669000_dp , 0.000093000_dp ,& 4 7.0_dp , 4 6.975774000_dp , 0.000034000_dp ,& 4 8.0_dp , 4 7.968548760_dp , 0.000007191_dp ,& 4 9.0_dp , 4 8.959613350_dp , 0.000002377_dp ,& 5 0.0_dp , 4 9.954238157_dp , 0.000000123_dp ,& 5 1.0_dp , 5 0.948208770_dp , 0.000000326_dp ,& 5 2.0_dp , 5 1.945559090_dp , 0.000000138_dp ,& 5 3.0_dp , 5 2.941287497_dp , 0.000000371_dp ,& 5 4.0_dp , 5 3.940355772_dp , 0.000001080_dp ,& 5 5.0_dp , 5 4.938043040_dp , 0.000000279_dp ,& 5 6.0_dp , 5 5.938902816_dp , 0.000000314_dp ,& 5 7.0_dp , 5 6.938285944_dp , 0.000001615_dp ,& 5 8.0_dp , 5 7.940066643_dp , 0.000002900_dp ,& 5 9.0_dp , 5 8.940391111_dp , 0.000002500_dp ,& 6 0.0_dp , 5 9.943136574_dp , 0.000002500_dp ,& 6 1.0_dp , 6 0.944452541_dp , 0.000002500_dp ,& 6 2.0_dp , 6 1.947907384_dp , 0.000007023_dp ,& 6 3.0_dp , 6 2.949664672_dp , 0.000004000_dp ,& 6 4.0_dp , 6 3.953849369_dp , 0.000003800_dp ,& 6 5.0_dp , 6 4.956019749_dp , 0.000004000_dp ,& 6 6.0_dp , 6 5.960546833_dp , 0.000012000_dp ,& 6 7.0_dp , 6 6.963950_dp , 0.000215_dp ,& 6 8.0_dp , 6 7.968953_dp , 0.000322_dp ,& 6 9.0_dp , 6 8.972775_dp , 0.000429_dp ,& 7 0.0_dp , 6 9.978046_dp , 0.000537_dp ,& 7 1.0_dp , 7 0.982158_dp , 0.000537_dp ,& 7 2.0_dp , 7 1.988009_dp , 0.000644_dp ,& 7 3.0_dp , 7 2.992807_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Fe_naw = & naw_type ( 32 , transpose ( reshape ([& 4 5.0_dp , 4 5.015467_dp , 0.000304_dp ,& 4 6.0_dp , 4 6.001299_dp , 0.000322_dp ,& 4 7.0_dp , 4 6.992346_dp , 0.000537_dp ,& 4 8.0_dp , 4 7.980667000_dp , 0.000099000_dp ,& 4 9.0_dp , 4 8.973429000_dp , 0.000026000_dp ,& 5 0.0_dp , 4 9.962988000_dp , 0.000009000_dp ,& 5 1.0_dp , 5 0.956855137_dp , 0.000001501_dp ,& 5 2.0_dp , 5 1.948113364_dp , 0.000000192_dp ,& 5 3.0_dp , 5 2.945305629_dp , 0.000001792_dp ,& 5 4.0_dp , 5 3.939608189_dp , 0.000000368_dp ,& 5 5.0_dp , 5 4.938291158_dp , 0.000000330_dp ,& 5 6.0_dp , 5 5.934935537_dp , 0.000000287_dp ,& 5 7.0_dp , 5 6.935391950_dp , 0.000000287_dp ,& 5 8.0_dp , 5 7.933273575_dp , 0.000000339_dp ,& 5 9.0_dp , 5 8.934873492_dp , 0.000000354_dp ,& 6 0.0_dp , 5 9.934070249_dp , 0.000003656_dp ,& 6 1.0_dp , 6 0.936746241_dp , 0.000002800_dp ,& 6 2.0_dp , 6 1.936791809_dp , 0.000003000_dp ,& 6 3.0_dp , 6 2.940272698_dp , 0.000004618_dp ,& 6 4.0_dp , 6 3.940987761_dp , 0.000005386_dp ,& 6 5.0_dp , 6 4.945015323_dp , 0.000005487_dp ,& 6 6.0_dp , 6 5.946249958_dp , 0.000004400_dp ,& 6 7.0_dp , 6 6.950930000_dp , 0.000004100_dp ,& 6 8.0_dp , 6 7.952875_dp , 0.000207_dp ,& 6 9.0_dp , 6 8.957918_dp , 0.000215_dp ,& 7 0.0_dp , 6 9.960397_dp , 0.000322_dp ,& 7 1.0_dp , 7 0.965722_dp , 0.000429_dp ,& 7 2.0_dp , 7 1.968599_dp , 0.000537_dp ,& 7 3.0_dp , 7 2.974246_dp , 0.000537_dp ,& 7 4.0_dp , 7 3.977821_dp , 0.000537_dp ,& 7 5.0_dp , 7 4.984219_dp , 0.000644_dp ,& 7 6.0_dp , 7 5.988631_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Co_naw = & naw_type ( 32 , transpose ( reshape ([& 4 7.0_dp , 4 7.011401_dp , 0.000644_dp ,& 4 8.0_dp , 4 8.001857_dp , 0.000537_dp ,& 4 9.0_dp , 4 8.989501_dp , 0.000537_dp ,& 5 0.0_dp , 4 9.981117000_dp , 0.000135000_dp ,& 5 1.0_dp , 5 0.970647000_dp , 0.000052000_dp ,& 5 2.0_dp , 5 1.963130224_dp , 0.000005669_dp ,& 5 3.0_dp , 5 2.954203278_dp , 0.000001854_dp ,& 5 4.0_dp , 5 3.948459075_dp , 0.000000380_dp ,& 5 5.0_dp , 5 4.941996416_dp , 0.000000434_dp ,& 5 6.0_dp , 5 5.939838032_dp , 0.000000510_dp ,& 5 7.0_dp , 5 6.936289819_dp , 0.000000553_dp ,& 5 8.0_dp , 5 7.935751292_dp , 0.000001237_dp ,& 5 9.0_dp , 5 8.933193524_dp , 0.000000426_dp ,& 6 0.0_dp , 5 9.933815536_dp , 0.000000433_dp ,& 6 1.0_dp , 6 0.932476031_dp , 0.000000901_dp ,& 6 2.0_dp , 6 1.934058198_dp , 0.000019940_dp ,& 6 3.0_dp , 6 2.933599630_dp , 0.000019941_dp ,& 6 4.0_dp , 6 3.935810176_dp , 0.000021476_dp ,& 6 5.0_dp , 6 4.936462071_dp , 0.000002235_dp ,& 6 6.0_dp , 6 5.939442943_dp , 0.000015000_dp ,& 6 7.0_dp , 6 6.940609625_dp , 0.000006917_dp ,& 6 8.0_dp , 6 7.944559401_dp , 0.000004142_dp ,& 6 9.0_dp , 6 8.945909000_dp , 0.000092000_dp ,& 7 0.0_dp , 6 9.950053400_dp , 0.000011800_dp ,& 7 1.0_dp , 7 0.952366923_dp , 0.000499230_dp ,& 7 2.0_dp , 7 1.956736_dp , 0.000322_dp ,& 7 3.0_dp , 7 2.959238_dp , 0.000322_dp ,& 7 4.0_dp , 7 3.963993_dp , 0.000429_dp ,& 7 5.0_dp , 7 4.967192_dp , 0.000429_dp ,& 7 6.0_dp , 7 5.972453_dp , 0.000537_dp ,& 7 7.0_dp , 7 6.976479_dp , 0.000644_dp ,& 7 8.0_dp , 7 7.983553_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ni_naw = & naw_type ( 35 , transpose ( reshape ([& 4 8.0_dp , 4 8.019515_dp , 0.000455_dp ,& 4 9.0_dp , 4 9.009157_dp , 0.000644_dp ,& 5 0.0_dp , 4 9.996286_dp , 0.000537_dp ,& 5 1.0_dp , 5 0.987493_dp , 0.000537_dp ,& 5 2.0_dp , 5 1.975781000_dp , 0.000089000_dp ,& 5 3.0_dp , 5 2.968190000_dp , 0.000027000_dp ,& 5 4.0_dp , 5 3.957833000_dp , 0.000005000_dp ,& 5 5.0_dp , 5 4.951329846_dp , 0.000000757_dp ,& 5 6.0_dp , 5 5.942127761_dp , 0.000000428_dp ,& 5 7.0_dp , 5 6.939791394_dp , 0.000000608_dp ,& 5 8.0_dp , 5 7.935341650_dp , 0.000000374_dp ,& 5 9.0_dp , 5 8.934345442_dp , 0.000000376_dp ,& 6 0.0_dp , 5 9.930785129_dp , 0.000000378_dp ,& 6 1.0_dp , 6 0.931054819_dp , 0.000000381_dp ,& 6 2.0_dp , 6 1.928344753_dp , 0.000000455_dp ,& 6 3.0_dp , 6 2.929669021_dp , 0.000000457_dp ,& 6 4.0_dp , 6 3.927966228_dp , 0.000000497_dp ,& 6 5.0_dp , 6 4.930084585_dp , 0.000000518_dp ,& 6 6.0_dp , 6 5.929139333_dp , 0.000001500_dp ,& 6 7.0_dp , 6 6.931569413_dp , 0.000003100_dp ,& 6 8.0_dp , 6 7.931868787_dp , 0.000003200_dp ,& 6 9.0_dp , 6 8.935610267_dp , 0.000004000_dp ,& 7 0.0_dp , 6 9.936431300_dp , 0.000002301_dp ,& 7 1.0_dp , 7 0.940518962_dp , 0.000002401_dp ,& 7 2.0_dp , 7 1.941785924_dp , 0.000002401_dp ,& 7 3.0_dp , 7 2.946206681_dp , 0.000002601_dp ,& 7 4.0_dp , 7 3.947718_dp , 0.000215_dp ,& 7 5.0_dp , 7 4.952506_dp , 0.000215_dp ,& 7 6.0_dp , 7 5.954707_dp , 0.000322_dp ,& 7 7.0_dp , 7 6.959903_dp , 0.000429_dp ,& 7 8.0_dp , 7 7.962555_dp , 0.000429_dp ,& 7 9.0_dp , 7 8.969769_dp , 0.000537_dp ,& 8 0.0_dp , 7 9.975051_dp , 0.000644_dp ,& 8 1.0_dp , 8 0.982727_dp , 0.000751_dp ,& 8 2.0_dp , 8 1.988492_dp , 0.000859_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cu_naw = & naw_type ( 33 , transpose ( reshape ([& 5 2.0_dp , 5 1.997982_dp , 0.000644_dp ,& 5 3.0_dp , 5 2.985894_dp , 0.000537_dp ,& 5 4.0_dp , 5 3.977198_dp , 0.000429_dp ,& 5 5.0_dp , 5 4.966038000_dp , 0.000167000_dp ,& 5 6.0_dp , 5 5.958529278_dp , 0.000006864_dp ,& 5 7.0_dp , 5 6.949211686_dp , 0.000000537_dp ,& 5 8.0_dp , 5 7.944532283_dp , 0.000000604_dp ,& 5 9.0_dp , 5 8.939496713_dp , 0.000000566_dp ,& 6 0.0_dp , 5 9.937363787_dp , 0.000001731_dp ,& 6 1.0_dp , 6 0.933457375_dp , 0.000001020_dp ,& 6 2.0_dp , 6 1.932594803_dp , 0.000000683_dp ,& 6 3.0_dp , 6 2.929597119_dp , 0.000000457_dp ,& 6 4.0_dp , 6 3.929764001_dp , 0.000000458_dp ,& 6 5.0_dp , 6 4.927789476_dp , 0.000000690_dp ,& 6 6.0_dp , 6 5.928868804_dp , 0.000000696_dp ,& 6 7.0_dp , 6 6.927729490_dp , 0.000000957_dp ,& 6 8.0_dp , 6 7.929610887_dp , 0.000001700_dp ,& 6 9.0_dp , 6 8.929429267_dp , 0.000001500_dp ,& 7 0.0_dp , 6 9.932392078_dp , 0.000001161_dp ,& 7 1.0_dp , 7 0.932676831_dp , 0.000001600_dp ,& 7 2.0_dp , 7 1.935820306_dp , 0.000001500_dp ,& 7 3.0_dp , 7 2.936674376_dp , 0.000002084_dp ,& 7 4.0_dp , 7 3.939874860_dp , 0.000006600_dp ,& 7 5.0_dp , 7 4.941523817_dp , 0.000000770_dp ,& 7 6.0_dp , 7 5.945268974_dp , 0.000000980_dp ,& 7 7.0_dp , 7 6.947543599_dp , 0.000001300_dp ,& 7 8.0_dp , 7 7.951916524_dp , 0.000014312_dp ,& 7 9.0_dp , 7 8.954473100_dp , 0.000112700_dp ,& 8 0.0_dp , 7 9.960623_dp , 0.000322_dp ,& 8 1.0_dp , 8 0.965743_dp , 0.000322_dp ,& 8 2.0_dp , 8 1.972378_dp , 0.000429_dp ,& 8 3.0_dp , 8 2.978110_dp , 0.000537_dp ,& 8 4.0_dp , 8 3.985271_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Zn_naw = & naw_type ( 33 , transpose ( reshape ([& 5 4.0_dp , 5 3.993879_dp , 0.000232_dp ,& 5 5.0_dp , 5 4.984681_dp , 0.000429_dp ,& 5 6.0_dp , 5 5.972743_dp , 0.000429_dp ,& 5 7.0_dp , 5 6.965056_dp , 0.000215_dp ,& 5 8.0_dp , 5 7.954590296_dp , 0.000053678_dp ,& 5 9.0_dp , 5 8.949311886_dp , 0.000000814_dp ,& 6 0.0_dp , 5 9.941841317_dp , 0.000000588_dp ,& 6 1.0_dp , 6 0.939506964_dp , 0.000017068_dp ,& 6 2.0_dp , 6 1.934333359_dp , 0.000000660_dp ,& 6 3.0_dp , 6 2.933211140_dp , 0.000001674_dp ,& 6 4.0_dp , 6 3.929141776_dp , 0.000000690_dp ,& 6 5.0_dp , 6 4.929240534_dp , 0.000000693_dp ,& 6 6.0_dp , 6 5.926033639_dp , 0.000000798_dp ,& 6 7.0_dp , 6 6.927127422_dp , 0.000000810_dp ,& 6 8.0_dp , 6 7.924844232_dp , 0.000000835_dp ,& 6 9.0_dp , 6 8.926550360_dp , 0.000000853_dp ,& 7 0.0_dp , 6 9.925319175_dp , 0.000002058_dp ,& 7 1.0_dp , 7 0.927719578_dp , 0.000002849_dp ,& 7 2.0_dp , 7 1.926842806_dp , 0.000002300_dp ,& 7 3.0_dp , 7 2.929582580_dp , 0.000002000_dp ,& 7 4.0_dp , 7 3.929407260_dp , 0.000002700_dp ,& 7 5.0_dp , 7 4.932840244_dp , 0.000002100_dp ,& 7 6.0_dp , 7 5.933114956_dp , 0.000001562_dp ,& 7 7.0_dp , 7 6.936887197_dp , 0.000002117_dp ,& 7 8.0_dp , 7 7.938289204_dp , 0.000002086_dp ,& 7 9.0_dp , 7 8.942638067_dp , 0.000002388_dp ,& 8 0.0_dp , 7 9.944552929_dp , 0.000002774_dp ,& 8 1.0_dp , 8 0.950402617_dp , 0.000005400_dp ,& 8 2.0_dp , 8 1.954574097_dp , 0.000003300_dp ,& 8 3.0_dp , 8 2.961041_dp , 0.000322_dp ,& 8 4.0_dp , 8 3.965829_dp , 0.000429_dp ,& 8 5.0_dp , 8 4.973054_dp , 0.000537_dp ,& 8 6.0_dp , 8 5.978463_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ga_naw = & naw_type ( 33 , transpose ( reshape ([& 5 6.0_dp , 5 5.995878_dp , 0.000537_dp ,& 5 7.0_dp , 5 6.983457_dp , 0.000429_dp ,& 5 8.0_dp , 5 7.974729_dp , 0.000322_dp ,& 5 9.0_dp , 5 8.963757_dp , 0.000183_dp ,& 6 0.0_dp , 5 9.957498_dp , 0.000215_dp ,& 6 1.0_dp , 6 0.949398861_dp , 0.000040787_dp ,& 6 2.0_dp , 6 1.944189639_dp , 0.000000684_dp ,& 6 3.0_dp , 6 2.939294194_dp , 0.000001400_dp ,& 6 4.0_dp , 6 3.936840366_dp , 0.000001533_dp ,& 6 5.0_dp , 6 4.932734424_dp , 0.000000849_dp ,& 6 6.0_dp , 6 5.931589766_dp , 0.000001172_dp ,& 6 7.0_dp , 6 6.928202276_dp , 0.000001262_dp ,& 6 8.0_dp , 6 7.927980161_dp , 0.000001535_dp ,& 6 9.0_dp , 6 8.925573528_dp , 0.000001285_dp ,& 7 0.0_dp , 6 9.926021914_dp , 0.000001289_dp ,& 7 1.0_dp , 7 0.924702554_dp , 0.000000870_dp ,& 7 2.0_dp , 7 1.926367452_dp , 0.000000878_dp ,& 7 3.0_dp , 7 2.925174680_dp , 0.000001800_dp ,& 7 4.0_dp , 7 3.926945725_dp , 0.000003214_dp ,& 7 5.0_dp , 7 4.926504484_dp , 0.000000720_dp ,& 7 6.0_dp , 7 5.928827624_dp , 0.000002100_dp ,& 7 7.0_dp , 7 6.929154299_dp , 0.000002600_dp ,& 7 8.0_dp , 7 7.931610854_dp , 0.000001127_dp ,& 7 9.0_dp , 7 8.932851582_dp , 0.000001296_dp ,& 8 0.0_dp , 7 9.936420773_dp , 0.000003103_dp ,& 8 1.0_dp , 8 0.938133841_dp , 0.000003503_dp ,& 8 2.0_dp , 8 1.943176531_dp , 0.000002604_dp ,& 8 3.0_dp , 8 2.947120300_dp , 0.000002804_dp ,& 8 4.0_dp , 8 3.952663000_dp , 0.000032000_dp ,& 8 5.0_dp , 8 4.957333000_dp , 0.000040000_dp ,& 8 6.0_dp , 8 5.963757_dp , 0.000429_dp ,& 8 7.0_dp , 8 6.969007_dp , 0.000537_dp ,& 8 8.0_dp , 8 7.975963_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ge_naw = & naw_type ( 33 , transpose ( reshape ([& 5 8.0_dp , 5 7.991863_dp , 0.000537_dp ,& 5 9.0_dp , 5 8.982426_dp , 0.000429_dp ,& 6 0.0_dp , 5 9.970445_dp , 0.000322_dp ,& 6 1.0_dp , 6 0.963725_dp , 0.000322_dp ,& 6 2.0_dp , 6 1.954761_dp , 0.000150_dp ,& 6 3.0_dp , 6 2.949628000_dp , 0.000040000_dp ,& 6 4.0_dp , 6 3.941689912_dp , 0.000004000_dp ,& 6 5.0_dp , 6 4.939368136_dp , 0.000002323_dp ,& 6 6.0_dp , 6 5.933862124_dp , 0.000002577_dp ,& 6 7.0_dp , 6 6.932716999_dp , 0.000004636_dp ,& 6 8.0_dp , 6 7.928095305_dp , 0.000002014_dp ,& 6 9.0_dp , 6 8.927964467_dp , 0.000001414_dp ,& 7 0.0_dp , 6 9.924248542_dp , 0.000000880_dp ,& 7 1.0_dp , 7 0.924952120_dp , 0.000000874_dp ,& 7 2.0_dp , 7 1.922075824_dp , 0.000000081_dp ,& 7 3.0_dp , 7 2.923458954_dp , 0.000000061_dp ,& 7 4.0_dp , 7 3.921177760_dp , 0.000000013_dp ,& 7 5.0_dp , 7 4.922858370_dp , 0.000000055_dp ,& 7 6.0_dp , 7 5.921402725_dp , 0.000000019_dp ,& 7 7.0_dp , 7 6.923549843_dp , 0.000000056_dp ,& 7 8.0_dp , 7 7.922852911_dp , 0.000003795_dp ,& 7 9.0_dp , 7 8.925359506_dp , 0.000039893_dp ,& 8 0.0_dp , 7 9.925350773_dp , 0.000002205_dp ,& 8 1.0_dp , 8 0.928832941_dp , 0.000002205_dp ,& 8 2.0_dp , 8 1.929774031_dp , 0.000002405_dp ,& 8 3.0_dp , 8 2.934539100_dp , 0.000002604_dp ,& 8 4.0_dp , 8 3.937575090_dp , 0.000003403_dp ,& 8 5.0_dp , 8 4.942969658_dp , 0.000004003_dp ,& 8 6.0_dp , 8 5.946967000_dp , 0.000470000_dp ,& 8 7.0_dp , 8 6.953204_dp , 0.000322_dp ,& 8 8.0_dp , 8 7.957574_dp , 0.000429_dp ,& 8 9.0_dp , 8 8.964530_dp , 0.000429_dp ,& 9 0.0_dp , 8 9.969436_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: As_naw = & naw_type ( 33 , transpose ( reshape ([& 6 0.0_dp , 5 9.993945_dp , 0.000429_dp ,& 6 1.0_dp , 6 0.981535_dp , 0.000322_dp ,& 6 2.0_dp , 6 1.973784_dp , 0.000322_dp ,& 6 3.0_dp , 6 2.964036_dp , 0.000215_dp ,& 6 4.0_dp , 6 3.957560_dp , 0.000218_dp ,& 6 5.0_dp , 6 4.949611000_dp , 0.000091000_dp ,& 6 6.0_dp , 6 5.944148778_dp , 0.000006100_dp ,& 6 7.0_dp , 6 6.939251110_dp , 0.000000475_dp ,& 6 8.0_dp , 6 7.936774127_dp , 0.000001981_dp ,& 6 9.0_dp , 6 8.932246289_dp , 0.000034352_dp ,& 7 0.0_dp , 6 9.930934642_dp , 0.000001500_dp ,& 7 1.0_dp , 7 0.927113594_dp , 0.000004469_dp ,& 7 2.0_dp , 7 1.926752291_dp , 0.000004383_dp ,& 7 3.0_dp , 7 2.923829086_dp , 0.000004136_dp ,& 7 4.0_dp , 7 3.923928596_dp , 0.000001817_dp ,& 7 5.0_dp , 7 4.921594562_dp , 0.000000948_dp ,& 7 6.0_dp , 7 5.922392011_dp , 0.000000951_dp ,& 7 7.0_dp , 7 6.920647555_dp , 0.000001816_dp ,& 7 8.0_dp , 7 7.921827771_dp , 0.000010498_dp ,& 7 9.0_dp , 7 8.920948419_dp , 0.000005716_dp ,& 8 0.0_dp , 7 9.922474440_dp , 0.000003578_dp ,& 8 1.0_dp , 8 0.922132288_dp , 0.000002838_dp ,& 8 2.0_dp , 8 1.924738731_dp , 0.000004003_dp ,& 8 3.0_dp , 8 2.925206900_dp , 0.000003004_dp ,& 8 4.0_dp , 8 3.929303290_dp , 0.000003403_dp ,& 8 5.0_dp , 8 4.932163658_dp , 0.000003304_dp ,& 8 6.0_dp , 8 5.936701532_dp , 0.000003703_dp ,& 8 7.0_dp , 8 6.940291716_dp , 0.000003204_dp ,& 8 8.0_dp , 8 7.945840_dp , 0.000215_dp ,& 8 9.0_dp , 8 8.950048_dp , 0.000322_dp ,& 9 0.0_dp , 8 9.955995_dp , 0.000429_dp ,& 9 1.0_dp , 9 0.960816_dp , 0.000429_dp ,& 9 2.0_dp , 9 1.967386_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Se_naw = & naw_type ( 33 , transpose ( reshape ([& 6 3.0_dp , 6 2.981911_dp , 0.000537_dp ,& 6 4.0_dp , 6 3.971165_dp , 0.000537_dp ,& 6 5.0_dp , 6 4.964552_dp , 0.000322_dp ,& 6 6.0_dp , 6 5.955276_dp , 0.000215_dp ,& 6 7.0_dp , 6 6.949994000_dp , 0.000072000_dp ,& 6 8.0_dp , 6 7.941825236_dp , 0.000000532_dp ,& 6 9.0_dp , 6 8.939414845_dp , 0.000001599_dp ,& 7 0.0_dp , 6 9.933515521_dp , 0.000001700_dp ,& 7 1.0_dp , 7 0.932209431_dp , 0.000003000_dp ,& 7 2.0_dp , 7 1.927140506_dp , 0.000002100_dp ,& 7 3.0_dp , 7 2.926754881_dp , 0.000007969_dp ,& 7 4.0_dp , 7 3.922475933_dp , 0.000000015_dp ,& 7 5.0_dp , 7 4.922522870_dp , 0.000000078_dp ,& 7 6.0_dp , 7 5.919213702_dp , 0.000000017_dp ,& 7 7.0_dp , 7 6.919914150_dp , 0.000000067_dp ,& 7 8.0_dp , 7 7.917309244_dp , 0.000000191_dp ,& 7 9.0_dp , 7 8.918499252_dp , 0.000000238_dp ,& 8 0.0_dp , 7 9.916521761_dp , 0.000001016_dp ,& 8 1.0_dp , 8 0.917993019_dp , 0.000001049_dp ,& 8 2.0_dp , 8 1.916699531_dp , 0.000000500_dp ,& 8 3.0_dp , 8 2.919118604_dp , 0.000003259_dp ,& 8 4.0_dp , 8 3.918466761_dp , 0.000002105_dp ,& 8 5.0_dp , 8 4.922260758_dp , 0.000002804_dp ,& 8 6.0_dp , 8 5.924311732_dp , 0.000002705_dp ,& 8 7.0_dp , 8 6.928688616_dp , 0.000002405_dp ,& 8 8.0_dp , 8 7.931417490_dp , 0.000003604_dp ,& 8 9.0_dp , 8 8.936669058_dp , 0.000004003_dp ,& 9 0.0_dp , 8 9.940096000_dp , 0.000354000_dp ,& 9 1.0_dp , 9 0.945700000_dp , 0.000465000_dp ,& 9 2.0_dp , 9 1.949840_dp , 0.000429_dp ,& 9 3.0_dp , 9 2.956135_dp , 0.000429_dp ,& 9 4.0_dp , 9 3.960490_dp , 0.000537_dp ,& 9 5.0_dp , 9 4.967300_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Br_naw = & naw_type ( 34 , transpose ( reshape ([& 6 5.0_dp , 6 4.982297_dp , 0.000537_dp ,& 6 6.0_dp , 6 5.974697_dp , 0.000429_dp ,& 6 7.0_dp , 6 6.965078_dp , 0.000322_dp ,& 6 8.0_dp , 6 7.958356_dp , 0.000278_dp ,& 6 9.0_dp , 6 8.950338410_dp , 0.000045091_dp ,& 7 0.0_dp , 6 9.944792321_dp , 0.000016000_dp ,& 7 1.0_dp , 7 0.939342153_dp , 0.000005799_dp ,& 7 2.0_dp , 7 1.936594606_dp , 0.000001100_dp ,& 7 3.0_dp , 7 2.931673441_dp , 0.000007237_dp ,& 7 4.0_dp , 7 3.929910279_dp , 0.000006264_dp ,& 7 5.0_dp , 7 4.925810566_dp , 0.000004600_dp ,& 7 6.0_dp , 7 5.924541574_dp , 0.000010007_dp ,& 7 7.0_dp , 7 6.921379193_dp , 0.000003017_dp ,& 7 8.0_dp , 7 7.921145858_dp , 0.000003842_dp ,& 7 9.0_dp , 7 8.918337574_dp , 0.000001074_dp ,& 8 0.0_dp , 7 9.918529784_dp , 0.000001065_dp ,& 8 1.0_dp , 8 0.916288197_dp , 0.000001049_dp ,& 8 2.0_dp , 8 1.916801752_dp , 0.000001042_dp ,& 8 3.0_dp , 8 2.915175285_dp , 0.000004073_dp ,& 8 4.0_dp , 8 3.916496417_dp , 0.000027622_dp ,& 8 5.0_dp , 8 4.915645758_dp , 0.000003304_dp ,& 8 6.0_dp , 8 5.918805432_dp , 0.000003304_dp ,& 8 7.0_dp , 8 6.920674016_dp , 0.000003404_dp ,& 8 8.0_dp , 8 7.924083290_dp , 0.000003404_dp ,& 8 9.0_dp , 8 8.926704558_dp , 0.000003504_dp ,& 9 0.0_dp , 8 9.931292848_dp , 0.000003604_dp ,& 9 1.0_dp , 9 0.934398617_dp , 0.000003804_dp ,& 9 2.0_dp , 9 1.939631595_dp , 0.000007202_dp ,& 9 3.0_dp , 9 2.943220000_dp , 0.000462500_dp ,& 9 4.0_dp , 9 3.948846_dp , 0.000215_dp ,& 9 5.0_dp , 9 4.952925_dp , 0.000322_dp ,& 9 6.0_dp , 9 5.958980_dp , 0.000322_dp ,& 9 7.0_dp , 9 6.963499_dp , 0.000429_dp ,& 9 8.0_dp , 9 7.969887_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Kr_naw = & naw_type ( 35 , transpose ( reshape ([& 6 7.0_dp , 6 6.983305_dp , 0.000455_dp ,& 6 8.0_dp , 6 7.972489_dp , 0.000537_dp ,& 6 9.0_dp , 6 8.965496_dp , 0.000322_dp ,& 7 0.0_dp , 6 9.955877_dp , 0.000215_dp ,& 7 1.0_dp , 7 0.950265695_dp , 0.000138238_dp ,& 7 2.0_dp , 7 1.942092406_dp , 0.000008600_dp ,& 7 3.0_dp , 7 2.939289193_dp , 0.000007061_dp ,& 7 4.0_dp , 7 3.933084016_dp , 0.000002161_dp ,& 7 5.0_dp , 7 4.930945744_dp , 0.000008700_dp ,& 7 6.0_dp , 7 5.925910743_dp , 0.000004308_dp ,& 7 7.0_dp , 7 6.924669999_dp , 0.000002100_dp ,& 7 8.0_dp , 7 7.920366341_dp , 0.000000329_dp ,& 7 9.0_dp , 7 8.920082919_dp , 0.000003736_dp ,& 8 0.0_dp , 7 9.916377940_dp , 0.000000745_dp ,& 8 1.0_dp , 8 0.916589703_dp , 0.000001152_dp ,& 8 2.0_dp , 8 1.91348115368_dp , 0.00000000591_dp ,& 8 3.0_dp , 8 2.914126516_dp , 0.000000009_dp ,& 8 4.0_dp , 8 3.91149772708_dp , 0.00000000410_dp ,& 8 5.0_dp , 8 4.912527260_dp , 0.000002147_dp ,& 8 6.0_dp , 8 5.91061062468_dp , 0.00000000399_dp ,& 8 7.0_dp , 8 6.913354759_dp , 0.000000264_dp ,& 8 8.0_dp , 8 7.914447879_dp , 0.000002800_dp ,& 8 9.0_dp , 8 8.917835449_dp , 0.000002300_dp ,& 9 0.0_dp , 8 9.919527929_dp , 0.000002000_dp ,& 9 1.0_dp , 9 0.923806309_dp , 0.000002400_dp ,& 9 2.0_dp , 9 1.926173092_dp , 0.000002900_dp ,& 9 3.0_dp , 9 2.931147172_dp , 0.000002700_dp ,& 9 4.0_dp , 9 3.934140452_dp , 0.000013000_dp ,& 9 5.0_dp , 9 4.939710922_dp , 0.000020000_dp ,& 9 6.0_dp , 9 5.943014473_dp , 0.000020695_dp ,& 9 7.0_dp , 9 6.949088782_dp , 0.000140000_dp ,& 9 8.0_dp , 9 7.952635_dp , 0.000322_dp ,& 9 9.0_dp , 9 8.958776_dp , 0.000429_dp ,& 10 0.0_dp , 9 9.962995_dp , 0.000429_dp ,& 10 1.0_dp , 10 0.969318_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Rb_naw = & naw_type ( 34 , transpose ( reshape ([& 7 1.0_dp , 7 0.965335_dp , 0.000429_dp ,& 7 2.0_dp , 7 1.958851_dp , 0.000537_dp ,& 7 3.0_dp , 7 2.950604506_dp , 0.000043794_dp ,& 7 4.0_dp , 7 3.944265867_dp , 0.000003249_dp ,& 7 5.0_dp , 7 4.938573200_dp , 0.000001266_dp ,& 7 6.0_dp , 7 5.935073031_dp , 0.000001006_dp ,& 7 7.0_dp , 7 6.930401599_dp , 0.000001400_dp ,& 7 8.0_dp , 7 7.928141866_dp , 0.000003475_dp ,& 7 9.0_dp , 7 8.923990095_dp , 0.000002085_dp ,& 8 0.0_dp , 7 9.922516442_dp , 0.000002000_dp ,& 8 1.0_dp , 8 0.918993900_dp , 0.000005265_dp ,& 8 2.0_dp , 8 1.918209023_dp , 0.000003230_dp ,& 8 3.0_dp , 8 2.915114181_dp , 0.000002500_dp ,& 8 4.0_dp , 8 3.914375223_dp , 0.000002355_dp ,& 8 5.0_dp , 8 4.91178973604_dp , 0.00000000537_dp ,& 8 6.0_dp , 8 5.911167443_dp , 0.000000214_dp ,& 8 7.0_dp , 8 6.909180529_dp , 0.000000006_dp ,& 8 8.0_dp , 8 7.911315590_dp , 0.000000170_dp ,& 8 9.0_dp , 8 8.912278136_dp , 0.000005825_dp ,& 9 0.0_dp , 8 9.914797557_dp , 0.000006926_dp ,& 9 1.0_dp , 9 0.916537261_dp , 0.000008375_dp ,& 9 2.0_dp , 9 1.919728477_dp , 0.000006573_dp ,& 9 3.0_dp , 9 2.922039334_dp , 0.000008406_dp ,& 9 4.0_dp , 9 3.926394819_dp , 0.000002177_dp ,& 9 5.0_dp , 9 4.929263849_dp , 0.000021733_dp ,& 9 6.0_dp , 9 5.934133398_dp , 0.000003599_dp ,& 9 7.0_dp , 9 6.937177117_dp , 0.000002052_dp ,& 9 8.0_dp , 9 7.941632317_dp , 0.000017265_dp ,& 9 9.0_dp , 9 8.945119190_dp , 0.000004327_dp ,& 10 0.0_dp , 9 9.950331532_dp , 0.000014089_dp ,& 10 1.0_dp , 10 0.954302000_dp , 0.000022000_dp ,& 10 2.0_dp , 10 1.960008000_dp , 0.000089000_dp ,& 10 3.0_dp , 10 2.964401_dp , 0.000429_dp ,& 10 4.0_dp , 10 3.970531_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sr_naw = & naw_type ( 35 , transpose ( reshape ([& 7 3.0_dp , 7 2.965700_dp , 0.000430_dp ,& 7 4.0_dp , 7 3.956170_dp , 0.000107_dp ,& 7 5.0_dp , 7 4.949952767_dp , 0.000236183_dp ,& 7 6.0_dp , 7 5.941762760_dp , 0.000037000_dp ,& 7 7.0_dp , 7 6.937945454_dp , 0.000008500_dp ,& 7 8.0_dp , 7 7.932179979_dp , 0.000008000_dp ,& 7 9.0_dp , 7 8.929704692_dp , 0.000007967_dp ,& 8 0.0_dp , 7 9.924517538_dp , 0.000003718_dp ,& 8 1.0_dp , 8 0.923211393_dp , 0.000003358_dp ,& 8 2.0_dp , 8 1.918399845_dp , 0.000006432_dp ,& 8 3.0_dp , 8 2.917554372_dp , 0.000007336_dp ,& 8 4.0_dp , 8 3.913419118_dp , 0.000001334_dp ,& 8 5.0_dp , 8 4.912932041_dp , 0.000003020_dp ,& 8 6.0_dp , 8 5.90926072473_dp , 0.00000000563_dp ,& 8 7.0_dp , 8 6.90887749454_dp , 0.00000000550_dp ,& 8 8.0_dp , 8 7.905612253_dp , 0.000000006_dp ,& 8 9.0_dp , 8 8.907450808_dp , 0.000000098_dp ,& 9 0.0_dp , 8 9.907727870_dp , 0.000001555_dp ,& 9 1.0_dp , 9 0.910195942_dp , 0.000005853_dp ,& 9 2.0_dp , 9 1.911038222_dp , 0.000003675_dp ,& 9 3.0_dp , 9 2.914024314_dp , 0.000008109_dp ,& 9 4.0_dp , 9 3.915355641_dp , 0.000001785_dp ,& 9 5.0_dp , 9 4.919358282_dp , 0.000006237_dp ,& 9 6.0_dp , 9 5.921719045_dp , 0.000009089_dp ,& 9 7.0_dp , 9 6.926375621_dp , 0.000003633_dp ,& 9 8.0_dp , 9 7.928692636_dp , 0.000003463_dp ,& 9 9.0_dp , 9 8.932883604_dp , 0.000005085_dp ,& 10 0.0_dp , 9 9.935783270_dp , 0.000007426_dp ,& 10 1.0_dp , 10 0.940606264_dp , 0.000009103_dp ,& 10 2.0_dp , 10 1.944004679_dp , 0.000072000_dp ,& 10 3.0_dp , 10 2.949243_dp , 0.000215_dp ,& 10 4.0_dp , 10 3.953022_dp , 0.000322_dp ,& 10 5.0_dp , 10 4.959001_dp , 0.000537_dp ,& 10 6.0_dp , 10 5.963177_dp , 0.000644_dp ,& 10 7.0_dp , 10 6.969672_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Y_naw = & naw_type ( 35 , transpose ( reshape ([& 7 5.0_dp , 7 4.965840_dp , 0.000322_dp ,& 7 6.0_dp , 7 5.958937_dp , 0.000322_dp ,& 7 7.0_dp , 7 6.950146_dp , 0.000218_dp ,& 7 8.0_dp , 7 7.943990_dp , 0.000320_dp ,& 7 9.0_dp , 7 8.937946000_dp , 0.000086000_dp ,& 8 0.0_dp , 7 9.934354750_dp , 0.000006701_dp ,& 8 1.0_dp , 8 0.929454283_dp , 0.000005802_dp ,& 8 2.0_dp , 8 1.926930189_dp , 0.000005902_dp ,& 8 3.0_dp , 8 2.922484026_dp , 0.000020000_dp ,& 8 4.0_dp , 8 3.920671060_dp , 0.000004615_dp ,& 8 5.0_dp , 8 4.916433039_dp , 0.000020360_dp ,& 8 6.0_dp , 8 5.914886095_dp , 0.000015182_dp ,& 8 7.0_dp , 8 6.910876100_dp , 0.000001210_dp ,& 8 8.0_dp , 8 7.909501274_dp , 0.000001610_dp ,& 8 9.0_dp , 8 8.905838156_dp , 0.000000363_dp ,& 9 0.0_dp , 8 9.907141749_dp , 0.000000379_dp ,& 9 1.0_dp , 9 0.907298048_dp , 0.000001978_dp ,& 9 2.0_dp , 9 1.908945752_dp , 0.000009798_dp ,& 9 3.0_dp , 9 2.909578434_dp , 0.000011259_dp ,& 9 4.0_dp , 9 3.911592062_dp , 0.000006849_dp ,& 9 5.0_dp , 9 4.912819697_dp , 0.000007277_dp ,& 9 6.0_dp , 9 5.915909305_dp , 0.000006521_dp ,& 9 7.0_dp , 9 6.918286702_dp , 0.000007201_dp ,& 9 8.0_dp , 9 7.922394841_dp , 0.000008501_dp ,& 9 9.0_dp , 9 8.924160839_dp , 0.000007101_dp ,& 10 0.0_dp , 9 9.927727678_dp , 0.000012000_dp ,& 10 1.0_dp , 10 0.930160817_dp , 0.000007601_dp ,& 10 2.0_dp , 10 1.934328471_dp , 0.000004381_dp ,& 10 3.0_dp , 10 2.937243796_dp , 0.000012029_dp ,& 10 4.0_dp , 10 3.941943_dp , 0.000215_dp ,& 10 5.0_dp , 10 4.945711_dp , 0.000429_dp ,& 10 6.0_dp , 10 5.950842_dp , 0.000537_dp ,& 10 7.0_dp , 10 6.954943_dp , 0.000537_dp ,& 10 8.0_dp , 10 7.960515_dp , 0.000644_dp ,& 10 9.0_dp , 10 8.965131_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Zr_naw = & naw_type ( 37 , transpose ( reshape ([& 7 7.0_dp , 7 6.966076_dp , 0.000429_dp ,& 7 8.0_dp , 7 7.956146_dp , 0.000429_dp ,& 7 9.0_dp , 7 8.949790_dp , 0.000322_dp ,& 8 0.0_dp , 7 9.941213_dp , 0.000322_dp ,& 8 1.0_dp , 8 0.938245000_dp , 0.000099000_dp ,& 8 2.0_dp , 8 1.931707497_dp , 0.000001700_dp ,& 8 3.0_dp , 8 2.929240926_dp , 0.000006902_dp ,& 8 4.0_dp , 8 3.923325663_dp , 0.000005903_dp ,& 8 5.0_dp , 8 4.921443199_dp , 0.000006902_dp ,& 8 6.0_dp , 8 5.916296814_dp , 0.000003827_dp ,& 8 7.0_dp , 8 6.914817338_dp , 0.000004450_dp ,& 8 8.0_dp , 8 7.910220715_dp , 0.000005800_dp ,& 8 9.0_dp , 8 8.908879751_dp , 0.000002983_dp ,& 9 0.0_dp , 8 9.904698755_dp , 0.000000126_dp ,& 9 1.0_dp , 9 0.905640205_dp , 0.000000101_dp ,& 9 2.0_dp , 9 1.905035336_dp , 0.000000101_dp ,& 9 3.0_dp , 9 2.906470661_dp , 0.000000489_dp ,& 9 4.0_dp , 9 3.906312523_dp , 0.000000175_dp ,& 9 5.0_dp , 9 4.908040276_dp , 0.000000933_dp ,& 9 6.0_dp , 9 5.908277615_dp , 0.000000122_dp ,& 9 7.0_dp , 9 6.910963802_dp , 0.000000130_dp ,& 9 8.0_dp , 9 7.912740448_dp , 0.000009065_dp ,& 9 9.0_dp , 9 8.916675081_dp , 0.000011271_dp ,& 10 0.0_dp , 9 9.918010499_dp , 0.000008742_dp ,& 10 1.0_dp , 10 0.921458454_dp , 0.000008944_dp ,& 10 2.0_dp , 10 1.923154181_dp , 0.000009401_dp ,& 10 3.0_dp , 10 2.927204054_dp , 0.000009900_dp ,& 10 4.0_dp , 10 3.929449193_dp , 0.000010000_dp ,& 10 5.0_dp , 10 4.934021832_dp , 0.000013000_dp ,& 10 6.0_dp , 10 5.936930_dp , 0.000215_dp ,& 10 7.0_dp , 10 6.942007_dp , 0.000322_dp ,& 10 8.0_dp , 10 7.945303_dp , 0.000429_dp ,& 10 9.0_dp , 10 8.950907_dp , 0.000537_dp ,& 11 0.0_dp , 10 9.954675_dp , 0.000537_dp ,& 11 1.0_dp , 11 0.960837_dp , 0.000644_dp ,& 11 2.0_dp , 11 1.965196_dp , 0.000751_dp ,& 11 3.0_dp , 11 2.971723_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Nb_naw = & naw_type ( 38 , transpose ( reshape ([& 7 9.0_dp , 7 8.966022_dp , 0.000537_dp ,& 8 0.0_dp , 7 9.958754_dp , 0.000429_dp ,& 8 1.0_dp , 8 0.950230_dp , 0.000429_dp ,& 8 2.0_dp , 8 1.944380_dp , 0.000322_dp ,& 8 3.0_dp , 8 2.938150000_dp , 0.000174000_dp ,& 8 4.0_dp , 8 3.934305711_dp , 0.000000430_dp ,& 8 5.0_dp , 8 4.928845836_dp , 0.000004400_dp ,& 8 6.0_dp , 8 5.925781536_dp , 0.000005903_dp ,& 8 7.0_dp , 8 6.920692473_dp , 0.000007302_dp ,& 8 8.0_dp , 8 7.918226476_dp , 0.000062059_dp ,& 8 9.0_dp , 8 8.913444696_dp , 0.000025367_dp ,& 9 0.0_dp , 8 9.911259201_dp , 0.000003561_dp ,& 9 1.0_dp , 9 0.906990256_dp , 0.000003140_dp ,& 9 2.0_dp , 9 1.907188580_dp , 0.000001915_dp ,& 9 3.0_dp , 9 2.906373170_dp , 0.000001599_dp ,& 9 4.0_dp , 9 3.907279001_dp , 0.000001600_dp ,& 9 5.0_dp , 9 4.906831110_dp , 0.000000545_dp ,& 9 6.0_dp , 9 5.908101586_dp , 0.000000157_dp ,& 9 7.0_dp , 9 6.908101622_dp , 0.000004556_dp ,& 9 8.0_dp , 9 7.910332645_dp , 0.000005369_dp ,& 9 9.0_dp , 9 8.911609377_dp , 0.000012886_dp ,& 10 0.0_dp , 9 9.914340578_dp , 0.000008562_dp ,& 10 1.0_dp , 10 0.915306508_dp , 0.000004024_dp ,& 10 2.0_dp , 10 1.918090447_dp , 0.000002695_dp ,& 10 3.0_dp , 10 2.919453416_dp , 0.000004224_dp ,& 10 4.0_dp , 10 3.922907728_dp , 0.000001915_dp ,& 10 5.0_dp , 10 4.924942577_dp , 0.000004324_dp ,& 10 6.0_dp , 10 5.928928505_dp , 0.000001520_dp ,& 10 7.0_dp , 10 6.931589685_dp , 0.000008612_dp ,& 10 8.0_dp , 10 7.936075604_dp , 0.000008844_dp ,& 10 9.0_dp , 10 8.939141000_dp , 0.000462500_dp ,& 11 0.0_dp , 10 9.943843000_dp , 0.000900000_dp ,& 11 1.0_dp , 11 0.947439_dp , 0.000322_dp ,& 11 2.0_dp , 11 1.952689_dp , 0.000322_dp ,& 11 3.0_dp , 11 2.956833_dp , 0.000429_dp ,& 11 4.0_dp , 11 3.962469_dp , 0.000537_dp ,& 11 5.0_dp , 11 4.966849_dp , 0.000537_dp ,& 11 6.0_dp , 11 5.972914_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Mo_naw = & naw_type ( 39 , transpose ( reshape ([& 8 1.0_dp , 8 0.966226_dp , 0.000537_dp ,& 8 2.0_dp , 8 1.956661_dp , 0.000429_dp ,& 8 3.0_dp , 8 2.950252_dp , 0.000430_dp ,& 8 4.0_dp , 8 3.941846_dp , 0.000320_dp ,& 8 5.0_dp , 8 4.938260736_dp , 0.000017000_dp ,& 8 6.0_dp , 8 5.931174092_dp , 0.000003147_dp ,& 8 7.0_dp , 8 6.928196198_dp , 0.000003067_dp ,& 8 8.0_dp , 8 7.921967779_dp , 0.000004100_dp ,& 8 9.0_dp , 8 8.919468149_dp , 0.000004200_dp ,& 9 0.0_dp , 8 9.913931270_dp , 0.000003717_dp ,& 9 1.0_dp , 9 0.911745190_dp , 0.000006696_dp ,& 9 2.0_dp , 9 1.906807153_dp , 0.000000168_dp ,& 9 3.0_dp , 9 2.906808772_dp , 0.000000193_dp ,& 9 4.0_dp , 9 3.905083586_dp , 0.000000151_dp ,& 9 5.0_dp , 9 4.905837436_dp , 0.000000132_dp ,& 9 6.0_dp , 9 5.904674770_dp , 0.000000128_dp ,& 9 7.0_dp , 9 6.906016903_dp , 0.000000176_dp ,& 9 8.0_dp , 9 7.905403609_dp , 0.000000186_dp ,& 9 9.0_dp , 9 8.907707299_dp , 0.000000245_dp ,& 10 0.0_dp , 9 9.907467982_dp , 0.000000322_dp ,& 10 1.0_dp , 10 0.910337648_dp , 0.000000331_dp ,& 10 2.0_dp , 10 1.910293725_dp , 0.000008916_dp ,& 10 3.0_dp , 10 2.913091954_dp , 0.000009900_dp ,& 10 4.0_dp , 10 3.913747443_dp , 0.000009566_dp ,& 10 5.0_dp , 10 4.916981989_dp , 0.000009721_dp ,& 10 6.0_dp , 10 5.918273231_dp , 0.000009801_dp ,& 10 7.0_dp , 10 6.922119770_dp , 0.000009901_dp ,& 10 8.0_dp , 10 7.924047508_dp , 0.000009901_dp ,& 10 9.0_dp , 10 8.928438318_dp , 0.000012000_dp ,& 11 0.0_dp , 10 9.930717956_dp , 0.000026000_dp ,& 11 1.0_dp , 11 0.935651966_dp , 0.000013503_dp ,& 11 2.0_dp , 11 1.938293_dp , 0.000215_dp ,& 11 3.0_dp , 11 2.943478_dp , 0.000322_dp ,& 11 4.0_dp , 11 3.946666_dp , 0.000322_dp ,& 11 5.0_dp , 11 4.952174_dp , 0.000429_dp ,& 11 6.0_dp , 11 5.955759_dp , 0.000537_dp ,& 11 7.0_dp , 11 6.961686_dp , 0.000537_dp ,& 11 8.0_dp , 11 7.965249_dp , 0.000537_dp ,& 11 9.0_dp , 11 8.971465_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Tc_naw = & naw_type ( 40 , transpose ( reshape ([& 8 3.0_dp , 8 2.966377_dp , 0.000537_dp ,& 8 4.0_dp , 8 3.959527_dp , 0.000429_dp ,& 8 5.0_dp , 8 4.950778_dp , 0.000429_dp ,& 8 6.0_dp , 8 5.944637_dp , 0.000322_dp ,& 8 7.0_dp , 8 6.938067185_dp , 0.000004500_dp ,& 8 8.0_dp , 8 7.933794211_dp , 0.000004400_dp ,& 8 9.0_dp , 8 8.927648649_dp , 0.000004100_dp ,& 9 0.0_dp , 8 9.924073919_dp , 0.000001100_dp ,& 9 1.0_dp , 9 0.918424972_dp , 0.000002536_dp ,& 9 2.0_dp , 9 1.915269777_dp , 0.000003330_dp ,& 9 3.0_dp , 9 2.910245147_dp , 0.000001086_dp ,& 9 4.0_dp , 9 3.909652319_dp , 0.000004370_dp ,& 9 5.0_dp , 9 4.907652281_dp , 0.000005453_dp ,& 9 6.0_dp , 9 5.907866675_dp , 0.000005524_dp ,& 9 7.0_dp , 9 6.906360720_dp , 0.000004420_dp ,& 9 8.0_dp , 9 7.907211206_dp , 0.000003628_dp ,& 9 9.0_dp , 9 8.906249681_dp , 0.000000974_dp ,& 10 0.0_dp , 9 9.907652715_dp , 0.000001450_dp ,& 10 1.0_dp , 10 0.907305271_dp , 0.000025768_dp ,& 10 2.0_dp , 10 1.909207239_dp , 0.000009840_dp ,& 10 3.0_dp , 10 2.909173960_dp , 0.000010531_dp ,& 10 4.0_dp , 10 3.911433718_dp , 0.000026716_dp ,& 10 5.0_dp , 10 4.911662024_dp , 0.000037856_dp ,& 10 6.0_dp , 10 5.914356674_dp , 0.000013150_dp ,& 10 7.0_dp , 10 6.915458437_dp , 0.000009310_dp ,& 10 8.0_dp , 10 7.918493493_dp , 0.000009413_dp ,& 10 9.0_dp , 10 8.920254107_dp , 0.000010380_dp ,& 11 0.0_dp , 10 9.923741263_dp , 0.000010195_dp ,& 11 1.0_dp , 11 0.925898966_dp , 0.000011359_dp ,& 11 2.0_dp , 11 1.929941658_dp , 0.000005920_dp ,& 11 3.0_dp , 11 2.932569032_dp , 0.000003600_dp ,& 11 4.0_dp , 11 3.937090000_dp , 0.000465000_dp ,& 11 5.0_dp , 11 4.940100_dp , 0.000210_dp ,& 11 6.0_dp , 11 5.945020_dp , 0.000320_dp ,& 11 7.0_dp , 11 6.948320_dp , 0.000429_dp ,& 11 8.0_dp , 11 7.953526_dp , 0.000429_dp ,& 11 9.0_dp , 11 8.956876_dp , 0.000537_dp ,& 12 0.0_dp , 11 9.962426_dp , 0.000537_dp ,& 12 1.0_dp , 12 0.966140_dp , 0.000537_dp ,& 12 2.0_dp , 12 1.971760_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ru_naw = & naw_type ( 41 , transpose ( reshape ([& 8 5.0_dp , 8 4.967117_dp , 0.000537_dp ,& 8 6.0_dp , 8 5.957305_dp , 0.000429_dp ,& 8 7.0_dp , 8 6.950907_dp , 0.000429_dp ,& 8 8.0_dp , 8 7.941664_dp , 0.000322_dp ,& 8 9.0_dp , 8 8.937337849_dp , 0.000026000_dp ,& 9 0.0_dp , 8 9.930344378_dp , 0.000004004_dp ,& 9 1.0_dp , 9 0.926741530_dp , 0.000002384_dp ,& 9 2.0_dp , 9 1.920234373_dp , 0.000002917_dp ,& 9 3.0_dp , 9 2.917104442_dp , 0.000002216_dp ,& 9 4.0_dp , 9 3.911342860_dp , 0.000003374_dp ,& 9 5.0_dp , 9 4.910404415_dp , 0.000010200_dp ,& 9 6.0_dp , 9 5.907588910_dp , 0.000000182_dp ,& 9 7.0_dp , 9 6.907545776_dp , 0.000002965_dp ,& 9 8.0_dp , 9 7.905286709_dp , 0.000006937_dp ,& 9 9.0_dp , 9 8.905930284_dp , 0.000000368_dp ,& 10 0.0_dp , 9 9.904210460_dp , 0.000000367_dp ,& 10 1.0_dp , 10 0.905573086_dp , 0.000000443_dp ,& 10 2.0_dp , 10 1.904340312_dp , 0.000000446_dp ,& 10 3.0_dp , 10 2.906314846_dp , 0.000000473_dp ,& 10 4.0_dp , 10 3.905425312_dp , 0.000002682_dp ,& 10 5.0_dp , 10 4.907745478_dp , 0.000002683_dp ,& 10 6.0_dp , 10 5.907328181_dp , 0.000005787_dp ,& 10 7.0_dp , 10 6.909969837_dp , 0.000009310_dp ,& 10 8.0_dp , 10 7.910185793_dp , 0.000009318_dp ,& 10 9.0_dp , 10 8.913323707_dp , 0.000009612_dp ,& 11 0.0_dp , 10 9.914038501_dp , 0.000009580_dp ,& 11 1.0_dp , 11 0.917567566_dp , 0.000010394_dp ,& 11 2.0_dp , 11 1.918806922_dp , 0.000010305_dp ,& 11 3.0_dp , 11 2.922846729_dp , 0.000041097_dp ,& 11 4.0_dp , 11 3.924614430_dp , 0.000003817_dp ,& 11 5.0_dp , 11 4.929033049_dp , 0.000027016_dp ,& 11 6.0_dp , 11 5.931219191_dp , 0.000004000_dp ,& 11 7.0_dp , 11 6.936135000_dp , 0.000465000_dp ,& 11 8.0_dp , 11 7.938808_dp , 0.000215_dp ,& 11 9.0_dp , 11 8.944090_dp , 0.000322_dp ,& 12 0.0_dp , 11 9.946623_dp , 0.000429_dp ,& 12 1.0_dp , 12 0.952098_dp , 0.000429_dp ,& 12 2.0_dp , 12 1.955147_dp , 0.000537_dp ,& 12 3.0_dp , 12 2.960762_dp , 0.000537_dp ,& 12 4.0_dp , 12 3.963940_dp , 0.000644_dp ,& 12 5.0_dp , 12 4.969544_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Rh_naw = & naw_type ( 41 , transpose ( reshape ([& 8 8.0_dp , 8 7.960429_dp , 0.000429_dp ,& 8 9.0_dp , 8 8.950992_dp , 0.000387_dp ,& 9 0.0_dp , 8 9.944569_dp , 0.000215_dp ,& 9 1.0_dp , 9 0.937123_dp , 0.000320_dp ,& 9 2.0_dp , 9 1.932367692_dp , 0.000004700_dp ,& 9 3.0_dp , 9 2.925912778_dp , 0.000002821_dp ,& 9 4.0_dp , 9 3.921730450_dp , 0.000003627_dp ,& 9 5.0_dp , 9 4.915897893_dp , 0.000004171_dp ,& 9 6.0_dp , 9 5.914451705_dp , 0.000010737_dp ,& 9 7.0_dp , 9 6.911327872_dp , 0.000038071_dp ,& 9 8.0_dp , 9 7.910707734_dp , 0.000012782_dp ,& 9 9.0_dp , 9 8.908121241_dp , 0.000020881_dp ,& 10 0.0_dp , 9 9.908114147_dp , 0.000019458_dp ,& 10 1.0_dp , 10 0.906158903_dp , 0.000006270_dp ,& 10 2.0_dp , 10 1.906834282_dp , 0.000006880_dp ,& 10 3.0_dp , 10 2.905494081_dp , 0.000002470_dp ,& 10 4.0_dp , 10 3.906645309_dp , 0.000002471_dp ,& 10 5.0_dp , 10 4.905687787_dp , 0.000002685_dp ,& 10 6.0_dp , 10 5.907285879_dp , 0.000005786_dp ,& 10 7.0_dp , 10 6.906747975_dp , 0.000012937_dp ,& 10 8.0_dp , 10 7.908715304_dp , 0.000015026_dp ,& 10 9.0_dp , 10 8.908749555_dp , 0.000004336_dp ,& 11 0.0_dp , 10 9.911079745_dp , 0.000019114_dp ,& 11 1.0_dp , 11 0.911643164_dp , 0.000007356_dp ,& 11 2.0_dp , 11 1.914405199_dp , 0.000047327_dp ,& 11 3.0_dp , 11 2.915440212_dp , 0.000007656_dp ,& 11 4.0_dp , 11 3.918721680_dp , 0.000076824_dp ,& 11 5.0_dp , 11 4.920311649_dp , 0.000007857_dp ,& 11 6.0_dp , 11 5.924062060_dp , 0.000079261_dp ,& 11 7.0_dp , 11 6.926036291_dp , 0.000009548_dp ,& 11 8.0_dp , 11 7.930341116_dp , 0.000026018_dp ,& 11 9.0_dp , 11 8.932556951_dp , 0.000010000_dp ,& 12 0.0_dp , 11 9.937069_dp , 0.000215_dp ,& 12 1.0_dp , 12 0.939613000_dp , 0.000665000_dp ,& 12 2.0_dp , 12 1.944305_dp , 0.000322_dp ,& 12 3.0_dp , 12 2.947192_dp , 0.000429_dp ,& 12 4.0_dp , 12 3.952002_dp , 0.000429_dp ,& 12 5.0_dp , 12 4.955094_dp , 0.000537_dp ,& 12 6.0_dp , 12 5.960064_dp , 0.000537_dp ,& 12 7.0_dp , 12 6.963789_dp , 0.000644_dp ,& 12 8.0_dp , 12 7.970649_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pd_naw = & naw_type ( 42 , transpose ( reshape ([& 9 0.0_dp , 8 9.957370_dp , 0.000429_dp ,& 9 1.0_dp , 9 0.950435_dp , 0.000454_dp ,& 9 2.0_dp , 9 1.941192225_dp , 0.000370402_dp ,& 9 3.0_dp , 9 2.936680426_dp , 0.000397221_dp ,& 9 4.0_dp , 9 3.929036286_dp , 0.000004602_dp ,& 9 5.0_dp , 9 4.924888506_dp , 0.000003253_dp ,& 9 6.0_dp , 9 5.918213739_dp , 0.000004502_dp ,& 9 7.0_dp , 9 6.916471985_dp , 0.000005200_dp ,& 9 8.0_dp , 9 7.912698335_dp , 0.000005090_dp ,& 9 9.0_dp , 9 8.911773073_dp , 0.000005482_dp ,& 10 0.0_dp , 9 9.908520438_dp , 0.000018934_dp ,& 10 1.0_dp , 10 0.908284824_dp , 0.000004925_dp ,& 10 2.0_dp , 10 1.905632292_dp , 0.000000449_dp ,& 10 3.0_dp , 10 2.906111074_dp , 0.000000942_dp ,& 10 4.0_dp , 10 3.904030393_dp , 0.000001434_dp ,& 10 5.0_dp , 10 4.905079479_dp , 0.000001222_dp ,& 10 6.0_dp , 10 5.903480287_dp , 0.000001186_dp ,& 10 7.0_dp , 10 6.905128058_dp , 0.000001289_dp ,& 10 8.0_dp , 10 7.903891806_dp , 0.000001189_dp ,& 10 9.0_dp , 10 8.905950576_dp , 0.000001195_dp ,& 11 0.0_dp , 10 9.905172878_dp , 0.000000657_dp ,& 11 1.0_dp , 11 0.907690358_dp , 0.000000785_dp ,& 11 2.0_dp , 11 1.907330557_dp , 0.000007027_dp ,& 11 3.0_dp , 11 2.910261912_dp , 0.000007458_dp ,& 11 4.0_dp , 11 3.910369430_dp , 0.000007459_dp ,& 11 5.0_dp , 11 4.913659333_dp , 0.000014543_dp ,& 11 6.0_dp , 11 5.914297872_dp , 0.000007659_dp ,& 11 7.0_dp , 11 6.917955584_dp , 0.000007788_dp ,& 11 8.0_dp , 11 7.919067273_dp , 0.000002677_dp ,& 11 9.0_dp , 11 8.923341138_dp , 0.000008854_dp ,& 12 0.0_dp , 11 9.924551745_dp , 0.000002464_dp ,& 12 1.0_dp , 12 0.928950342_dp , 0.000003600_dp ,& 12 2.0_dp , 12 1.930631693_dp , 0.000021000_dp ,& 12 3.0_dp , 12 2.935126000_dp , 0.000847500_dp ,& 12 4.0_dp , 12 3.937305_dp , 0.000322_dp ,& 12 5.0_dp , 12 4.942072_dp , 0.000429_dp ,& 12 6.0_dp , 12 5.944401_dp , 0.000429_dp ,& 12 7.0_dp , 12 6.949307_dp , 0.000537_dp ,& 12 8.0_dp , 12 7.952345_dp , 0.000537_dp ,& 12 9.0_dp , 12 8.959334_dp , 0.000644_dp ,& 13 0.0_dp , 12 9.964863_dp , 0.000322_dp ,& 13 1.0_dp , 13 0.972367_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ag_naw = & naw_type ( 42 , transpose ( reshape ([& 9 2.0_dp , 9 1.959710_dp , 0.000429_dp ,& 9 3.0_dp , 9 2.950188_dp , 0.000430_dp ,& 9 4.0_dp , 9 3.943744_dp , 0.000429_dp ,& 9 5.0_dp , 9 4.935688_dp , 0.000429_dp ,& 9 6.0_dp , 9 5.930743903_dp , 0.000096708_dp ,& 9 7.0_dp , 9 6.923881400_dp , 0.000012900_dp ,& 9 8.0_dp , 9 7.921559970_dp , 0.000035327_dp ,& 9 9.0_dp , 9 8.917645766_dp , 0.000006725_dp ,& 10 0.0_dp , 9 9.916115443_dp , 0.000005367_dp ,& 10 1.0_dp , 10 0.912683951_dp , 0.000005193_dp ,& 10 2.0_dp , 10 1.911704538_dp , 0.000008771_dp ,& 10 3.0_dp , 10 2.908960558_dp , 0.000004400_dp ,& 10 4.0_dp , 10 3.908623715_dp , 0.000004527_dp ,& 10 5.0_dp , 10 4.906525604_dp , 0.000004877_dp ,& 10 6.0_dp , 10 5.906663499_dp , 0.000003237_dp ,& 10 7.0_dp , 10 6.905091509_dp , 0.000002556_dp ,& 10 8.0_dp , 10 7.905950245_dp , 0.000002563_dp ,& 10 9.0_dp , 10 8.904755778_dp , 0.000001381_dp ,& 11 0.0_dp , 10 9.906110724_dp , 0.000001380_dp ,& 11 1.0_dp , 11 0.905296827_dp , 0.000001565_dp ,& 11 2.0_dp , 11 1.907048548_dp , 0.000002600_dp ,& 11 3.0_dp , 11 2.906572865_dp , 0.000017866_dp ,& 11 4.0_dp , 11 3.908823029_dp , 0.000004900_dp ,& 11 5.0_dp , 11 4.908767445_dp , 0.000019611_dp ,& 11 6.0_dp , 11 5.911386809_dp , 0.000003500_dp ,& 11 7.0_dp , 11 6.911774086_dp , 0.000014570_dp ,& 11 8.0_dp , 11 7.914595484_dp , 0.000002700_dp ,& 11 9.0_dp , 11 8.915570309_dp , 0.000015783_dp ,& 12 0.0_dp , 11 9.918784765_dp , 0.000004800_dp ,& 12 1.0_dp , 12 0.920125279_dp , 0.000013000_dp ,& 12 2.0_dp , 12 1.923664446_dp , 0.000041000_dp ,& 12 3.0_dp , 12 2.925315060_dp , 0.000035000_dp ,& 12 4.0_dp , 12 3.928899227_dp , 0.000270000_dp ,& 12 5.0_dp , 12 4.930735000_dp , 0.000465000_dp ,& 12 6.0_dp , 12 5.934814_dp , 0.000215_dp ,& 12 7.0_dp , 12 6.937037_dp , 0.000215_dp ,& 12 8.0_dp , 12 7.941266_dp , 0.000322_dp ,& 12 9.0_dp , 12 8.944315_dp , 0.000429_dp ,& 13 0.0_dp , 12 9.950727_dp , 0.000455_dp ,& 13 1.0_dp , 13 0.956253_dp , 0.000537_dp ,& 13 2.0_dp , 13 1.963070_dp , 0.000537_dp ,& 13 3.0_dp , 13 2.968781_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cd_naw = & naw_type ( 42 , transpose ( reshape ([& 9 4.0_dp , 9 3.956586_dp , 0.000537_dp ,& 9 5.0_dp , 9 4.949483_dp , 0.000607_dp ,& 9 6.0_dp , 9 5.940341_dp , 0.000440_dp ,& 9 7.0_dp , 9 6.934799343_dp , 0.000451073_dp ,& 9 8.0_dp , 9 7.927389315_dp , 0.000055605_dp ,& 9 9.0_dp , 9 8.924925845_dp , 0.000001700_dp ,& 10 0.0_dp , 9 9.920348829_dp , 0.000001800_dp ,& 10 1.0_dp , 10 0.918586209_dp , 0.000001600_dp ,& 10 2.0_dp , 10 1.914481797_dp , 0.000001784_dp ,& 10 3.0_dp , 10 2.913416922_dp , 0.000001943_dp ,& 10 4.0_dp , 10 3.909856228_dp , 0.000001795_dp ,& 10 5.0_dp , 10 4.909463893_dp , 0.000001494_dp ,& 10 6.0_dp , 10 5.906459791_dp , 0.000001184_dp ,& 10 7.0_dp , 10 6.906612049_dp , 0.000001782_dp ,& 10 8.0_dp , 10 7.904183588_dp , 0.000001205_dp ,& 10 9.0_dp , 10 8.904986697_dp , 0.000001649_dp ,& 11 0.0_dp , 10 9.903007470_dp , 0.000000407_dp ,& 11 1.0_dp , 11 0.904183776_dp , 0.000000383_dp ,& 11 2.0_dp , 11 1.902763896_dp , 0.000000268_dp ,& 11 3.0_dp , 11 2.904408105_dp , 0.000000262_dp ,& 11 4.0_dp , 11 3.903364998_dp , 0.000000296_dp ,& 11 5.0_dp , 11 4.905437426_dp , 0.000000699_dp ,& 11 6.0_dp , 11 5.904763230_dp , 0.000000172_dp ,& 11 7.0_dp , 11 6.907226039_dp , 0.000001087_dp ,& 11 8.0_dp , 11 7.906921956_dp , 0.000021471_dp ,& 11 9.0_dp , 11 8.909847052_dp , 0.000040467_dp ,& 12 0.0_dp , 11 9.909868065_dp , 0.000004000_dp ,& 12 1.0_dp , 12 0.912963660_dp , 0.000002085_dp ,& 12 2.0_dp , 12 1.913459050_dp , 0.000002468_dp ,& 12 3.0_dp , 12 2.916892460_dp , 0.000002894_dp ,& 12 4.0_dp , 12 3.917659772_dp , 0.000002800_dp ,& 12 5.0_dp , 12 4.921257590_dp , 0.000003100_dp ,& 12 6.0_dp , 12 5.922430290_dp , 0.000002473_dp ,& 12 7.0_dp , 12 6.926203291_dp , 0.000006656_dp ,& 12 8.0_dp , 12 7.927816778_dp , 0.000006905_dp ,& 12 9.0_dp , 12 8.932235597_dp , 0.000005700_dp ,& 13 0.0_dp , 12 9.934387563_dp , 0.000024000_dp ,& 13 1.0_dp , 13 0.940727740_dp , 0.000020653_dp ,& 13 2.0_dp , 13 1.945823136_dp , 0.000064485_dp ,& 13 3.0_dp , 13 2.952614_dp , 0.000215_dp ,& 13 4.0_dp , 13 3.957638_dp , 0.000322_dp ,& 13 5.0_dp , 13 4.964766_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: In_naw = & naw_type ( 42 , transpose ( reshape ([& 9 6.0_dp , 9 5.959109_dp , 0.000537_dp ,& 9 7.0_dp , 9 6.949125_dp , 0.000430_dp ,& 9 8.0_dp , 9 7.942129_dp , 0.000327_dp ,& 9 9.0_dp , 9 8.934110_dp , 0.000320_dp ,& 10 0.0_dp , 9 9.931101929_dp , 0.000002400_dp ,& 10 1.0_dp , 10 0.926414025_dp , 0.000012519_dp ,& 10 2.0_dp , 10 1.924105911_dp , 0.000004909_dp ,& 10 3.0_dp , 10 2.919878830_dp , 0.000009640_dp ,& 10 4.0_dp , 10 3.918214538_dp , 0.000006200_dp ,& 10 5.0_dp , 10 4.914502322_dp , 0.000011000_dp ,& 10 6.0_dp , 10 5.913463596_dp , 0.000013125_dp ,& 10 7.0_dp , 10 6.910287497_dp , 0.000010363_dp ,& 10 8.0_dp , 10 7.909693654_dp , 0.000009276_dp ,& 10 9.0_dp , 10 8.907149679_dp , 0.000004261_dp ,& 11 0.0_dp , 10 9.907170674_dp , 0.000012402_dp ,& 11 1.0_dp , 11 0.905107236_dp , 0.000003675_dp ,& 11 2.0_dp , 11 1.905538718_dp , 0.000004563_dp ,& 11 3.0_dp , 11 2.904060451_dp , 0.000000202_dp ,& 11 4.0_dp , 11 3.904916405_dp , 0.000000323_dp ,& 11 5.0_dp , 11 4.903878772_dp , 0.000000012_dp ,& 11 6.0_dp , 11 5.905259992_dp , 0.000000236_dp ,& 11 7.0_dp , 11 6.904515729_dp , 0.000005239_dp ,& 11 8.0_dp , 11 7.906356705_dp , 0.000008322_dp ,& 11 9.0_dp , 11 8.905851622_dp , 0.000007847_dp ,& 12 0.0_dp , 11 9.907967489_dp , 0.000042953_dp ,& 12 1.0_dp , 12 0.907852778_dp , 0.000029435_dp ,& 12 2.0_dp , 12 1.910282458_dp , 0.000053741_dp ,& 12 3.0_dp , 12 2.910435252_dp , 0.000021290_dp ,& 12 4.0_dp , 12 3.913184873_dp , 0.000032808_dp ,& 12 5.0_dp , 12 4.913673841_dp , 0.000001900_dp ,& 12 6.0_dp , 12 5.916468202_dp , 0.000004500_dp ,& 12 7.0_dp , 12 6.917466040_dp , 0.000010736_dp ,& 12 8.0_dp , 12 7.920353637_dp , 0.000001419_dp ,& 12 9.0_dp , 12 8.921808534_dp , 0.000002116_dp ,& 13 0.0_dp , 12 9.924952257_dp , 0.000001921_dp ,& 13 1.0_dp , 13 0.926972839_dp , 0.000002367_dp ,& 13 2.0_dp , 13 1.932998444_dp , 0.000064447_dp ,& 13 3.0_dp , 13 2.938067_dp , 0.000215_dp ,& 13 4.0_dp , 13 3.944208_dp , 0.000215_dp ,& 13 5.0_dp , 13 4.949425_dp , 0.000322_dp ,& 13 6.0_dp , 13 5.956017_dp , 0.000322_dp ,& 13 7.0_dp , 13 6.961535_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sn_naw = & naw_type ( 42 , transpose ( reshape ([& 9 9.0_dp , 9 8.948495_dp , 0.000625_dp ,& 10 0.0_dp , 9 9.938648944_dp , 0.000257661_dp ,& 10 1.0_dp , 10 0.935259252_dp , 0.000322068_dp ,& 10 2.0_dp , 10 1.930289525_dp , 0.000107466_dp ,& 10 3.0_dp , 10 2.927973_dp , 0.000108_dp ,& 10 4.0_dp , 10 3.923105195_dp , 0.000006167_dp ,& 10 5.0_dp , 10 4.921268421_dp , 0.000004263_dp ,& 10 6.0_dp , 10 5.916957394_dp , 0.000005465_dp ,& 10 7.0_dp , 10 6.915713649_dp , 0.000005700_dp ,& 10 8.0_dp , 10 7.911894290_dp , 0.000005778_dp ,& 10 9.0_dp , 10 8.911292857_dp , 0.000008533_dp ,& 11 0.0_dp , 10 9.907844835_dp , 0.000014790_dp ,& 11 1.0_dp , 11 0.907741143_dp , 0.000005728_dp ,& 11 2.0_dp , 11 1.904824894_dp , 0.000000315_dp ,& 11 3.0_dp , 11 2.905175857_dp , 0.000001690_dp ,& 11 4.0_dp , 11 3.902780130_dp , 0.000000031_dp ,& 11 5.0_dp , 11 4.903344695_dp , 0.000000016_dp ,& 11 6.0_dp , 11 5.901742825_dp , 0.000000103_dp ,& 11 7.0_dp , 11 6.902954036_dp , 0.000000518_dp ,& 11 8.0_dp , 11 7.901606630_dp , 0.000000536_dp ,& 11 9.0_dp , 11 8.903311266_dp , 0.000000778_dp ,& 12 0.0_dp , 11 9.902202557_dp , 0.000000987_dp ,& 12 1.0_dp , 12 0.904243488_dp , 0.000001050_dp ,& 12 2.0_dp , 12 1.903445494_dp , 0.000002627_dp ,& 12 3.0_dp , 12 2.905727065_dp , 0.000002661_dp ,& 12 4.0_dp , 12 3.905279619_dp , 0.000001410_dp ,& 12 5.0_dp , 12 4.907789370_dp , 0.000001426_dp ,& 12 6.0_dp , 12 5.907658958_dp , 0.000011473_dp ,& 12 7.0_dp , 12 6.910391726_dp , 0.000009904_dp ,& 12 8.0_dp , 12 7.910507828_dp , 0.000018982_dp ,& 12 9.0_dp , 12 8.913482440_dp , 0.000018540_dp ,& 13 0.0_dp , 12 9.913974531_dp , 0.000002010_dp ,& 13 1.0_dp , 13 0.917053067_dp , 0.000003887_dp ,& 13 2.0_dp , 13 1.917823898_dp , 0.000002121_dp ,& 13 3.0_dp , 13 2.923913753_dp , 0.000002043_dp ,& 13 4.0_dp , 13 3.928680430_dp , 0.000003400_dp ,& 13 5.0_dp , 13 4.934908603_dp , 0.000003300_dp ,& 13 6.0_dp , 13 5.939699_dp , 0.000215_dp ,& 13 7.0_dp , 13 6.946162_dp , 0.000322_dp ,& 13 8.0_dp , 13 7.951143_dp , 0.000429_dp ,& 13 9.0_dp , 13 8.957799_dp , 0.000429_dp ,& 14 0.0_dp , 13 9.962973_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sb_naw = & naw_type ( 41 , transpose ( reshape ([& 10 2.0_dp , 10 1.945142_dp , 0.000429_dp ,& 10 3.0_dp , 10 2.939162_dp , 0.000322_dp ,& 10 4.0_dp , 10 3.936344_dp , 0.000109_dp ,& 10 5.0_dp , 10 4.931276547_dp , 0.000023431_dp ,& 10 6.0_dp , 10 5.928637979_dp , 0.000008000_dp ,& 10 7.0_dp , 10 6.924150621_dp , 0.000004452_dp ,& 10 8.0_dp , 10 7.922226731_dp , 0.000005900_dp ,& 10 9.0_dp , 10 8.918141203_dp , 0.000005652_dp ,& 11 0.0_dp , 10 9.916854283_dp , 0.000006400_dp ,& 11 1.0_dp , 11 0.913218187_dp , 0.000009500_dp ,& 11 2.0_dp , 11 1.912399903_dp , 0.000019140_dp ,& 11 3.0_dp , 11 2.909374664_dp , 0.000018457_dp ,& 11 4.0_dp , 11 3.909289155_dp , 0.000021226_dp ,& 11 5.0_dp , 11 4.906598000_dp , 0.000017203_dp ,& 11 6.0_dp , 11 5.906792732_dp , 0.000005533_dp ,& 11 7.0_dp , 11 6.904841519_dp , 0.000009057_dp ,& 11 8.0_dp , 11 7.905532194_dp , 0.000003237_dp ,& 11 9.0_dp , 11 8.903944062_dp , 0.000007512_dp ,& 12 0.0_dp , 11 9.905080308_dp , 0.000007728_dp ,& 12 1.0_dp , 12 0.903811353_dp , 0.000002690_dp ,& 12 2.0_dp , 12 1.905169335_dp , 0.000002687_dp ,& 12 3.0_dp , 12 2.904215292_dp , 0.000001456_dp ,& 12 4.0_dp , 12 3.905937065_dp , 0.000001457_dp ,& 12 5.0_dp , 12 4.905254264_dp , 0.000002700_dp ,& 12 6.0_dp , 12 5.907253158_dp , 0.000034189_dp ,& 12 7.0_dp , 12 6.906925557_dp , 0.000005457_dp ,& 12 8.0_dp , 12 7.909146121_dp , 0.000020169_dp ,& 12 9.0_dp , 12 8.909146623_dp , 0.000022786_dp ,& 13 0.0_dp , 12 9.911662686_dp , 0.000015257_dp ,& 13 1.0_dp , 13 0.911989339_dp , 0.000002236_dp ,& 13 2.0_dp , 13 1.914508013_dp , 0.000002648_dp ,& 13 3.0_dp , 13 2.915272128_dp , 0.000003357_dp ,& 13 4.0_dp , 13 3.920537334_dp , 0.000003300_dp ,& 13 5.0_dp , 13 4.925184354_dp , 0.000002834_dp ,& 13 6.0_dp , 13 5.930749009_dp , 0.000006258_dp ,& 13 7.0_dp , 13 6.935522519_dp , 0.000056000_dp ,& 13 8.0_dp , 13 7.941331_dp , 0.000322_dp ,& 13 9.0_dp , 13 8.946269_dp , 0.000429_dp ,& 14 0.0_dp , 13 9.952345_dp , 0.000644_dp ,& 14 1.0_dp , 14 0.957552_dp , 0.000537_dp ,& 14 2.0_dp , 14 1.963918_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Te_naw = & naw_type ( 42 , transpose ( reshape ([& 10 4.0_dp , 10 3.946723408_dp , 0.000340967_dp ,& 10 5.0_dp , 10 4.943304516_dp , 0.000322084_dp ,& 10 6.0_dp , 10 5.937498521_dp , 0.000107934_dp ,& 10 7.0_dp , 10 6.934882_dp , 0.000108_dp ,& 10 8.0_dp , 10 7.929380469_dp , 0.000005808_dp ,& 10 9.0_dp , 10 8.927304532_dp , 0.000004704_dp ,& 11 0.0_dp , 10 9.922458102_dp , 0.000007058_dp ,& 11 1.0_dp , 11 0.921000587_dp , 0.000006900_dp ,& 11 2.0_dp , 11 1.916727848_dp , 0.000009000_dp ,& 11 3.0_dp , 11 2.915891000_dp , 0.000030000_dp ,& 11 4.0_dp , 11 3.912087820_dp , 0.000026224_dp ,& 11 5.0_dp , 11 4.911902000_dp , 0.000030000_dp ,& 11 6.0_dp , 11 5.908465558_dp , 0.000025986_dp ,& 11 7.0_dp , 11 6.908646227_dp , 0.000014444_dp ,& 11 8.0_dp , 11 7.905860104_dp , 0.000019652_dp ,& 11 9.0_dp , 11 8.906405699_dp , 0.000007813_dp ,& 12 0.0_dp , 11 9.904065779_dp , 0.000001880_dp ,& 12 1.0_dp , 12 0.904945065_dp , 0.000027734_dp ,& 12 2.0_dp , 12 1.903044708_dp , 0.000001456_dp ,& 12 3.0_dp , 12 2.904271022_dp , 0.000001454_dp ,& 12 4.0_dp , 12 3.902818341_dp , 0.000001451_dp ,& 12 5.0_dp , 12 4.904431178_dp , 0.000001451_dp ,& 12 6.0_dp , 12 5.903312144_dp , 0.000001453_dp ,& 12 7.0_dp , 12 6.905226993_dp , 0.000001465_dp ,& 12 8.0_dp , 12 7.904461237_dp , 0.000000758_dp ,& 12 9.0_dp , 12 8.906596419_dp , 0.000000763_dp ,& 13 0.0_dp , 12 9.906222745_dp , 0.000000011_dp ,& 13 1.0_dp , 13 0.908522210_dp , 0.000000065_dp ,& 13 2.0_dp , 13 1.908546713_dp , 0.000003742_dp ,& 13 3.0_dp , 13 2.910963330_dp , 0.000002218_dp ,& 13 4.0_dp , 13 3.911396376_dp , 0.000002948_dp ,& 13 5.0_dp , 13 4.916554715_dp , 0.000001848_dp ,& 13 6.0_dp , 13 5.920101180_dp , 0.000002448_dp ,& 13 7.0_dp , 13 6.925599354_dp , 0.000002254_dp ,& 13 8.0_dp , 13 7.929472452_dp , 0.000004065_dp ,& 13 9.0_dp , 13 8.935367191_dp , 0.000003800_dp ,& 14 0.0_dp , 13 9.939487057_dp , 0.000015434_dp ,& 14 1.0_dp , 14 0.945604_dp , 0.000429_dp ,& 14 2.0_dp , 14 1.950027_dp , 0.000537_dp ,& 14 3.0_dp , 14 2.956489_dp , 0.000537_dp ,& 14 4.0_dp , 14 3.961116_dp , 0.000322_dp ,& 14 5.0_dp , 14 4.967783_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: I_naw = & naw_type ( 42 , transpose ( reshape ([& 10 6.0_dp , 10 5.953516_dp , 0.000429_dp ,& 10 7.0_dp , 10 6.946935_dp , 0.000322_dp ,& 10 8.0_dp , 10 7.943348_dp , 0.000109_dp ,& 10 9.0_dp , 10 8.938086022_dp , 0.000007223_dp ,& 11 0.0_dp , 10 9.935085102_dp , 0.000066494_dp ,& 11 1.0_dp , 11 0.930269236_dp , 0.000005103_dp ,& 11 2.0_dp , 11 1.928004548_dp , 0.000011000_dp ,& 11 3.0_dp , 11 2.923650062_dp , 0.000008600_dp ,& 11 4.0_dp , 11 3.922018900_dp , 0.000021500_dp ,& 11 5.0_dp , 11 4.918048000_dp , 0.000031000_dp ,& 11 6.0_dp , 11 5.916885513_dp , 0.000080555_dp ,& 11 7.0_dp , 11 6.913645649_dp , 0.000027437_dp ,& 11 8.0_dp , 11 7.913074000_dp , 0.000021213_dp ,& 11 9.0_dp , 11 8.910060910_dp , 0.000023302_dp ,& 12 0.0_dp , 11 9.910093729_dp , 0.000016212_dp ,& 12 1.0_dp , 12 0.907411492_dp , 0.000005070_dp ,& 12 2.0_dp , 12 1.907590094_dp , 0.000005561_dp ,& 12 3.0_dp , 12 2.905589753_dp , 0.000003956_dp ,& 12 4.0_dp , 12 3.906210297_dp , 0.000002467_dp ,& 12 5.0_dp , 12 4.904630610_dp , 0.000001452_dp ,& 12 6.0_dp , 12 5.905624205_dp , 0.000004055_dp ,& 12 7.0_dp , 12 6.904472592_dp , 0.000003887_dp ,& 12 8.0_dp , 12 7.905809355_dp , 0.000003887_dp ,& 12 9.0_dp , 12 8.904983643_dp , 0.000003385_dp ,& 13 0.0_dp , 12 9.906670168_dp , 0.000003385_dp ,& 13 1.0_dp , 13 0.906126375_dp , 0.000000649_dp ,& 13 2.0_dp , 13 1.907993511_dp , 0.000004364_dp ,& 13 3.0_dp , 13 2.907828400_dp , 0.000006335_dp ,& 13 4.0_dp , 13 3.909775660_dp , 0.000005213_dp ,& 13 5.0_dp , 13 4.910059355_dp , 0.000002211_dp ,& 13 6.0_dp , 13 5.914604693_dp , 0.000015231_dp ,& 13 7.0_dp , 13 6.918028178_dp , 0.000009000_dp ,& 13 8.0_dp , 13 7.922726392_dp , 0.000006400_dp ,& 13 9.0_dp , 13 8.926493400_dp , 0.000004300_dp ,& 14 0.0_dp , 13 9.931715914_dp , 0.000013000_dp ,& 14 1.0_dp , 14 0.935666081_dp , 0.000017000_dp ,& 14 2.0_dp , 14 1.941166595_dp , 0.000005300_dp ,& 14 3.0_dp , 14 2.945475_dp , 0.000215_dp ,& 14 4.0_dp , 14 3.951336_dp , 0.000429_dp ,& 14 5.0_dp , 14 4.955845_dp , 0.000537_dp ,& 14 6.0_dp , 14 5.961846_dp , 0.000322_dp ,& 14 7.0_dp , 14 6.966505_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Xe_naw = & naw_type ( 43 , transpose ( reshape ([& 10 8.0_dp , 10 7.954232285_dp , 0.000407406_dp ,& 10 9.0_dp , 10 8.950434955_dp , 0.000322178_dp ,& 11 0.0_dp , 10 9.944258759_dp , 0.000108415_dp ,& 11 1.0_dp , 11 0.941470_dp , 0.000124_dp ,& 11 2.0_dp , 11 1.935559068_dp , 0.000008891_dp ,& 11 3.0_dp , 11 2.933221663_dp , 0.000007342_dp ,& 11 4.0_dp , 11 3.927980329_dp , 0.000012000_dp ,& 11 5.0_dp , 11 4.926293943_dp , 0.000013000_dp ,& 11 6.0_dp , 11 5.921580955_dp , 0.000013974_dp ,& 11 7.0_dp , 11 6.920358758_dp , 0.000011141_dp ,& 11 8.0_dp , 11 7.916178678_dp , 0.000011141_dp ,& 11 9.0_dp , 11 8.915410641_dp , 0.000011141_dp ,& 12 0.0_dp , 11 9.911784267_dp , 0.000012686_dp ,& 12 1.0_dp , 12 0.911453012_dp , 0.000010995_dp ,& 12 2.0_dp , 12 1.908367655_dp , 0.000011928_dp ,& 12 3.0_dp , 12 2.908482235_dp , 0.000010234_dp ,& 12 4.0_dp , 12 3.905885174_dp , 0.000001457_dp ,& 12 5.0_dp , 12 4.906387640_dp , 0.000001518_dp ,& 12 6.0_dp , 12 5.904297422_dp , 0.000000006_dp ,& 12 7.0_dp , 12 6.905183636_dp , 0.000004388_dp ,& 12 8.0_dp , 12 7.90353075341_dp , 0.00000000558_dp ,& 12 9.0_dp , 12 8.90478085742_dp , 0.00000000542_dp ,& 13 0.0_dp , 12 9.903509346_dp , 0.000000010_dp ,& 13 1.0_dp , 13 0.90508412808_dp , 0.00000000549_dp ,& 13 2.0_dp , 13 1.90415508346_dp , 0.00000000544_dp ,& 13 3.0_dp , 13 2.905910748_dp , 0.000002576_dp ,& 13 4.0_dp , 13 3.905393030_dp , 0.000000006_dp ,& 13 5.0_dp , 13 4.907231441_dp , 0.000003938_dp ,& 13 6.0_dp , 13 5.907214474_dp , 0.000000007_dp ,& 13 7.0_dp , 13 6.911557771_dp , 0.000000111_dp ,& 13 8.0_dp , 13 7.914146268_dp , 0.000003010_dp ,& 13 9.0_dp , 13 8.918792200_dp , 0.000002300_dp ,& 14 0.0_dp , 13 9.921645814_dp , 0.000002500_dp ,& 14 1.0_dp , 14 0.926787181_dp , 0.000003100_dp ,& 14 2.0_dp , 14 1.929973095_dp , 0.000002900_dp ,& 14 3.0_dp , 14 2.935369550_dp , 0.000005000_dp ,& 14 4.0_dp , 14 3.938945076_dp , 0.000005700_dp ,& 14 5.0_dp , 14 4.944719631_dp , 0.000012000_dp ,& 14 6.0_dp , 14 5.948518245_dp , 0.000026000_dp ,& 14 7.0_dp , 14 6.954482_dp , 0.000215_dp ,& 14 8.0_dp , 14 7.958508_dp , 0.000322_dp ,& 14 9.0_dp , 14 8.964573_dp , 0.000322_dp ,& 15 0.0_dp , 14 9.968878_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cs_naw = & naw_type ( 42 , transpose ( reshape ([& 11 1.0_dp , 11 0.953945_dp , 0.000215_dp ,& 11 2.0_dp , 11 1.950172_dp , 0.000124_dp ,& 11 3.0_dp , 11 2.944428484_dp , 0.000009207_dp ,& 11 4.0_dp , 11 3.941292244_dp , 0.000091323_dp ,& 11 5.0_dp , 11 4.935910_dp , 0.000110_dp ,& 11 6.0_dp , 11 5.933395_dp , 0.000108_dp ,& 11 7.0_dp , 11 6.928616723_dp , 0.000067000_dp ,& 11 8.0_dp , 11 7.926559517_dp , 0.000013690_dp ,& 11 9.0_dp , 11 8.922377327_dp , 0.000014965_dp ,& 12 0.0_dp , 11 9.920677277_dp , 0.000010702_dp ,& 12 1.0_dp , 12 0.917227235_dp , 0.000015340_dp ,& 12 2.0_dp , 12 1.916108144_dp , 0.000036164_dp ,& 12 3.0_dp , 12 2.912996060_dp , 0.000013000_dp ,& 12 4.0_dp , 12 3.912247366_dp , 0.000009823_dp ,& 12 5.0_dp , 12 4.909725953_dp , 0.000008304_dp ,& 12 6.0_dp , 12 5.909445821_dp , 0.000011120_dp ,& 12 7.0_dp , 12 6.907417527_dp , 0.000005987_dp ,& 12 8.0_dp , 12 7.907748452_dp , 0.000005771_dp ,& 12 9.0_dp , 12 8.906065910_dp , 0.000004888_dp ,& 13 0.0_dp , 12 9.906709281_dp , 0.000008971_dp ,& 13 1.0_dp , 13 0.905468457_dp , 0.000000190_dp ,& 13 2.0_dp , 13 1.906437740_dp , 0.000001112_dp ,& 13 3.0_dp , 13 2.905451958_dp , 0.000000008_dp ,& 13 4.0_dp , 13 3.906718501_dp , 0.000000017_dp ,& 13 5.0_dp , 13 4.905976907_dp , 0.000000390_dp ,& 13 6.0_dp , 13 5.907311431_dp , 0.000002010_dp ,& 13 7.0_dp , 13 6.907089296_dp , 0.000000324_dp ,& 13 8.0_dp , 13 7.911017119_dp , 0.000009831_dp ,& 13 9.0_dp , 13 8.913363822_dp , 0.000003364_dp ,& 14 0.0_dp , 13 9.917283707_dp , 0.000008801_dp ,& 14 1.0_dp , 14 0.920045279_dp , 0.000009871_dp ,& 14 2.0_dp , 14 1.924299514_dp , 0.000007586_dp ,& 14 3.0_dp , 14 2.927347346_dp , 0.000008130_dp ,& 14 4.0_dp , 14 3.932075402_dp , 0.000021612_dp ,& 14 5.0_dp , 14 4.935528927_dp , 0.000009733_dp ,& 14 6.0_dp , 14 5.940621867_dp , 0.000003106_dp ,& 14 7.0_dp , 14 6.944261512_dp , 0.000009000_dp ,& 14 8.0_dp , 14 7.949639026_dp , 0.000014000_dp ,& 14 9.0_dp , 14 8.953516_dp , 0.000429_dp ,& 15 0.0_dp , 14 9.959023_dp , 0.000429_dp ,& 15 1.0_dp , 15 0.963199_dp , 0.000537_dp ,& 15 2.0_dp , 15 1.968728_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ba_naw = & naw_type ( 42 , transpose ( reshape ([& 11 3.0_dp , 11 2.957370_dp , 0.000322_dp ,& 11 4.0_dp , 11 3.950718489_dp , 0.000110227_dp ,& 11 5.0_dp , 11 4.947482_dp , 0.000215_dp ,& 11 6.0_dp , 11 5.941621_dp , 0.000215_dp ,& 11 7.0_dp , 11 6.938316403_dp , 0.000268749_dp ,& 11 8.0_dp , 11 7.933226_dp , 0.000215_dp ,& 11 9.0_dp , 11 8.930659683_dp , 0.000214997_dp ,& 12 0.0_dp , 11 9.926044997_dp , 0.000322241_dp ,& 12 1.0_dp , 12 0.924052286_dp , 0.000152333_dp ,& 12 2.0_dp , 12 1.919904000_dp , 0.000030000_dp ,& 12 3.0_dp , 12 2.918781060_dp , 0.000013000_dp ,& 12 4.0_dp , 12 3.915093627_dp , 0.000013416_dp ,& 12 5.0_dp , 12 4.914471840_dp , 0.000011800_dp ,& 12 6.0_dp , 12 5.911250202_dp , 0.000013416_dp ,& 12 7.0_dp , 12 6.911091272_dp , 0.000012192_dp ,& 12 8.0_dp , 12 7.908352446_dp , 0.000001728_dp ,& 12 9.0_dp , 12 8.908683409_dp , 0.000011276_dp ,& 13 0.0_dp , 12 9.906326002_dp , 0.000000308_dp ,& 13 1.0_dp , 13 0.906946315_dp , 0.000000445_dp ,& 13 2.0_dp , 13 1.905061231_dp , 0.000001130_dp ,& 13 3.0_dp , 13 2.906007443_dp , 0.000001065_dp ,& 13 4.0_dp , 13 3.904508249_dp , 0.000000269_dp ,& 13 5.0_dp , 13 4.905688447_dp , 0.000000263_dp ,& 13 6.0_dp , 13 5.904575800_dp , 0.000000262_dp ,& 13 7.0_dp , 13 6.905827207_dp , 0.000000266_dp ,& 13 8.0_dp , 13 7.905247059_dp , 0.000000267_dp ,& 13 9.0_dp , 13 8.908841164_dp , 0.000000271_dp ,& 14 0.0_dp , 13 9.910608231_dp , 0.000008480_dp ,& 14 1.0_dp , 14 0.914403653_dp , 0.000005709_dp ,& 14 2.0_dp , 14 1.916432904_dp , 0.000006355_dp ,& 14 3.0_dp , 14 2.920625149_dp , 0.000007253_dp ,& 14 4.0_dp , 14 3.922954821_dp , 0.000007661_dp ,& 14 5.0_dp , 14 4.927518400_dp , 0.000009100_dp ,& 14 6.0_dp , 14 5.930363200_dp , 0.000001900_dp ,& 14 7.0_dp , 14 6.935303900_dp , 0.000021200_dp ,& 14 8.0_dp , 14 7.938223000_dp , 0.000001600_dp ,& 14 9.0_dp , 14 8.943284000_dp , 0.000002700_dp ,& 15 0.0_dp , 14 9.946441100_dp , 0.000006100_dp ,& 15 1.0_dp , 15 0.951755_dp , 0.000429_dp ,& 15 2.0_dp , 15 1.955330_dp , 0.000429_dp ,& 15 3.0_dp , 15 2.960848_dp , 0.000429_dp ,& 15 4.0_dp , 15 3.964659_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: La_naw = & naw_type ( 42 , transpose ( reshape ([& 11 6.0_dp , 11 5.957005_dp , 0.000345_dp ,& 11 7.0_dp , 11 6.950326_dp , 0.000215_dp ,& 11 8.0_dp , 11 7.946731_dp , 0.000322_dp ,& 11 9.0_dp , 11 8.940934_dp , 0.000322_dp ,& 12 0.0_dp , 11 9.938196_dp , 0.000322_dp ,& 12 1.0_dp , 12 0.933236_dp , 0.000322_dp ,& 12 2.0_dp , 12 1.930710_dp , 0.000320_dp ,& 12 3.0_dp , 12 2.926300_dp , 0.000210_dp ,& 12 4.0_dp , 12 3.924574275_dp , 0.000060836_dp ,& 12 5.0_dp , 12 4.920815931_dp , 0.000027909_dp ,& 12 6.0_dp , 12 5.919512667_dp , 0.000097163_dp ,& 12 7.0_dp , 12 6.916375083_dp , 0.000027912_dp ,& 12 8.0_dp , 12 7.915592123_dp , 0.000058452_dp ,& 12 9.0_dp , 12 8.912695592_dp , 0.000022913_dp ,& 13 0.0_dp , 12 9.912369413_dp , 0.000027854_dp ,& 13 1.0_dp , 13 0.910070000_dp , 0.000030000_dp ,& 13 2.0_dp , 13 1.910119047_dp , 0.000039032_dp ,& 13 3.0_dp , 13 2.908218000_dp , 0.000030000_dp ,& 13 4.0_dp , 13 3.908514011_dp , 0.000021395_dp ,& 13 5.0_dp , 13 4.906984427_dp , 0.000010126_dp ,& 13 6.0_dp , 13 5.907634962_dp , 0.000057081_dp ,& 13 7.0_dp , 13 6.906450438_dp , 0.000001760_dp ,& 13 8.0_dp , 13 7.907124041_dp , 0.000000446_dp ,& 13 9.0_dp , 13 8.906362927_dp , 0.000000651_dp ,& 14 0.0_dp , 13 9.909487285_dp , 0.000000651_dp ,& 14 1.0_dp , 14 0.910971155_dp , 0.000004430_dp ,& 14 2.0_dp , 14 1.914090760_dp , 0.000006748_dp ,& 14 3.0_dp , 14 2.916079482_dp , 0.000007868_dp ,& 14 4.0_dp , 14 3.919645589_dp , 0.000013888_dp ,& 14 5.0_dp , 14 4.921808065_dp , 0.000013170_dp ,& 14 6.0_dp , 14 5.925688017_dp , 0.000001797_dp ,& 14 7.0_dp , 14 6.928417800_dp , 0.000011500_dp ,& 14 8.0_dp , 14 7.932679400_dp , 0.000020900_dp ,& 14 9.0_dp , 14 8.935351259_dp , 0.000214990_dp ,& 15 0.0_dp , 14 9.939547500_dp , 0.000002700_dp ,& 15 1.0_dp , 15 0.942769000_dp , 0.000467500_dp ,& 15 2.0_dp , 15 1.947085_dp , 0.000322_dp ,& 15 3.0_dp , 15 2.950553_dp , 0.000322_dp ,& 15 4.0_dp , 15 3.955416_dp , 0.000322_dp ,& 15 5.0_dp , 15 4.959280_dp , 0.000429_dp ,& 15 6.0_dp , 15 5.964519_dp , 0.000429_dp ,& 15 7.0_dp , 15 6.968792_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ce_naw = & naw_type ( 41 , transpose ( reshape ([& 11 9.0_dp , 11 8.952957_dp , 0.000537_dp ,& 12 0.0_dp , 11 9.946613_dp , 0.000537_dp ,& 12 1.0_dp , 12 0.943435_dp , 0.000430_dp ,& 12 2.0_dp , 12 1.937870_dp , 0.000430_dp ,& 12 3.0_dp , 12 2.935280_dp , 0.000320_dp ,& 12 4.0_dp , 12 3.930310_dp , 0.000320_dp ,& 12 5.0_dp , 12 4.928440_dp , 0.000210_dp ,& 12 6.0_dp , 12 5.923971000_dp , 0.000030000_dp ,& 12 7.0_dp , 12 6.922727000_dp , 0.000031000_dp ,& 12 8.0_dp , 12 7.918911000_dp , 0.000030000_dp ,& 12 9.0_dp , 12 8.918102000_dp , 0.000030000_dp ,& 13 0.0_dp , 12 9.914736000_dp , 0.000030000_dp ,& 13 1.0_dp , 13 0.914429465_dp , 0.000035214_dp ,& 13 2.0_dp , 13 1.911466226_dp , 0.000021907_dp ,& 13 3.0_dp , 13 2.911520402_dp , 0.000017557_dp ,& 13 4.0_dp , 13 3.908928142_dp , 0.000021886_dp ,& 13 5.0_dp , 13 4.909160662_dp , 0.000011021_dp ,& 13 6.0_dp , 13 5.907129256_dp , 0.000000348_dp ,& 13 7.0_dp , 13 6.907762416_dp , 0.000000386_dp ,& 13 8.0_dp , 13 7.905994180_dp , 0.000000536_dp ,& 13 9.0_dp , 13 8.906647029_dp , 0.000002242_dp ,& 14 0.0_dp , 13 9.905448433_dp , 0.000001409_dp ,& 14 1.0_dp , 14 0.908285991_dp , 0.000001411_dp ,& 14 2.0_dp , 14 1.909250208_dp , 0.000002623_dp ,& 14 3.0_dp , 14 2.912391953_dp , 0.000002621_dp ,& 14 4.0_dp , 14 3.913652763_dp , 0.000003041_dp ,& 14 5.0_dp , 14 4.917265113_dp , 0.000036393_dp ,& 14 6.0_dp , 14 5.918812294_dp , 0.000015743_dp ,& 14 7.0_dp , 14 6.922689900_dp , 0.000009211_dp ,& 14 8.0_dp , 14 7.924424186_dp , 0.000012017_dp ,& 14 9.0_dp , 14 8.928426900_dp , 0.000011000_dp ,& 15 0.0_dp , 14 9.930384032_dp , 0.000012556_dp ,& 15 1.0_dp , 15 0.934272200_dp , 0.000019000_dp ,& 15 2.0_dp , 15 1.936682_dp , 0.000215_dp ,& 15 3.0_dp , 15 2.941052_dp , 0.000215_dp ,& 15 4.0_dp , 15 3.943940_dp , 0.000215_dp ,& 15 5.0_dp , 15 4.948706_dp , 0.000322_dp ,& 15 6.0_dp , 15 5.951884_dp , 0.000322_dp ,& 15 7.0_dp , 15 6.957133_dp , 0.000429_dp ,& 15 8.0_dp , 15 7.960773_dp , 0.000429_dp ,& 15 9.0_dp , 15 8.966355_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pr_naw = & naw_type ( 41 , transpose ( reshape ([& 12 1.0_dp , 12 0.955393_dp , 0.000537_dp ,& 12 2.0_dp , 12 1.951927_dp , 0.000537_dp ,& 12 3.0_dp , 12 2.946076_dp , 0.000429_dp ,& 12 4.0_dp , 12 3.942940_dp , 0.000430_dp ,& 12 5.0_dp , 12 4.937659_dp , 0.000322_dp ,& 12 6.0_dp , 12 5.935240_dp , 0.000210_dp ,& 12 7.0_dp , 12 6.930710_dp , 0.000210_dp ,& 12 8.0_dp , 12 7.928791000_dp , 0.000032000_dp ,& 12 9.0_dp , 12 8.925095000_dp , 0.000032000_dp ,& 13 0.0_dp , 12 9.923590000_dp , 0.000069000_dp ,& 13 1.0_dp , 13 0.920234960_dp , 0.000050451_dp ,& 13 2.0_dp , 13 1.919240000_dp , 0.000031000_dp ,& 13 3.0_dp , 13 2.916330558_dp , 0.000013416_dp ,& 13 4.0_dp , 13 3.915696729_dp , 0.000021810_dp ,& 13 5.0_dp , 13 4.913111772_dp , 0.000012686_dp ,& 13 6.0_dp , 13 5.912677470_dp , 0.000012296_dp ,& 13 7.0_dp , 13 6.910679183_dp , 0.000008733_dp ,& 13 8.0_dp , 13 7.910757495_dp , 0.000010748_dp ,& 13 9.0_dp , 13 8.908932700_dp , 0.000003917_dp ,& 14 0.0_dp , 13 9.909085600_dp , 0.000006593_dp ,& 14 1.0_dp , 14 0.907659604_dp , 0.000001607_dp ,& 14 2.0_dp , 14 1.910051640_dp , 0.000001607_dp ,& 14 3.0_dp , 14 2.910822624_dp , 0.000001949_dp ,& 14 4.0_dp , 14 3.913310682_dp , 0.000002907_dp ,& 14 5.0_dp , 14 4.914517987_dp , 0.000007674_dp ,& 14 6.0_dp , 14 5.917687630_dp , 0.000036882_dp ,& 14 7.0_dp , 14 6.919007438_dp , 0.000017020_dp ,& 14 8.0_dp , 14 7.922129992_dp , 0.000016147_dp ,& 14 9.0_dp , 14 8.923736100_dp , 0.000010600_dp ,& 15 0.0_dp , 14 9.926676391_dp , 0.000009677_dp ,& 15 1.0_dp , 15 0.928309066_dp , 0.000012506_dp ,& 15 2.0_dp , 15 1.931552900_dp , 0.000019900_dp ,& 15 3.0_dp , 15 2.933903511_dp , 0.000012755_dp ,& 15 4.0_dp , 15 3.937885165_dp , 0.000107360_dp ,& 15 5.0_dp , 15 4.940509193_dp , 0.000018462_dp ,& 15 6.0_dp , 15 5.944766900_dp , 0.000001100_dp ,& 15 7.0_dp , 15 6.948003100_dp , 0.000003400_dp ,& 15 8.0_dp , 15 7.952603_dp , 0.000322_dp ,& 15 9.0_dp , 15 8.956232_dp , 0.000429_dp ,& 16 0.0_dp , 15 9.961138_dp , 0.000429_dp ,& 16 1.0_dp , 16 0.965121_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Nd_naw = & naw_type ( 40 , transpose ( reshape ([& 12 4.0_dp , 12 3.951873_dp , 0.000537_dp ,& 12 5.0_dp , 12 4.948395_dp , 0.000429_dp ,& 12 6.0_dp , 12 5.942694_dp , 0.000322_dp ,& 12 7.0_dp , 12 6.939978_dp , 0.000322_dp ,& 12 8.0_dp , 12 7.935018_dp , 0.000215_dp ,& 12 9.0_dp , 12 8.933038_dp , 0.000217_dp ,& 13 0.0_dp , 12 9.928506000_dp , 0.000030000_dp ,& 13 1.0_dp , 13 0.927248020_dp , 0.000029541_dp ,& 13 2.0_dp , 13 1.923321237_dp , 0.000025985_dp ,& 13 3.0_dp , 13 2.922348000_dp , 0.000050000_dp ,& 13 4.0_dp , 13 3.918790207_dp , 0.000012686_dp ,& 13 5.0_dp , 13 4.918181318_dp , 0.000020534_dp ,& 13 6.0_dp , 13 5.914976061_dp , 0.000012686_dp ,& 13 7.0_dp , 13 6.914563099_dp , 0.000012586_dp ,& 13 8.0_dp , 13 7.911950938_dp , 0.000012456_dp ,& 13 9.0_dp , 13 8.911951208_dp , 0.000029545_dp ,& 14 0.0_dp , 13 9.909546130_dp , 0.000003500_dp ,& 14 1.0_dp , 14 0.909616690_dp , 0.000003417_dp ,& 14 2.0_dp , 14 1.907728824_dp , 0.000001348_dp ,& 14 3.0_dp , 14 2.909819815_dp , 0.000001347_dp ,& 14 4.0_dp , 14 3.910092798_dp , 0.000001346_dp ,& 14 5.0_dp , 14 4.912579151_dp , 0.000001364_dp ,& 14 6.0_dp , 14 5.913122459_dp , 0.000001366_dp ,& 14 7.0_dp , 14 6.916105969_dp , 0.000001368_dp ,& 14 8.0_dp , 14 7.916899027_dp , 0.000002203_dp ,& 14 9.0_dp , 14 8.920154583_dp , 0.000002205_dp ,& 15 0.0_dp , 14 9.920901322_dp , 0.000001211_dp ,& 15 1.0_dp , 15 0.923839363_dp , 0.000001215_dp ,& 15 2.0_dp , 15 1.924691242_dp , 0.000026276_dp ,& 15 3.0_dp , 15 2.927717868_dp , 0.000002949_dp ,& 15 4.0_dp , 15 3.929597404_dp , 0.000001100_dp ,& 15 5.0_dp , 15 4.933135598_dp , 0.000009826_dp ,& 15 6.0_dp , 15 5.935370358_dp , 0.000001400_dp ,& 15 7.0_dp , 15 6.939351074_dp , 0.000002294_dp ,& 15 8.0_dp , 15 7.942205620_dp , 0.000001400_dp ,& 15 9.0_dp , 15 8.946619085_dp , 0.000032000_dp ,& 16 0.0_dp , 15 9.949839172_dp , 0.000050000_dp ,& 16 1.0_dp , 16 0.954664_dp , 0.000429_dp ,& 16 2.0_dp , 16 1.958121_dp , 0.000429_dp ,& 16 3.0_dp , 16 2.963414_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pm_naw = & naw_type ( 40 , transpose ( reshape ([& 12 6.0_dp , 12 5.957327_dp , 0.000537_dp ,& 12 7.0_dp , 12 6.951358_dp , 0.000429_dp ,& 12 8.0_dp , 12 7.948234_dp , 0.000322_dp ,& 12 9.0_dp , 12 8.942909_dp , 0.000322_dp ,& 13 0.0_dp , 12 9.940451_dp , 0.000215_dp ,& 13 1.0_dp , 13 0.935834_dp , 0.000215_dp ,& 13 2.0_dp , 13 1.933840_dp , 0.000160_dp ,& 13 3.0_dp , 13 2.929782000_dp , 0.000054000_dp ,& 13 4.0_dp , 13 3.928326000_dp , 0.000045000_dp ,& 13 5.0_dp , 13 4.924785000_dp , 0.000089000_dp ,& 13 6.0_dp , 13 5.923595949_dp , 0.000074152_dp ,& 13 7.0_dp , 13 6.920479519_dp , 0.000014000_dp ,& 13 8.0_dp , 13 7.919576119_dp , 0.000012456_dp ,& 13 9.0_dp , 13 8.916799228_dp , 0.000014587_dp ,& 14 0.0_dp , 13 9.916035918_dp , 0.000026001_dp ,& 14 1.0_dp , 14 0.913555081_dp , 0.000015000_dp ,& 14 2.0_dp , 14 1.912890982_dp , 0.000025330_dp ,& 14 3.0_dp , 14 2.910938068_dp , 0.000003160_dp ,& 14 4.0_dp , 14 3.912596208_dp , 0.000003126_dp ,& 14 5.0_dp , 14 4.912755748_dp , 0.000003011_dp ,& 14 6.0_dp , 14 5.914702240_dp , 0.000004589_dp ,& 14 7.0_dp , 14 6.915144944_dp , 0.000001382_dp ,& 14 8.0_dp , 14 7.917481091_dp , 0.000006108_dp ,& 14 9.0_dp , 14 8.918341507_dp , 0.000002344_dp ,& 15 0.0_dp , 14 9.920990014_dp , 0.000021504_dp ,& 15 1.0_dp , 15 0.921216613_dp , 0.000004949_dp ,& 15 2.0_dp , 15 1.923505185_dp , 0.000027809_dp ,& 15 3.0_dp , 15 2.924156252_dp , 0.000009729_dp ,& 15 4.0_dp , 15 3.926712791_dp , 0.000026861_dp ,& 15 5.0_dp , 15 4.928136951_dp , 0.000005065_dp ,& 15 6.0_dp , 15 5.931114059_dp , 0.000001275_dp ,& 15 7.0_dp , 15 6.933121298_dp , 0.000007521_dp ,& 15 8.0_dp , 15 7.936546948_dp , 0.000000953_dp ,& 15 9.0_dp , 15 8.939286409_dp , 0.000010777_dp ,& 16 0.0_dp , 15 9.943215272_dp , 0.000002200_dp ,& 16 1.0_dp , 16 0.946229837_dp , 0.000009700_dp ,& 16 2.0_dp , 16 1.950574_dp , 0.000322_dp ,& 16 3.0_dp , 16 2.953881_dp , 0.000429_dp ,& 16 4.0_dp , 16 3.958819_dp , 0.000429_dp ,& 16 5.0_dp , 16 4.962780_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sm_naw = & naw_type ( 41 , transpose ( reshape ([& 12 8.0_dp , 12 7.957971_dp , 0.000537_dp ,& 12 9.0_dp , 12 8.954557_dp , 0.000537_dp ,& 13 0.0_dp , 12 9.948792_dp , 0.000429_dp ,& 13 1.0_dp , 13 0.946022_dp , 0.000429_dp ,& 13 2.0_dp , 13 1.940805_dp , 0.000322_dp ,& 13 3.0_dp , 13 2.938560_dp , 0.000320_dp ,& 13 4.0_dp , 13 3.934110_dp , 0.000210_dp ,& 13 5.0_dp , 13 4.932520000_dp , 0.000166000_dp ,& 13 6.0_dp , 13 5.928275553_dp , 0.000013416_dp ,& 13 7.0_dp , 13 6.927007959_dp , 0.000030718_dp ,& 13 8.0_dp , 13 7.923243988_dp , 0.000012686_dp ,& 13 9.0_dp , 13 8.922296631_dp , 0.000011684_dp ,& 14 0.0_dp , 13 9.918994714_dp , 0.000013416_dp ,& 14 1.0_dp , 14 0.918481545_dp , 0.000009162_dp ,& 14 2.0_dp , 14 1.915209415_dp , 0.000002002_dp ,& 14 3.0_dp , 14 2.914634848_dp , 0.000002951_dp ,& 14 4.0_dp , 14 3.912006285_dp , 0.000001566_dp ,& 14 5.0_dp , 14 4.913417157_dp , 0.000001594_dp ,& 14 6.0_dp , 14 5.913046835_dp , 0.000003269_dp ,& 14 7.0_dp , 14 6.914904401_dp , 0.000001354_dp ,& 14 8.0_dp , 14 7.914829233_dp , 0.000001337_dp ,& 14 9.0_dp , 14 8.917191211_dp , 0.000001241_dp ,& 15 0.0_dp , 14 9.917281993_dp , 0.000001193_dp ,& 15 1.0_dp , 15 0.919938859_dp , 0.000001191_dp ,& 15 2.0_dp , 15 1.919738646_dp , 0.000001090_dp ,& 15 3.0_dp , 15 2.922103576_dp , 0.000001100_dp ,& 15 4.0_dp , 15 3.922215756_dp , 0.000001400_dp ,& 15 5.0_dp , 15 4.924646645_dp , 0.000001429_dp ,& 15 6.0_dp , 15 5.925538191_dp , 0.000009148_dp ,& 15 7.0_dp , 15 6.928418598_dp , 0.000004759_dp ,& 15 8.0_dp , 15 7.929949262_dp , 0.000005133_dp ,& 15 9.0_dp , 15 8.933217130_dp , 0.000006370_dp ,& 16 0.0_dp , 15 9.935337032_dp , 0.000002100_dp ,& 16 1.0_dp , 16 0.939160062_dp , 0.000007318_dp ,& 16 2.0_dp , 16 1.941621687_dp , 0.000003782_dp ,& 16 3.0_dp , 16 2.945679085_dp , 0.000007900_dp ,& 16 4.0_dp , 16 3.948550061_dp , 0.000004400_dp ,& 16 5.0_dp , 16 4.953290_dp , 0.000429_dp ,& 16 6.0_dp , 16 5.956575_dp , 0.000429_dp ,& 16 7.0_dp , 16 6.962072_dp , 0.000537_dp ,& 16 8.0_dp , 16 7.966033_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Eu_naw = & naw_type ( 41 , transpose ( reshape ([& 13 0.0_dp , 12 9.964022_dp , 0.000578_dp ,& 13 1.0_dp , 13 0.957634_dp , 0.000429_dp ,& 13 2.0_dp , 13 1.954696_dp , 0.000429_dp ,& 13 3.0_dp , 13 2.949290_dp , 0.000320_dp ,& 13 4.0_dp , 13 3.946537_dp , 0.000322_dp ,& 13 5.0_dp , 13 4.941870_dp , 0.000210_dp ,& 13 6.0_dp , 13 5.939620_dp , 0.000210_dp ,& 13 7.0_dp , 13 6.935430719_dp , 0.000004700_dp ,& 13 8.0_dp , 13 7.933709000_dp , 0.000030000_dp ,& 13 9.0_dp , 13 8.929792307_dp , 0.000014117_dp ,& 14 0.0_dp , 13 9.928087633_dp , 0.000055328_dp ,& 14 1.0_dp , 14 0.924931734_dp , 0.000013568_dp ,& 14 2.0_dp , 14 1.923446719_dp , 0.000032268_dp ,& 14 3.0_dp , 14 2.920298678_dp , 0.000011793_dp ,& 14 4.0_dp , 14 3.918819481_dp , 0.000011580_dp ,& 14 5.0_dp , 14 4.916272659_dp , 0.000003285_dp ,& 14 6.0_dp , 14 5.917210852_dp , 0.000006451_dp ,& 14 7.0_dp , 14 6.916752440_dp , 0.000002758_dp ,& 14 8.0_dp , 14 7.918091288_dp , 0.000010693_dp ,& 14 9.0_dp , 14 8.917936875_dp , 0.000004190_dp ,& 15 0.0_dp , 14 9.919707092_dp , 0.000006688_dp ,& 15 1.0_dp , 15 0.919856606_dp , 0.000001251_dp ,& 15 2.0_dp , 15 1.921750980_dp , 0.000001252_dp ,& 15 3.0_dp , 15 2.921236789_dp , 0.000001257_dp ,& 15 4.0_dp , 15 3.922985699_dp , 0.000001275_dp ,& 15 5.0_dp , 15 4.922899847_dp , 0.000001343_dp ,& 15 6.0_dp , 15 5.924762976_dp , 0.000003791_dp ,& 15 7.0_dp , 15 6.925432556_dp , 0.000004545_dp ,& 15 8.0_dp , 15 7.927782192_dp , 0.000002181_dp ,& 15 9.0_dp , 15 8.929099512_dp , 0.000004637_dp ,& 16 0.0_dp , 15 9.931836982_dp , 0.000000970_dp ,& 16 1.0_dp , 16 0.933663991_dp , 0.000011164_dp ,& 16 2.0_dp , 16 1.936958329_dp , 0.000001410_dp ,& 16 3.0_dp , 16 2.939265510_dp , 0.000000970_dp ,& 16 4.0_dp , 16 3.942852943_dp , 0.000002219_dp ,& 16 5.0_dp , 16 4.945540070_dp , 0.000005596_dp ,& 16 6.0_dp , 16 5.949813_dp , 0.000107_dp ,& 16 7.0_dp , 16 6.953011_dp , 0.000429_dp ,& 16 8.0_dp , 16 7.957863_dp , 0.000429_dp ,& 16 9.0_dp , 16 8.961717_dp , 0.000537_dp ,& 17 0.0_dp , 16 9.966870_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Gd_naw = & naw_type ( 40 , transpose ( reshape ([& 13 3.0_dp , 13 2.961288_dp , 0.000537_dp ,& 13 4.0_dp , 13 3.955416_dp , 0.000429_dp ,& 13 5.0_dp , 13 4.952496_dp , 0.000429_dp ,& 13 6.0_dp , 13 5.947300_dp , 0.000320_dp ,& 13 7.0_dp , 13 6.945020_dp , 0.000320_dp ,& 13 8.0_dp , 13 7.940247_dp , 0.000215_dp ,& 13 9.0_dp , 13 8.938130_dp , 0.000210_dp ,& 14 0.0_dp , 13 9.933674000_dp , 0.000030000_dp ,& 14 1.0_dp , 14 0.932126000_dp , 0.000021213_dp ,& 14 2.0_dp , 14 1.928116000_dp , 0.000030000_dp ,& 14 3.0_dp , 14 2.926750678_dp , 0.000215032_dp ,& 14 4.0_dp , 14 3.922963000_dp , 0.000030000_dp ,& 14 5.0_dp , 14 4.921710051_dp , 0.000021165_dp ,& 14 6.0_dp , 14 5.918318513_dp , 0.000004376_dp ,& 14 7.0_dp , 14 6.919101014_dp , 0.000002025_dp ,& 14 8.0_dp , 14 7.918121414_dp , 0.000001566_dp ,& 14 9.0_dp , 14 8.919347666_dp , 0.000003553_dp ,& 15 0.0_dp , 14 9.918663949_dp , 0.000006500_dp ,& 15 1.0_dp , 15 0.920354922_dp , 0.000003212_dp ,& 15 2.0_dp , 15 1.919798414_dp , 0.000001081_dp ,& 15 3.0_dp , 15 2.921756945_dp , 0.000001075_dp ,& 15 4.0_dp , 15 3.920872974_dp , 0.000001066_dp ,& 15 5.0_dp , 15 4.922629356_dp , 0.000001055_dp ,& 15 6.0_dp , 15 5.922130120_dp , 0.000001054_dp ,& 15 7.0_dp , 15 6.923967424_dp , 0.000001048_dp ,& 15 8.0_dp , 15 7.924111200_dp , 0.000001048_dp ,& 15 9.0_dp , 15 8.926395822_dp , 0.000001051_dp ,& 16 0.0_dp , 15 9.927061202_dp , 0.000001206_dp ,& 16 1.0_dp , 16 0.929676267_dp , 0.000001614_dp ,& 16 2.0_dp , 16 1.930991812_dp , 0.000004254_dp ,& 16 3.0_dp , 16 2.934096640_dp , 0.000000855_dp ,& 16 4.0_dp , 16 3.935916193_dp , 0.000001073_dp ,& 16 5.0_dp , 16 4.939317080_dp , 0.000001400_dp ,& 16 6.0_dp , 16 5.941630413_dp , 0.000001700_dp ,& 16 7.0_dp , 16 6.945490012_dp , 0.000005596_dp ,& 16 8.0_dp , 16 7.948309_dp , 0.000322_dp ,& 16 9.0_dp , 16 8.952882_dp , 0.000429_dp ,& 17 0.0_dp , 16 9.956146_dp , 0.000537_dp ,& 17 1.0_dp , 17 0.961127_dp , 0.000537_dp ,& 17 2.0_dp , 17 1.964605_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Tb_naw = & naw_type ( 40 , transpose ( reshape ([& 13 5.0_dp , 13 4.964516_dp , 0.000429_dp ,& 13 6.0_dp , 13 5.961460_dp , 0.000537_dp ,& 13 7.0_dp , 13 6.956020_dp , 0.000430_dp ,& 13 8.0_dp , 13 7.953193_dp , 0.000322_dp ,& 13 9.0_dp , 13 8.948330_dp , 0.000320_dp ,& 14 0.0_dp , 13 9.945805048_dp , 0.000859359_dp ,& 14 1.0_dp , 14 0.941448000_dp , 0.000113000_dp ,& 14 2.0_dp , 14 1.939280858_dp , 0.000752079_dp ,& 14 3.0_dp , 14 2.935137332_dp , 0.000055000_dp ,& 14 4.0_dp , 14 3.933045000_dp , 0.000030000_dp ,& 14 5.0_dp , 14 4.928717001_dp , 0.000119051_dp ,& 14 6.0_dp , 14 5.927252739_dp , 0.000048159_dp ,& 14 7.0_dp , 14 6.924054620_dp , 0.000008691_dp ,& 14 8.0_dp , 14 7.924275476_dp , 0.000013379_dp ,& 14 9.0_dp , 14 8.923253792_dp , 0.000003895_dp ,& 15 0.0_dp , 14 9.923664799_dp , 0.000007912_dp ,& 15 1.0_dp , 15 0.923108970_dp , 0.000004395_dp ,& 15 2.0_dp , 15 1.924081855_dp , 0.000042955_dp ,& 15 3.0_dp , 15 2.923441694_dp , 0.000004237_dp ,& 15 4.0_dp , 15 3.924683681_dp , 0.000048641_dp ,& 15 5.0_dp , 15 4.923509511_dp , 0.000010552_dp ,& 15 6.0_dp , 15 5.924754209_dp , 0.000004044_dp ,& 15 7.0_dp , 15 6.924031888_dp , 0.000001092_dp ,& 15 8.0_dp , 15 7.925419942_dp , 0.000001360_dp ,& 15 9.0_dp , 15 8.925353707_dp , 0.000001184_dp ,& 16 0.0_dp , 15 9.927174553_dp , 0.000001191_dp ,& 16 1.0_dp , 16 0.927576806_dp , 0.000001308_dp ,& 16 2.0_dp , 16 1.929275400_dp , 0.000002200_dp ,& 16 3.0_dp , 16 2.930653609_dp , 0.000004358_dp ,& 16 4.0_dp , 16 3.933327561_dp , 0.000002000_dp ,& 16 5.0_dp , 16 4.934955198_dp , 0.000001654_dp ,& 16 6.0_dp , 16 5.937939727_dp , 0.000001570_dp ,& 16 7.0_dp , 16 6.940007046_dp , 0.000002071_dp ,& 16 8.0_dp , 16 7.943337074_dp , 0.000004500_dp ,& 16 9.0_dp , 16 8.945807_dp , 0.000322_dp ,& 17 0.0_dp , 16 9.949855_dp , 0.000322_dp ,& 17 1.0_dp , 17 0.953011_dp , 0.000429_dp ,& 17 2.0_dp , 17 1.957391_dp , 0.000537_dp ,& 17 3.0_dp , 17 2.960805_dp , 0.000537_dp ,& 17 4.0_dp , 17 3.965679_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Dy_naw = & naw_type ( 39 , transpose ( reshape ([& 13 8.0_dp , 13 7.962500_dp , 0.000540_dp ,& 13 9.0_dp , 13 8.959527_dp , 0.000537_dp ,& 14 0.0_dp , 13 9.954020_dp , 0.000430_dp ,& 14 1.0_dp , 14 0.951280_dp , 0.000320_dp ,& 14 2.0_dp , 14 1.946194_dp , 0.000782_dp ,& 14 3.0_dp , 14 2.943994332_dp , 0.000014000_dp ,& 14 4.0_dp , 14 3.939269512_dp , 0.000007700_dp ,& 14 5.0_dp , 14 4.937473992_dp , 0.000007000_dp ,& 14 6.0_dp , 14 5.932844526_dp , 0.000007187_dp ,& 14 7.0_dp , 14 6.931082712_dp , 0.000009500_dp ,& 14 8.0_dp , 14 7.927149944_dp , 0.000009365_dp ,& 14 9.0_dp , 14 8.927327516_dp , 0.000009858_dp ,& 15 0.0_dp , 14 9.925593068_dp , 0.000004636_dp ,& 15 1.0_dp , 15 0.926191279_dp , 0.000003486_dp ,& 15 2.0_dp , 15 1.924725274_dp , 0.000004930_dp ,& 15 3.0_dp , 15 2.925771729_dp , 0.000004295_dp ,& 15 4.0_dp , 15 3.924428920_dp , 0.000007977_dp ,& 15 5.0_dp , 15 4.925758049_dp , 0.000010354_dp ,& 15 6.0_dp , 15 5.924283593_dp , 0.000001060_dp ,& 15 7.0_dp , 15 6.925469555_dp , 0.000005532_dp ,& 15 8.0_dp , 15 7.924414817_dp , 0.000002509_dp ,& 15 9.0_dp , 15 8.925745938_dp , 0.000001544_dp ,& 16 0.0_dp , 15 9.925203578_dp , 0.000000751_dp ,& 16 1.0_dp , 16 0.926939425_dp , 0.000000748_dp ,& 16 2.0_dp , 16 1.926804507_dp , 0.000000746_dp ,& 16 3.0_dp , 16 2.928737221_dp , 0.000000744_dp ,& 16 4.0_dp , 16 3.929180819_dp , 0.000000746_dp ,& 16 5.0_dp , 16 4.931709402_dp , 0.000000748_dp ,& 16 6.0_dp , 16 5.932812810_dp , 0.000000862_dp ,& 16 7.0_dp , 16 6.935682415_dp , 0.000004300_dp ,& 16 8.0_dp , 16 7.937134977_dp , 0.000150303_dp ,& 16 9.0_dp , 16 8.940315231_dp , 0.000322781_dp ,& 17 0.0_dp , 16 9.942340_dp , 0.000215_dp ,& 17 1.0_dp , 17 0.946312_dp , 0.000215_dp ,& 17 2.0_dp , 17 1.948728_dp , 0.000322_dp ,& 17 3.0_dp , 17 2.953043_dp , 0.000429_dp ,& 17 4.0_dp , 17 3.955845_dp , 0.000537_dp ,& 17 5.0_dp , 17 4.960569_dp , 0.000537_dp ,& 17 6.0_dp , 17 5.963918_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ho_naw = & naw_type ( 39 , transpose ( reshape ([& 14 0.0_dp , 13 9.968526_dp , 0.000537_dp ,& 14 1.0_dp , 14 0.963108_dp , 0.000430_dp ,& 14 2.0_dp , 14 1.960010_dp , 0.000430_dp ,& 14 3.0_dp , 14 2.954860_dp , 0.000320_dp ,& 14 4.0_dp , 14 3.952109712_dp , 0.000009100_dp ,& 14 5.0_dp , 14 4.947267392_dp , 0.000008000_dp ,& 14 6.0_dp , 14 5.944993503_dp , 0.000007071_dp ,& 14 7.0_dp , 14 6.940142293_dp , 0.000005368_dp ,& 14 8.0_dp , 14 7.937743925_dp , 0.000090000_dp ,& 14 9.0_dp , 14 8.933820457_dp , 0.000012866_dp ,& 15 0.0_dp , 14 9.933498353_dp , 0.000015209_dp ,& 15 1.0_dp , 15 0.931698176_dp , 0.000008908_dp ,& 15 2.0_dp , 15 1.931717618_dp , 0.000013449_dp ,& 15 3.0_dp , 15 2.930206671_dp , 0.000005438_dp ,& 15 4.0_dp , 15 3.930606776_dp , 0.000008820_dp ,& 15 5.0_dp , 15 4.929103363_dp , 0.000018754_dp ,& 15 6.0_dp , 15 5.929641634_dp , 0.000041249_dp ,& 15 7.0_dp , 15 6.928251974_dp , 0.000025194_dp ,& 15 8.0_dp , 15 7.928944910_dp , 0.000029099_dp ,& 15 9.0_dp , 15 8.927718683_dp , 0.000003268_dp ,& 16 0.0_dp , 15 9.928735538_dp , 0.000016120_dp ,& 16 1.0_dp , 16 0.927861815_dp , 0.000002309_dp ,& 16 2.0_dp , 16 1.929102543_dp , 0.000003330_dp ,& 16 3.0_dp , 16 2.928740260_dp , 0.000000744_dp ,& 16 4.0_dp , 16 3.930240548_dp , 0.000001492_dp ,& 16 5.0_dp , 16 4.930329116_dp , 0.000000844_dp ,& 16 6.0_dp , 16 5.932291209_dp , 0.000000844_dp ,& 16 7.0_dp , 16 6.933140254_dp , 0.000005570_dp ,& 16 8.0_dp , 16 7.935523766_dp , 0.000032207_dp ,& 16 9.0_dp , 16 8.936879890_dp , 0.000021522_dp ,& 17 0.0_dp , 16 9.939626548_dp , 0.000053697_dp ,& 17 1.0_dp , 17 0.941472713_dp , 0.000644128_dp ,& 17 2.0_dp , 17 1.944730_dp , 0.000210_dp ,& 17 3.0_dp , 17 2.947020_dp , 0.000320_dp ,& 17 4.0_dp , 17 3.950757_dp , 0.000322_dp ,& 17 5.0_dp , 17 4.953516_dp , 0.000429_dp ,& 17 6.0_dp , 17 5.957713_dp , 0.000537_dp ,& 17 7.0_dp , 17 6.961052_dp , 0.000537_dp ,& 17 8.0_dp , 17 7.965507_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Er_naw = & naw_type ( 39 , transpose ( reshape ([& 14 2.0_dp , 14 1.970016_dp , 0.000537_dp ,& 14 3.0_dp , 14 2.966548_dp , 0.000429_dp ,& 14 4.0_dp , 14 3.960700_dp , 0.000210_dp ,& 14 5.0_dp , 14 4.957874_dp , 0.000215_dp ,& 14 6.0_dp , 14 5.952418357_dp , 0.000007197_dp ,& 14 7.0_dp , 14 6.949964456_dp , 0.000041000_dp ,& 14 8.0_dp , 14 7.944735026_dp , 0.000011000_dp ,& 14 9.0_dp , 14 8.942306000_dp , 0.000030000_dp ,& 15 0.0_dp , 14 9.937915524_dp , 0.000018458_dp ,& 15 1.0_dp , 15 0.937448567_dp , 0.000017681_dp ,& 15 2.0_dp , 15 1.935050347_dp , 0.000009478_dp ,& 15 3.0_dp , 15 2.935086350_dp , 0.000009967_dp ,& 15 4.0_dp , 15 3.932790799_dp , 0.000005325_dp ,& 15 5.0_dp , 15 4.933215710_dp , 0.000006520_dp ,& 15 6.0_dp , 15 5.931065926_dp , 0.000026440_dp ,& 15 7.0_dp , 15 6.931922652_dp , 0.000028454_dp ,& 15 8.0_dp , 15 7.929893474_dp , 0.000027074_dp ,& 15 9.0_dp , 15 8.930690790_dp , 0.000003910_dp ,& 16 0.0_dp , 15 9.929077193_dp , 0.000026029_dp ,& 16 1.0_dp , 16 0.930003530_dp , 0.000009419_dp ,& 16 2.0_dp , 16 1.928787299_dp , 0.000000811_dp ,& 16 3.0_dp , 16 2.930039908_dp , 0.000004967_dp ,& 16 4.0_dp , 16 3.929207739_dp , 0.000000755_dp ,& 16 5.0_dp , 16 4.930733482_dp , 0.000000985_dp ,& 16 6.0_dp , 16 5.930301067_dp , 0.000000358_dp ,& 16 7.0_dp , 16 6.932056192_dp , 0.000000306_dp ,& 16 8.0_dp , 16 7.932378282_dp , 0.000000280_dp ,& 16 9.0_dp , 16 8.934598444_dp , 0.000000326_dp ,& 17 0.0_dp , 16 9.935471933_dp , 0.000001488_dp ,& 17 1.0_dp , 17 0.938037372_dp , 0.000001511_dp ,& 17 2.0_dp , 17 1.939363461_dp , 0.000004253_dp ,& 17 3.0_dp , 17 2.942400_dp , 0.000210_dp ,& 17 4.0_dp , 17 3.944230_dp , 0.000320_dp ,& 17 5.0_dp , 17 4.947770_dp , 0.000430_dp ,& 17 6.0_dp , 17 5.949940_dp , 0.000430_dp ,& 17 7.0_dp , 17 6.953990_dp , 0.000540_dp ,& 17 8.0_dp , 17 7.956779_dp , 0.000640_dp ,& 17 9.0_dp , 17 8.961267_dp , 0.000537_dp ,& 18 0.0_dp , 17 9.964380_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Tm_naw = & naw_type ( 39 , transpose ( reshape ([& 14 4.0_dp , 14 3.976211_dp , 0.000429_dp ,& 14 5.0_dp , 14 4.970389_dp , 0.000210_dp ,& 14 6.0_dp , 14 5.966661_dp , 0.000215_dp ,& 14 7.0_dp , 14 6.961379887_dp , 0.000007341_dp ,& 14 8.0_dp , 14 7.958384026_dp , 0.000011000_dp ,& 14 9.0_dp , 14 8.952828_dp , 0.000215_dp ,& 15 0.0_dp , 14 9.950090_dp , 0.000210_dp ,& 15 1.0_dp , 15 0.945494433_dp , 0.000020799_dp ,& 15 2.0_dp , 15 1.944476000_dp , 0.000058000_dp ,& 15 3.0_dp , 15 2.942058023_dp , 0.000012860_dp ,& 15 4.0_dp , 15 3.941570062_dp , 0.000015471_dp ,& 15 5.0_dp , 15 4.939209576_dp , 0.000010651_dp ,& 15 6.0_dp , 15 5.938985746_dp , 0.000015328_dp ,& 15 7.0_dp , 15 6.936973000_dp , 0.000030000_dp ,& 15 8.0_dp , 15 7.936979525_dp , 0.000027074_dp ,& 15 9.0_dp , 15 8.934975000_dp , 0.000030000_dp ,& 16 0.0_dp , 15 9.935264177_dp , 0.000035089_dp ,& 16 1.0_dp , 16 0.933549000_dp , 0.000030000_dp ,& 16 2.0_dp , 16 1.934001211_dp , 0.000027974_dp ,& 16 3.0_dp , 16 2.932658282_dp , 0.000005920_dp ,& 16 4.0_dp , 16 3.933538019_dp , 0.000026845_dp ,& 16 5.0_dp , 16 4.932441843_dp , 0.000001779_dp ,& 16 6.0_dp , 16 5.933562136_dp , 0.000012401_dp ,& 16 7.0_dp , 16 6.932857206_dp , 0.000001350_dp ,& 16 8.0_dp , 16 7.934178457_dp , 0.000001800_dp ,& 16 9.0_dp , 16 8.934218956_dp , 0.000000792_dp ,& 17 0.0_dp , 16 9.935807093_dp , 0.000000785_dp ,& 17 1.0_dp , 17 0.936435162_dp , 0.000001043_dp ,& 17 2.0_dp , 17 1.938406959_dp , 0.000005884_dp ,& 17 3.0_dp , 17 2.939606630_dp , 0.000004723_dp ,& 17 4.0_dp , 17 3.942174061_dp , 0.000048010_dp ,& 17 5.0_dp , 17 4.943842310_dp , 0.000053677_dp ,& 17 6.0_dp , 17 5.946997707_dp , 0.000107354_dp ,& 17 7.0_dp , 17 6.948932_dp , 0.000215_dp ,& 17 8.0_dp , 17 7.952506_dp , 0.000322_dp ,& 17 9.0_dp , 17 8.955018_dp , 0.000429_dp ,& 18 0.0_dp , 17 9.959023_dp , 0.000429_dp ,& 18 1.0_dp , 18 0.961954_dp , 0.000537_dp ,& 18 2.0_dp , 18 1.966194_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Yb_naw = & naw_type ( 38 , transpose ( reshape ([& 14 8.0_dp , 14 7.967547_dp , 0.000429_dp ,& 14 9.0_dp , 14 8.964219_dp , 0.000322_dp ,& 15 0.0_dp , 14 9.958314_dp , 0.000322_dp ,& 15 1.0_dp , 15 0.955402453_dp , 0.000322591_dp ,& 15 2.0_dp , 15 1.950326699_dp , 0.000160718_dp ,& 15 3.0_dp , 15 2.949372_dp , 0.000215_dp ,& 15 4.0_dp , 15 3.946395696_dp , 0.000018551_dp ,& 15 5.0_dp , 15 4.945783216_dp , 0.000017820_dp ,& 15 6.0_dp , 15 5.942817096_dp , 0.000009992_dp ,& 15 7.0_dp , 15 6.942651368_dp , 0.000011706_dp ,& 15 8.0_dp , 15 7.939871202_dp , 0.000008559_dp ,& 15 9.0_dp , 15 8.940060257_dp , 0.000018874_dp ,& 16 0.0_dp , 15 9.937559210_dp , 0.000005900_dp ,& 16 1.0_dp , 16 0.937912384_dp , 0.000016211_dp ,& 16 2.0_dp , 16 1.935779342_dp , 0.000016213_dp ,& 16 3.0_dp , 16 2.936345406_dp , 0.000016215_dp ,& 16 4.0_dp , 16 3.934500743_dp , 0.000016217_dp ,& 16 5.0_dp , 16 4.935270241_dp , 0.000028490_dp ,& 16 6.0_dp , 16 5.933876439_dp , 0.000007515_dp ,& 16 7.0_dp , 16 6.934954069_dp , 0.000004251_dp ,& 16 8.0_dp , 16 7.933891297_dp , 0.000000100_dp ,& 16 9.0_dp , 16 8.935184208_dp , 0.000000191_dp ,& 17 0.0_dp , 16 9.934767242_dp , 0.000000011_dp ,& 17 1.0_dp , 17 0.936331515_dp , 0.000000013_dp ,& 17 2.0_dp , 17 1.936386654_dp , 0.000000014_dp ,& 17 3.0_dp , 17 2.938216211_dp , 0.000000012_dp ,& 17 4.0_dp , 17 3.938867545_dp , 0.000000011_dp ,& 17 5.0_dp , 17 4.941281907_dp , 0.000000076_dp ,& 17 6.0_dp , 17 5.942574706_dp , 0.000000015_dp ,& 17 7.0_dp , 17 6.945263846_dp , 0.000000236_dp ,& 17 8.0_dp , 17 7.946669400_dp , 0.000007072_dp ,& 17 9.0_dp , 17 8.949930_dp , 0.000215_dp ,& 18 0.0_dp , 17 9.951991_dp , 0.000322_dp ,& 18 1.0_dp , 18 0.955890_dp , 0.000320_dp ,& 18 2.0_dp , 18 1.958239_dp , 0.000429_dp ,& 18 3.0_dp , 18 2.962426_dp , 0.000429_dp ,& 18 4.0_dp , 18 3.965002_dp , 0.000540_dp ,& 18 5.0_dp , 18 4.969425_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Lu_naw = & naw_type ( 39 , transpose ( reshape ([& 15 0.0_dp , 14 9.973407_dp , 0.000322_dp ,& 15 1.0_dp , 15 0.967471_dp , 0.000322_dp ,& 15 2.0_dp , 15 1.964120_dp , 0.000210_dp ,& 15 3.0_dp , 15 2.958802248_dp , 0.000161050_dp ,& 15 4.0_dp , 15 3.957416_dp , 0.000216_dp ,& 15 5.0_dp , 15 4.954326005_dp , 0.000020660_dp ,& 15 6.0_dp , 15 5.953086606_dp , 0.000058102_dp ,& 15 7.0_dp , 15 6.950144807_dp , 0.000012961_dp ,& 15 8.0_dp , 15 7.949315620_dp , 0.000016236_dp ,& 15 9.0_dp , 15 8.946635615_dp , 0.000040433_dp ,& 16 0.0_dp , 15 9.946033000_dp , 0.000061000_dp ,& 16 1.0_dp , 16 0.943572000_dp , 0.000030000_dp ,& 16 2.0_dp , 16 1.943282776_dp , 0.000080554_dp ,& 16 3.0_dp , 16 2.941179000_dp , 0.000030000_dp ,& 16 4.0_dp , 16 3.941339000_dp , 0.000030000_dp ,& 16 5.0_dp , 16 4.939406758_dp , 0.000028490_dp ,& 16 6.0_dp , 16 5.939859000_dp , 0.000032000_dp ,& 16 7.0_dp , 16 6.938243000_dp , 0.000040000_dp ,& 16 8.0_dp , 16 7.938729798_dp , 0.000040766_dp ,& 16 9.0_dp , 16 8.937645845_dp , 0.000003226_dp ,& 17 0.0_dp , 16 9.938479230_dp , 0.000018081_dp ,& 17 1.0_dp , 17 0.937918591_dp , 0.000001999_dp ,& 17 2.0_dp , 17 1.939091320_dp , 0.000002507_dp ,& 17 3.0_dp , 17 2.938935722_dp , 0.000001682_dp ,& 17 4.0_dp , 17 3.940342840_dp , 0.000001682_dp ,& 17 5.0_dp , 17 4.940777211_dp , 0.000001295_dp ,& 17 6.0_dp , 17 5.942691711_dp , 0.000001301_dp ,& 17 7.0_dp , 17 6.943763570_dp , 0.000001310_dp ,& 17 8.0_dp , 17 7.945960065_dp , 0.000002416_dp ,& 17 9.0_dp , 17 8.947332985_dp , 0.000005528_dp ,& 18 0.0_dp , 17 9.949890744_dp , 0.000075926_dp ,& 18 1.0_dp , 18 0.951908000_dp , 0.000135000_dp ,& 18 2.0_dp , 18 1.955158_dp , 0.000215_dp ,& 18 3.0_dp , 18 2.957363000_dp , 0.000086000_dp ,& 18 4.0_dp , 18 3.961030_dp , 0.000215_dp ,& 18 5.0_dp , 18 4.963542_dp , 0.000322_dp ,& 18 6.0_dp , 18 5.967450_dp , 0.000429_dp ,& 18 7.0_dp , 18 6.970188_dp , 0.000429_dp ,& 18 8.0_dp , 18 7.974428_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Hf_naw = & naw_type ( 38 , transpose ( reshape ([& 15 3.0_dp , 15 2.970692_dp , 0.000322_dp ,& 15 4.0_dp , 15 3.964863_dp , 0.000322_dp ,& 15 5.0_dp , 15 4.963167_dp , 0.000322_dp ,& 15 6.0_dp , 15 5.959399083_dp , 0.000160752_dp ,& 15 7.0_dp , 15 6.958288_dp , 0.000215_dp ,& 15 8.0_dp , 15 7.954801217_dp , 0.000018780_dp ,& 15 9.0_dp , 15 8.953995837_dp , 0.000018049_dp ,& 16 0.0_dp , 15 9.950682728_dp , 0.000010241_dp ,& 16 1.0_dp , 16 0.950277927_dp , 0.000025174_dp ,& 16 2.0_dp , 16 1.947215526_dp , 0.000009610_dp ,& 16 3.0_dp , 16 2.947107211_dp , 0.000027582_dp ,& 16 4.0_dp , 16 3.944370709_dp , 0.000016975_dp ,& 16 5.0_dp , 16 4.944567000_dp , 0.000030000_dp ,& 16 6.0_dp , 16 5.942180000_dp , 0.000030000_dp ,& 16 7.0_dp , 16 6.942600000_dp , 0.000030000_dp ,& 16 8.0_dp , 16 7.940568000_dp , 0.000030000_dp ,& 16 9.0_dp , 16 8.941259000_dp , 0.000030000_dp ,& 17 0.0_dp , 16 9.939609000_dp , 0.000030000_dp ,& 17 1.0_dp , 17 0.940492000_dp , 0.000031000_dp ,& 17 2.0_dp , 17 1.939449716_dp , 0.000026224_dp ,& 17 3.0_dp , 17 2.940513000_dp , 0.000030000_dp ,& 17 4.0_dp , 17 3.940048377_dp , 0.000002425_dp ,& 17 5.0_dp , 17 4.941511424_dp , 0.000002450_dp ,& 17 6.0_dp , 17 5.941409797_dp , 0.000001591_dp ,& 17 7.0_dp , 17 6.943230187_dp , 0.000001514_dp ,& 17 8.0_dp , 17 7.943708322_dp , 0.000001519_dp ,& 17 9.0_dp , 17 8.945825705_dp , 0.000001520_dp ,& 18 0.0_dp , 17 9.946559537_dp , 0.000001525_dp ,& 18 1.0_dp , 18 0.949110834_dp , 0.000001527_dp ,& 18 2.0_dp , 18 1.950563684_dp , 0.000006619_dp ,& 18 3.0_dp , 18 2.953533203_dp , 0.000032251_dp ,& 18 4.0_dp , 18 3.955448507_dp , 0.000042625_dp ,& 18 5.0_dp , 18 4.958862000_dp , 0.000069000_dp ,& 18 6.0_dp , 18 5.960897000_dp , 0.000055000_dp ,& 18 7.0_dp , 18 6.964573_dp , 0.000215_dp ,& 18 8.0_dp , 18 7.966903_dp , 0.000322_dp ,& 18 9.0_dp , 18 8.970853_dp , 0.000322_dp ,& 19 0.0_dp , 18 9.973376_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ta_naw = & naw_type ( 40 , transpose ( reshape ([& 15 5.0_dp , 15 4.974248_dp , 0.000322_dp ,& 15 6.0_dp , 15 5.972087_dp , 0.000322_dp ,& 15 7.0_dp , 15 6.968227445_dp , 0.000161087_dp ,& 15 8.0_dp , 15 7.966593_dp , 0.000215_dp ,& 15 9.0_dp , 15 8.963028046_dp , 0.000021137_dp ,& 16 0.0_dp , 15 9.961541678_dp , 0.000058310_dp ,& 16 1.0_dp , 16 0.958369489_dp , 0.000026174_dp ,& 16 2.0_dp , 16 1.957292907_dp , 0.000067979_dp ,& 16 3.0_dp , 16 2.954337194_dp , 0.000040860_dp ,& 16 4.0_dp , 16 3.953534000_dp , 0.000030000_dp ,& 16 5.0_dp , 16 4.950780287_dp , 0.000014571_dp ,& 16 6.0_dp , 16 5.950512000_dp , 0.000030000_dp ,& 16 7.0_dp , 16 6.948093000_dp , 0.000030000_dp ,& 16 8.0_dp , 16 7.948047000_dp , 0.000030000_dp ,& 16 9.0_dp , 16 8.946011000_dp , 0.000030000_dp ,& 17 0.0_dp , 16 9.946175000_dp , 0.000030000_dp ,& 17 1.0_dp , 17 0.944476000_dp , 0.000030000_dp ,& 17 2.0_dp , 17 1.944895000_dp , 0.000030000_dp ,& 17 3.0_dp , 17 2.943750000_dp , 0.000030000_dp ,& 17 4.0_dp , 17 3.944454000_dp , 0.000030000_dp ,& 17 5.0_dp , 17 4.943737000_dp , 0.000030000_dp ,& 17 6.0_dp , 17 5.944857000_dp , 0.000033000_dp ,& 17 7.0_dp , 17 6.944481940_dp , 0.000003558_dp ,& 17 8.0_dp , 17 7.945680_dp , 0.000056_dp ,& 17 9.0_dp , 17 8.945939050_dp , 0.000001574_dp ,& 18 0.0_dp , 17 9.947467589_dp , 0.000002219_dp ,& 18 1.0_dp , 18 0.947998528_dp , 0.000001692_dp ,& 18 2.0_dp , 18 1.950154612_dp , 0.000001693_dp ,& 18 3.0_dp , 18 2.951375380_dp , 0.000001707_dp ,& 18 4.0_dp , 18 3.954009958_dp , 0.000027923_dp ,& 18 5.0_dp , 18 4.955561317_dp , 0.000015202_dp ,& 18 6.0_dp , 18 5.958553036_dp , 0.000064425_dp ,& 18 7.0_dp , 18 6.960391000_dp , 0.000060000_dp ,& 18 8.0_dp , 18 7.963596_dp , 0.000215_dp ,& 18 9.0_dp , 18 8.965690_dp , 0.000215_dp ,& 19 0.0_dp , 18 9.969168_dp , 0.000215_dp ,& 19 1.0_dp , 19 0.971530_dp , 0.000322_dp ,& 19 2.0_dp , 19 1.975201_dp , 0.000429_dp ,& 19 3.0_dp , 19 2.977660_dp , 0.000429_dp ,& 19 4.0_dp , 19 3.981610_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: W_naw = & naw_type ( 41 , transpose ( reshape ([& 15 7.0_dp , 15 6.978862_dp , 0.000429_dp ,& 15 8.0_dp , 15 7.974565_dp , 0.000322_dp ,& 15 9.0_dp , 15 8.972696_dp , 0.000322_dp ,& 16 0.0_dp , 15 9.968513946_dp , 0.000160828_dp ,& 16 1.0_dp , 16 0.967249_dp , 0.000215_dp ,& 16 2.0_dp , 16 1.963500341_dp , 0.000018955_dp ,& 16 3.0_dp , 16 2.962524251_dp , 0.000062722_dp ,& 16 4.0_dp , 16 3.958952445_dp , 0.000010384_dp ,& 16 5.0_dp , 16 4.958280663_dp , 0.000027649_dp ,& 16 6.0_dp , 16 5.955031952_dp , 0.000010159_dp ,& 16 7.0_dp , 16 6.954811080_dp , 0.000020078_dp ,& 16 8.0_dp , 16 7.951805459_dp , 0.000014233_dp ,& 16 9.0_dp , 16 8.951778689_dp , 0.000016571_dp ,& 17 0.0_dp , 16 9.949231235_dp , 0.000014165_dp ,& 17 1.0_dp , 17 0.949451000_dp , 0.000030000_dp ,& 17 2.0_dp , 17 1.947292000_dp , 0.000030000_dp ,& 17 3.0_dp , 17 2.947689000_dp , 0.000030000_dp ,& 17 4.0_dp , 17 3.946079000_dp , 0.000030000_dp ,& 17 5.0_dp , 17 4.946717000_dp , 0.000030000_dp ,& 17 6.0_dp , 17 5.945634000_dp , 0.000030000_dp ,& 17 7.0_dp , 17 6.946643000_dp , 0.000030000_dp ,& 17 8.0_dp , 17 7.945885791_dp , 0.000016316_dp ,& 17 9.0_dp , 17 8.947079378_dp , 0.000015644_dp ,& 18 0.0_dp , 17 9.946713304_dp , 0.000001545_dp ,& 18 1.0_dp , 18 0.948218733_dp , 0.000001554_dp ,& 18 2.0_dp , 18 1.948205636_dp , 0.000000799_dp ,& 18 3.0_dp , 18 2.950224416_dp , 0.000000798_dp ,& 18 4.0_dp , 18 3.950933180_dp , 0.000000792_dp ,& 18 5.0_dp , 18 4.953421206_dp , 0.000000793_dp ,& 18 6.0_dp , 18 5.954365140_dp , 0.000001302_dp ,& 18 7.0_dp , 18 6.957161249_dp , 0.000001302_dp ,& 18 8.0_dp , 18 7.958488325_dp , 0.000003316_dp ,& 18 9.0_dp , 18 8.961557_dp , 0.000215_dp ,& 19 0.0_dp , 18 9.963103542_dp , 0.000037993_dp ,& 19 1.0_dp , 19 0.966531000_dp , 0.000045000_dp ,& 19 2.0_dp , 19 1.968202_dp , 0.000215_dp ,& 19 3.0_dp , 19 2.971884_dp , 0.000215_dp ,& 19 4.0_dp , 19 3.973795_dp , 0.000322_dp ,& 19 5.0_dp , 19 4.977735_dp , 0.000322_dp ,& 19 6.0_dp , 19 5.979882_dp , 0.000429_dp ,& 19 7.0_dp , 19 6.984036_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Re_naw = & naw_type ( 41 , transpose ( reshape ([& 15 9.0_dp , 15 8.984106_dp , 0.000327_dp ,& 16 0.0_dp , 15 9.981880_dp , 0.000322_dp ,& 16 1.0_dp , 16 0.977624313_dp , 0.000160930_dp ,& 16 2.0_dp , 16 1.975896_dp , 0.000215_dp ,& 16 3.0_dp , 16 2.972085434_dp , 0.000019897_dp ,& 16 4.0_dp , 16 3.970507122_dp , 0.000058566_dp ,& 16 5.0_dp , 16 4.967085831_dp , 0.000025328_dp ,& 16 6.0_dp , 16 5.965821216_dp , 0.000094731_dp ,& 16 7.0_dp , 16 6.962604_dp , 0.000043_dp ,& 16 8.0_dp , 16 7.961572607_dp , 0.000033087_dp ,& 16 9.0_dp , 16 8.958765979_dp , 0.000012204_dp ,& 17 0.0_dp , 16 9.958234844_dp , 0.000012267_dp ,& 17 1.0_dp , 17 0.955716000_dp , 0.000030000_dp ,& 17 2.0_dp , 17 1.955376165_dp , 0.000038183_dp ,& 17 3.0_dp , 17 2.953243000_dp , 0.000030000_dp ,& 17 4.0_dp , 17 3.953115000_dp , 0.000030000_dp ,& 17 5.0_dp , 17 4.951381000_dp , 0.000030000_dp ,& 17 6.0_dp , 17 5.951623000_dp , 0.000030000_dp ,& 17 7.0_dp , 17 6.950328000_dp , 0.000030000_dp ,& 17 8.0_dp , 17 7.950989000_dp , 0.000030000_dp ,& 17 9.0_dp , 17 8.949989686_dp , 0.000026450_dp ,& 18 0.0_dp , 17 9.950791568_dp , 0.000022965_dp ,& 18 1.0_dp , 18 0.950061507_dp , 0.000013471_dp ,& 18 2.0_dp , 18 1.951211560_dp , 0.000109483_dp ,& 18 3.0_dp , 18 2.950821306_dp , 0.000008625_dp ,& 18 4.0_dp , 18 3.952528073_dp , 0.000004590_dp ,& 18 5.0_dp , 18 4.952958320_dp , 0.000000879_dp ,& 18 6.0_dp , 18 5.954989172_dp , 0.000000880_dp ,& 18 7.0_dp , 18 6.955752217_dp , 0.000000791_dp ,& 18 8.0_dp , 18 7.958113658_dp , 0.000000792_dp ,& 18 9.0_dp , 18 8.959227764_dp , 0.000008793_dp ,& 19 0.0_dp , 18 9.961800064_dp , 0.000005227_dp ,& 19 1.0_dp , 19 0.963123322_dp , 0.000011019_dp ,& 19 2.0_dp , 19 1.966088000_dp , 0.000076000_dp ,& 19 3.0_dp , 19 2.967545000_dp , 0.000042000_dp ,& 19 4.0_dp , 19 3.970735_dp , 0.000215_dp ,& 19 5.0_dp , 19 4.972560_dp , 0.000322_dp ,& 19 6.0_dp , 19 5.975996_dp , 0.000322_dp ,& 19 7.0_dp , 19 6.978153_dp , 0.000322_dp ,& 19 8.0_dp , 19 7.981760_dp , 0.000429_dp ,& 19 9.0_dp , 19 8.984187_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Os_naw = & naw_type ( 43 , transpose ( reshape ([& 16 1.0_dp , 16 0.989054_dp , 0.000429_dp ,& 16 2.0_dp , 16 1.984434_dp , 0.000322_dp ,& 16 3.0_dp , 16 2.982462_dp , 0.000322_dp ,& 16 4.0_dp , 16 3.978073158_dp , 0.000160927_dp ,& 16 5.0_dp , 16 4.976654_dp , 0.000215_dp ,& 16 6.0_dp , 16 5.972698135_dp , 0.000019287_dp ,& 16 7.0_dp , 16 6.971552304_dp , 0.000086841_dp ,& 16 8.0_dp , 16 7.967799050_dp , 0.000010631_dp ,& 16 9.0_dp , 16 8.967017521_dp , 0.000027847_dp ,& 17 0.0_dp , 16 9.963579273_dp , 0.000010476_dp ,& 17 1.0_dp , 17 0.963180402_dp , 0.000019589_dp ,& 17 2.0_dp , 17 1.960017309_dp , 0.000013704_dp ,& 17 3.0_dp , 17 2.959808387_dp , 0.000016059_dp ,& 17 4.0_dp , 17 3.957063192_dp , 0.000011008_dp ,& 17 5.0_dp , 17 4.956945126_dp , 0.000012640_dp ,& 17 6.0_dp , 17 5.954770315_dp , 0.000011754_dp ,& 17 7.0_dp , 17 6.954957902_dp , 0.000015687_dp ,& 17 8.0_dp , 17 7.953253334_dp , 0.000014634_dp ,& 17 9.0_dp , 17 8.953815985_dp , 0.000016645_dp ,& 18 0.0_dp , 17 9.952381665_dp , 0.000016878_dp ,& 18 1.0_dp , 18 0.953247188_dp , 0.000027201_dp ,& 18 2.0_dp , 18 1.952110154_dp , 0.000023344_dp ,& 18 3.0_dp , 18 2.953125028_dp , 0.000053428_dp ,& 18 4.0_dp , 18 3.952492919_dp , 0.000000890_dp ,& 18 5.0_dp , 18 4.954045969_dp , 0.000000893_dp ,& 18 6.0_dp , 18 5.953837569_dp , 0.000000816_dp ,& 18 7.0_dp , 18 6.955749569_dp , 0.000000791_dp ,& 18 8.0_dp , 18 7.955837292_dp , 0.000000788_dp ,& 18 9.0_dp , 18 8.958145949_dp , 0.000000715_dp ,& 19 0.0_dp , 18 9.958445442_dp , 0.000000697_dp ,& 19 1.0_dp , 19 0.960928105_dp , 0.000000707_dp ,& 19 2.0_dp , 19 1.961478765_dp , 0.000002484_dp ,& 19 3.0_dp , 19 2.964149637_dp , 0.000002490_dp ,& 19 4.0_dp , 19 3.965179407_dp , 0.000002579_dp ,& 19 5.0_dp , 19 4.968318000_dp , 0.000060000_dp ,& 19 6.0_dp , 19 5.969643261_dp , 0.000043000_dp ,& 19 7.0_dp , 19 6.973076_dp , 0.000215_dp ,& 19 8.0_dp , 19 7.974664_dp , 0.000215_dp ,& 19 9.0_dp , 19 8.978239_dp , 0.000215_dp ,& 20 0.0_dp , 19 9.980086_dp , 0.000322_dp ,& 20 1.0_dp , 20 0.984069_dp , 0.000322_dp ,& 20 2.0_dp , 20 1.986548_dp , 0.000429_dp ,& 20 3.0_dp , 20 2.992195_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ir_naw = & naw_type ( 43 , transpose ( reshape ([& 16 3.0_dp , 16 2.994299_dp , 0.000429_dp ,& 16 4.0_dp , 16 3.991966_dp , 0.000339_dp ,& 16 5.0_dp , 16 4.987552_dp , 0.000170_dp ,& 16 6.0_dp , 16 5.985716_dp , 0.000215_dp ,& 16 7.0_dp , 16 6.981671973_dp , 0.000019694_dp ,& 16 8.0_dp , 16 7.979960978_dp , 0.000059277_dp ,& 16 9.0_dp , 16 8.976281743_dp , 0.000025020_dp ,& 17 0.0_dp , 16 9.975113_dp , 0.000109_dp ,& 17 1.0_dp , 17 0.971645520_dp , 0.000041295_dp ,& 17 2.0_dp , 17 1.970607035_dp , 0.000034785_dp ,& 17 3.0_dp , 17 2.967505477_dp , 0.000011316_dp ,& 17 4.0_dp , 17 3.966949939_dp , 0.000012046_dp ,& 17 5.0_dp , 17 4.964149519_dp , 0.000013295_dp ,& 17 6.0_dp , 17 5.963626261_dp , 0.000008679_dp ,& 17 7.0_dp , 17 6.961301500_dp , 0.000021213_dp ,& 17 8.0_dp , 17 7.961079395_dp , 0.000020204_dp ,& 17 9.0_dp , 17 8.959117594_dp , 0.000010489_dp ,& 18 0.0_dp , 17 9.959229446_dp , 0.000023302_dp ,& 18 1.0_dp , 18 0.957634691_dp , 0.000005631_dp ,& 18 2.0_dp , 18 1.958076296_dp , 0.000022509_dp ,& 18 3.0_dp , 18 2.956841231_dp , 0.000026486_dp ,& 18 4.0_dp , 18 3.957476000_dp , 0.000030000_dp ,& 18 5.0_dp , 18 4.956698000_dp , 0.000030000_dp ,& 18 6.0_dp , 18 5.957946754_dp , 0.000017740_dp ,& 18 7.0_dp , 18 6.957542000_dp , 0.000030000_dp ,& 18 8.0_dp , 18 7.958834999_dp , 0.000010116_dp ,& 18 9.0_dp , 18 8.958722602_dp , 0.000013500_dp ,& 19 0.0_dp , 18 9.960543374_dp , 0.000001470_dp ,& 19 1.0_dp , 19 0.960591455_dp , 0.000001406_dp ,& 19 2.0_dp , 19 1.962602414_dp , 0.000001410_dp ,& 19 3.0_dp , 19 2.962923753_dp , 0.000001425_dp ,& 19 4.0_dp , 19 3.965075703_dp , 0.000001429_dp ,& 19 5.0_dp , 19 4.965976898_dp , 0.000001431_dp ,& 19 6.0_dp , 19 5.968399669_dp , 0.000041239_dp ,& 19 7.0_dp , 19 6.969657217_dp , 0.000021588_dp ,& 19 8.0_dp , 19 7.972399_dp , 0.000215_dp ,& 19 9.0_dp , 19 8.973807097_dp , 0.000044073_dp ,& 20 0.0_dp , 19 9.976844_dp , 0.000210_dp ,& 20 1.0_dp , 20 0.978701_dp , 0.000215_dp ,& 20 2.0_dp , 20 1.982136_dp , 0.000322_dp ,& 20 3.0_dp , 20 2.984573_dp , 0.000429_dp ,& 20 4.0_dp , 20 3.989726_dp , 0.000429_dp ,& 20 5.0_dp , 20 4.993988_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pt_naw = & naw_type ( 44 , transpose ( reshape ([& 16 5.0_dp , 16 4.999658_dp , 0.000429_dp ,& 16 6.0_dp , 16 5.994866_dp , 0.000322_dp ,& 16 7.0_dp , 16 6.992750_dp , 0.000329_dp ,& 16 8.0_dp , 16 7.988180196_dp , 0.000160960_dp ,& 16 9.0_dp , 16 8.986619_dp , 0.000215_dp ,& 17 0.0_dp , 16 9.982502087_dp , 0.000019588_dp ,& 17 1.0_dp , 17 0.981248868_dp , 0.000086904_dp ,& 17 2.0_dp , 17 1.977341059_dp , 0.000011139_dp ,& 17 3.0_dp , 17 2.976449922_dp , 0.000068096_dp ,& 17 4.0_dp , 17 3.972820431_dp , 0.000011098_dp ,& 17 5.0_dp , 17 4.972400593_dp , 0.000019982_dp ,& 17 6.0_dp , 17 5.968938162_dp , 0.000013647_dp ,& 17 7.0_dp , 17 6.968469541_dp , 0.000016090_dp ,& 17 8.0_dp , 17 7.965649288_dp , 0.000010878_dp ,& 17 9.0_dp , 17 8.965358742_dp , 0.000008563_dp ,& 18 0.0_dp , 17 9.963038010_dp , 0.000010790_dp ,& 18 1.0_dp , 18 0.963089946_dp , 0.000014695_dp ,& 18 2.0_dp , 18 1.961171605_dp , 0.000014057_dp ,& 18 3.0_dp , 18 2.961595895_dp , 0.000015261_dp ,& 18 4.0_dp , 18 3.959921929_dp , 0.000015828_dp ,& 18 5.0_dp , 18 4.960613659_dp , 0.000027731_dp ,& 18 6.0_dp , 18 5.959350845_dp , 0.000023344_dp ,& 18 7.0_dp , 18 6.960616646_dp , 0.000025837_dp ,& 18 8.0_dp , 18 7.959397521_dp , 0.000005694_dp ,& 18 9.0_dp , 18 8.960848485_dp , 0.000010832_dp ,& 19 0.0_dp , 18 9.959949823_dp , 0.000000705_dp ,& 19 1.0_dp , 19 0.961676261_dp , 0.000004430_dp ,& 19 2.0_dp , 19 1.961042667_dp , 0.000002758_dp ,& 19 3.0_dp , 19 2.962984546_dp , 0.000001458_dp ,& 19 4.0_dp , 19 3.962683498_dp , 0.000000532_dp ,& 19 5.0_dp , 19 4.964794325_dp , 0.000000540_dp ,& 19 6.0_dp , 19 5.964954648_dp , 0.000000547_dp ,& 19 7.0_dp , 19 6.967343030_dp , 0.000000575_dp ,& 19 8.0_dp , 19 7.967896718_dp , 0.000002254_dp ,& 19 9.0_dp , 19 8.970597022_dp , 0.000002317_dp ,& 20 0.0_dp , 19 9.971444609_dp , 0.000021588_dp ,& 20 1.0_dp , 20 0.974513305_dp , 0.000053788_dp ,& 20 2.0_dp , 20 1.975639000_dp , 0.000027000_dp ,& 20 3.0_dp , 20 2.979055_dp , 0.000215_dp ,& 20 4.0_dp , 20 3.981084_dp , 0.000215_dp ,& 20 5.0_dp , 20 4.986237_dp , 0.000322_dp ,& 20 6.0_dp , 20 5.990080_dp , 0.000322_dp ,& 20 7.0_dp , 20 6.995556_dp , 0.000429_dp ,& 20 8.0_dp , 20 7.999463_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Au_naw = & naw_type ( 43 , transpose ( reshape ([& 16 8.0_dp , 16 8.002716_dp , 0.000429_dp ,& 16 9.0_dp , 16 8.998080_dp , 0.000320_dp ,& 17 0.0_dp , 16 9.996024_dp , 0.000216_dp ,& 17 1.0_dp , 17 0.991881533_dp , 0.000022236_dp ,& 17 2.0_dp , 17 1.989996704_dp , 0.000060287_dp ,& 17 3.0_dp , 17 2.986224263_dp , 0.000024458_dp ,& 17 4.0_dp , 17 3.984908_dp , 0.000109_dp ,& 17 5.0_dp , 17 4.981316375_dp , 0.000041399_dp ,& 17 6.0_dp , 17 5.980116925_dp , 0.000035625_dp ,& 17 7.0_dp , 17 6.976869701_dp , 0.000010700_dp ,& 17 8.0_dp , 17 7.976056714_dp , 0.000011000_dp ,& 17 9.0_dp , 17 8.973173666_dp , 0.000012555_dp ,& 18 0.0_dp , 17 9.972489738_dp , 0.000005108_dp ,& 18 1.0_dp , 18 0.970079102_dp , 0.000021445_dp ,& 18 2.0_dp , 18 1.969614433_dp , 0.000020143_dp ,& 18 3.0_dp , 18 2.967588106_dp , 0.000010116_dp ,& 18 4.0_dp , 18 3.967451523_dp , 0.000023912_dp ,& 18 5.0_dp , 18 4.965798871_dp , 0.000002800_dp ,& 18 6.0_dp , 18 5.965952703_dp , 0.000022509_dp ,& 18 7.0_dp , 18 6.964542147_dp , 0.000024153_dp ,& 18 8.0_dp , 18 7.965247966_dp , 0.000002900_dp ,& 18 9.0_dp , 18 8.963948286_dp , 0.000021558_dp ,& 19 0.0_dp , 18 9.964751746_dp , 0.000003700_dp ,& 19 1.0_dp , 19 0.963716452_dp , 0.000005288_dp ,& 19 2.0_dp , 19 1.964817615_dp , 0.000016991_dp ,& 19 3.0_dp , 19 2.964138442_dp , 0.000009311_dp ,& 19 4.0_dp , 19 3.965419051_dp , 0.000002273_dp ,& 19 5.0_dp , 19 4.965037823_dp , 0.000001201_dp ,& 19 6.0_dp , 19 5.966571213_dp , 0.000003179_dp ,& 19 7.0_dp , 19 6.966570103_dp , 0.000000581_dp ,& 19 8.0_dp , 19 7.968243714_dp , 0.000000579_dp ,& 19 9.0_dp , 19 8.968766573_dp , 0.000000581_dp ,& 20 0.0_dp , 19 9.970756558_dp , 0.000028681_dp ,& 20 1.0_dp , 20 0.971657678_dp , 0.000003455_dp ,& 20 2.0_dp , 20 1.973856000_dp , 0.000025000_dp ,& 20 3.0_dp , 20 2.975154492_dp , 0.000003309_dp ,& 20 4.0_dp , 20 3.978110_dp , 0.000215_dp ,& 20 5.0_dp , 20 4.980064_dp , 0.000215_dp ,& 20 6.0_dp , 20 5.984766_dp , 0.000322_dp ,& 20 7.0_dp , 20 6.988577_dp , 0.000322_dp ,& 20 8.0_dp , 20 7.993655_dp , 0.000322_dp ,& 20 9.0_dp , 20 8.997606_dp , 0.000429_dp ,& 21 0.0_dp , 21 0.002877_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Hg_naw = & naw_type ( 47 , transpose ( reshape ([& 17 0.0_dp , 17 0.005814_dp , 0.000324_dp ,& 17 1.0_dp , 17 1.003585_dp , 0.000329_dp ,& 17 2.0_dp , 17 1.998860581_dp , 0.000161098_dp ,& 17 3.0_dp , 17 2.997143_dp , 0.000215_dp ,& 17 4.0_dp , 17 3.992870575_dp , 0.000020623_dp ,& 17 5.0_dp , 17 4.991444451_dp , 0.000087047_dp ,& 17 6.0_dp , 17 5.987348670_dp , 0.000011936_dp ,& 17 7.0_dp , 17 6.986284590_dp , 0.000090952_dp ,& 17 8.0_dp , 17 7.982484756_dp , 0.000011548_dp ,& 17 9.0_dp , 17 8.981821759_dp , 0.000030188_dp ,& 18 0.0_dp , 17 9.978260180_dp , 0.000013574_dp ,& 18 1.0_dp , 18 0.977819368_dp , 0.000016513_dp ,& 18 2.0_dp , 18 1.974689173_dp , 0.000010510_dp ,& 18 3.0_dp , 18 2.974444652_dp , 0.000007604_dp ,& 18 4.0_dp , 18 3.971717709_dp , 0.000010235_dp ,& 18 5.0_dp , 18 4.971890696_dp , 0.000014641_dp ,& 18 6.0_dp , 18 5.969362061_dp , 0.000012507_dp ,& 18 7.0_dp , 18 6.969813540_dp , 0.000013810_dp ,& 18 8.0_dp , 18 7.967580738_dp , 0.000007285_dp ,& 18 9.0_dp , 18 8.968194776_dp , 0.000033873_dp ,& 19 0.0_dp , 18 9.966322250_dp , 0.000017076_dp ,& 19 1.0_dp , 19 0.967158301_dp , 0.000023918_dp ,& 19 2.0_dp , 19 1.965634263_dp , 0.000016679_dp ,& 19 3.0_dp , 19 2.966653395_dp , 0.000016645_dp ,& 19 4.0_dp , 19 3.965449108_dp , 0.000003100_dp ,& 19 5.0_dp , 19 4.966705809_dp , 0.000024843_dp ,& 19 6.0_dp , 19 5.965833445_dp , 0.000003163_dp ,& 19 7.0_dp , 19 6.967213715_dp , 0.000003442_dp ,& 19 8.0_dp , 19 7.966769177_dp , 0.000000491_dp ,& 19 9.0_dp , 19 8.968280994_dp , 0.000000564_dp ,& 20 0.0_dp , 19 9.968326941_dp , 0.000000568_dp ,& 20 1.0_dp , 20 0.970303054_dp , 0.000000763_dp ,& 20 2.0_dp , 20 1.970643604_dp , 0.000000757_dp ,& 20 3.0_dp , 20 2.972872396_dp , 0.000001750_dp ,& 20 4.0_dp , 20 3.973494037_dp , 0.000000534_dp ,& 20 5.0_dp , 20 4.976073151_dp , 0.000003923_dp ,& 20 6.0_dp , 20 5.977513837_dp , 0.000021943_dp ,& 20 7.0_dp , 20 6.982300000_dp , 0.000032000_dp ,& 20 8.0_dp , 20 7.985759000_dp , 0.000033000_dp ,& 20 9.0_dp , 20 8.990757_dp , 0.000161_dp ,& 21 0.0_dp , 20 9.994310_dp , 0.000215_dp ,& 21 1.0_dp , 21 0.999581_dp , 0.000215_dp ,& 21 2.0_dp , 21 2.003242_dp , 0.000322_dp ,& 21 3.0_dp , 21 3.008803_dp , 0.000322_dp ,& 21 4.0_dp , 21 4.012636_dp , 0.000429_dp ,& 21 5.0_dp , 21 5.018368_dp , 0.000429_dp ,& 21 6.0_dp , 21 6.022459_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Tl_naw = & naw_type ( 43 , transpose ( reshape ([& 17 6.0_dp , 17 6.000627731_dp , 0.000089166_dp ,& 17 7.0_dp , 17 6.996414252_dp , 0.000023218_dp ,& 17 8.0_dp , 17 7.995047_dp , 0.000110_dp ,& 17 9.0_dp , 17 8.991122185_dp , 0.000041495_dp ,& 18 0.0_dp , 17 9.989918950_dp , 0.000075058_dp ,& 18 1.0_dp , 18 0.986259978_dp , 0.000009771_dp ,& 18 2.0_dp , 18 1.985692649_dp , 0.000012856_dp ,& 18 3.0_dp , 18 2.982192843_dp , 0.000010017_dp ,& 18 4.0_dp , 18 3.981874973_dp , 0.000010747_dp ,& 18 5.0_dp , 18 4.978789189_dp , 0.000022194_dp ,& 18 6.0_dp , 18 5.978654787_dp , 0.000022276_dp ,& 18 7.0_dp , 18 6.975904740_dp , 0.000008640_dp ,& 18 8.0_dp , 18 7.976020886_dp , 0.000032103_dp ,& 18 9.0_dp , 18 8.973573525_dp , 0.000008983_dp ,& 19 0.0_dp , 18 9.973841771_dp , 0.000007784_dp ,& 19 1.0_dp , 19 0.971784093_dp , 0.000007889_dp ,& 19 2.0_dp , 19 1.972225000_dp , 0.000034000_dp ,& 19 3.0_dp , 19 2.970501994_dp , 0.000007200_dp ,& 19 4.0_dp , 19 3.971081408_dp , 0.000015000_dp ,& 19 5.0_dp , 19 4.969774052_dp , 0.000011944_dp ,& 19 6.0_dp , 19 5.970481189_dp , 0.000013000_dp ,& 19 7.0_dp , 19 6.969560492_dp , 0.000014573_dp ,& 19 8.0_dp , 19 7.970446669_dp , 0.000008100_dp ,& 19 9.0_dp , 19 8.969877000_dp , 0.000030000_dp ,& 20 0.0_dp , 19 9.970963608_dp , 0.000006182_dp ,& 20 1.0_dp , 20 0.970820235_dp , 0.000015228_dp ,& 20 2.0_dp , 20 1.972108874_dp , 0.000001972_dp ,& 20 3.0_dp , 20 2.972344098_dp , 0.000001257_dp ,& 20 4.0_dp , 20 3.973863420_dp , 0.000001238_dp ,& 20 5.0_dp , 20 4.974427318_dp , 0.000001330_dp ,& 20 6.0_dp , 20 5.976110108_dp , 0.000001380_dp ,& 20 7.0_dp , 20 6.977418605_dp , 0.000005839_dp ,& 20 8.0_dp , 20 7.982018006_dp , 0.000001989_dp ,& 20 9.0_dp , 20 8.985351713_dp , 0.000006559_dp ,& 21 0.0_dp , 20 9.990072942_dp , 0.000012456_dp ,& 21 1.0_dp , 21 0.993475000_dp , 0.000045000_dp ,& 21 2.0_dp , 21 1.998335_dp , 0.000215_dp ,& 21 3.0_dp , 21 3.001915000_dp , 0.000029000_dp ,& 21 4.0_dp , 21 4.006940_dp , 0.000210_dp ,& 21 5.0_dp , 21 5.010768_dp , 0.000322_dp ,& 21 6.0_dp , 21 6.015964_dp , 0.000322_dp ,& 21 7.0_dp , 21 7.020032_dp , 0.000429_dp ,& 21 8.0_dp , 21 8.025454_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pb_naw = & naw_type ( 43 , transpose ( reshape ([& 17 8.0_dp , 17 8.003836171_dp , 0.000024889_dp ,& 17 9.0_dp , 17 9.002202492_dp , 0.000087203_dp ,& 18 0.0_dp , 17 9.997916177_dp , 0.000013306_dp ,& 18 1.0_dp , 18 0.996660600_dp , 0.000091290_dp ,& 18 2.0_dp , 18 1.992673537_dp , 0.000012975_dp ,& 18 3.0_dp , 18 2.991862527_dp , 0.000031110_dp ,& 18 4.0_dp , 18 3.988135634_dp , 0.000013743_dp ,& 18 5.0_dp , 18 4.987610000_dp , 0.000017364_dp ,& 18 6.0_dp , 18 5.984239409_dp , 0.000011813_dp ,& 18 7.0_dp , 18 6.983910842_dp , 0.000005468_dp ,& 18 8.0_dp , 18 7.980879079_dp , 0.000010868_dp ,& 18 9.0_dp , 18 8.980843658_dp , 0.000015096_dp ,& 19 0.0_dp , 18 9.978081872_dp , 0.000013434_dp ,& 19 1.0_dp , 19 0.978216455_dp , 0.000007099_dp ,& 19 2.0_dp , 19 1.975789598_dp , 0.000006147_dp ,& 19 3.0_dp , 19 2.976135914_dp , 0.000011044_dp ,& 19 4.0_dp , 19 3.974011788_dp , 0.000018717_dp ,& 19 5.0_dp , 19 4.974516167_dp , 0.000005461_dp ,& 19 6.0_dp , 19 5.972787552_dp , 0.000008277_dp ,& 19 7.0_dp , 19 6.973434737_dp , 0.000005157_dp ,& 19 8.0_dp , 19 7.972015450_dp , 0.000009393_dp ,& 19 9.0_dp , 19 8.972912620_dp , 0.000007322_dp ,& 20 0.0_dp , 19 9.971818546_dp , 0.000010744_dp ,& 20 1.0_dp , 20 0.972870431_dp , 0.000014758_dp ,& 20 2.0_dp , 20 1.972151613_dp , 0.000004075_dp ,& 20 3.0_dp , 20 2.973390617_dp , 0.000007036_dp ,& 20 4.0_dp , 20 3.973043506_dp , 0.000001231_dp ,& 20 5.0_dp , 20 4.974481682_dp , 0.000001228_dp ,& 20 6.0_dp , 20 5.974465210_dp , 0.000001228_dp ,& 20 7.0_dp , 20 6.975896821_dp , 0.000001231_dp ,& 20 8.0_dp , 20 7.976652005_dp , 0.000001232_dp ,& 20 9.0_dp , 20 8.981089978_dp , 0.000001875_dp ,& 21 0.0_dp , 20 9.984188381_dp , 0.000001554_dp ,& 21 1.0_dp , 21 0.988735288_dp , 0.000002426_dp ,& 21 2.0_dp , 21 1.991895891_dp , 0.000001975_dp ,& 21 3.0_dp , 21 2.996560796_dp , 0.000007465_dp ,& 21 4.0_dp , 21 3.999803521_dp , 0.000002114_dp ,& 21 5.0_dp , 21 5.004661591_dp , 0.000056560_dp ,& 21 6.0_dp , 21 6.008062_dp , 0.000215_dp ,& 21 7.0_dp , 21 7.013162_dp , 0.000322_dp ,& 21 8.0_dp , 21 8.016779_dp , 0.000322_dp ,& 21 9.0_dp , 21 9.022136_dp , 0.000429_dp ,& 22 0.0_dp , 22 0.025905_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Bi_naw = & naw_type ( 41 , transpose ( reshape ([& 18 4.0_dp , 18 4.001347_dp , 0.000131_dp ,& 18 5.0_dp , 18 4.997600_dp , 0.000087_dp ,& 18 6.0_dp , 18 5.996623169_dp , 0.000018200_dp ,& 18 7.0_dp , 18 6.993147272_dp , 0.000010740_dp ,& 18 8.0_dp , 18 7.992276064_dp , 0.000012001_dp ,& 18 9.0_dp , 18 8.989195139_dp , 0.000022384_dp ,& 19 0.0_dp , 18 9.988624828_dp , 0.000022515_dp ,& 19 1.0_dp , 19 0.985786972_dp , 0.000008037_dp ,& 19 2.0_dp , 19 1.985470077_dp , 0.000032326_dp ,& 19 3.0_dp , 19 2.982947220_dp , 0.000008132_dp ,& 19 4.0_dp , 19 3.982798581_dp , 0.000005638_dp ,& 19 5.0_dp , 19 4.980648759_dp , 0.000005675_dp ,& 19 6.0_dp , 19 5.980666509_dp , 0.000026224_dp ,& 19 7.0_dp , 19 6.978864927_dp , 0.000008946_dp ,& 19 8.0_dp , 19 7.979201316_dp , 0.000029598_dp ,& 19 9.0_dp , 19 8.977672841_dp , 0.000011395_dp ,& 20 0.0_dp , 19 9.978131290_dp , 0.000024370_dp ,& 20 1.0_dp , 20 0.976995017_dp , 0.000013072_dp ,& 20 2.0_dp , 20 1.977723042_dp , 0.000015032_dp ,& 20 3.0_dp , 20 2.976892077_dp , 0.000013717_dp ,& 20 4.0_dp , 20 3.977835687_dp , 0.000009854_dp ,& 20 5.0_dp , 20 4.977385182_dp , 0.000005161_dp ,& 20 6.0_dp , 20 5.978498843_dp , 0.000008193_dp ,& 20 7.0_dp , 20 6.978470551_dp , 0.000002573_dp ,& 20 8.0_dp , 20 7.979742060_dp , 0.000002474_dp ,& 20 9.0_dp , 20 8.980398599_dp , 0.000001465_dp ,& 21 0.0_dp , 20 9.984120237_dp , 0.000001463_dp ,& 21 1.0_dp , 21 0.987268715_dp , 0.000005842_dp ,& 21 2.0_dp , 21 1.991285030_dp , 0.000001989_dp ,& 21 3.0_dp , 21 2.994383570_dp , 0.000005455_dp ,& 21 4.0_dp , 21 3.998710909_dp , 0.000012033_dp ,& 21 5.0_dp , 21 5.001749095_dp , 0.000006037_dp ,& 21 6.0_dp , 21 6.006305985_dp , 0.000012000_dp ,& 21 7.0_dp , 21 7.009372000_dp , 0.000019000_dp ,& 21 8.0_dp , 21 8.014188000_dp , 0.000029000_dp ,& 21 9.0_dp , 21 9.017520_dp , 0.000215_dp ,& 22 0.0_dp , 22 0.022501_dp , 0.000322_dp ,& 22 1.0_dp , 22 1.025980_dp , 0.000322_dp ,& 22 2.0_dp , 22 2.031079_dp , 0.000322_dp ,& 22 3.0_dp , 22 3.034611_dp , 0.000429_dp ,& 22 4.0_dp , 22 4.039796_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Po_naw = & naw_type ( 42 , transpose ( reshape ([& 18 6.0_dp , 18 6.004403174_dp , 0.000019622_dp ,& 18 7.0_dp , 18 7.003031482_dp , 0.000035030_dp ,& 18 8.0_dp , 18 7.999415586_dp , 0.000021438_dp ,& 18 9.0_dp , 18 8.998473425_dp , 0.000023681_dp ,& 19 0.0_dp , 18 9.995101731_dp , 0.000014131_dp ,& 19 1.0_dp , 19 0.994558494_dp , 0.000007624_dp ,& 19 2.0_dp , 19 1.991340274_dp , 0.000011416_dp ,& 19 3.0_dp , 19 2.991062421_dp , 0.000015599_dp ,& 19 4.0_dp , 19 3.988186058_dp , 0.000013860_dp ,& 19 5.0_dp , 19 4.988065781_dp , 0.000006486_dp ,& 19 6.0_dp , 19 5.985540722_dp , 0.000005778_dp ,& 19 7.0_dp , 19 6.985621939_dp , 0.000010585_dp ,& 19 8.0_dp , 19 7.983388753_dp , 0.000018705_dp ,& 19 9.0_dp , 19 8.983640445_dp , 0.000005828_dp ,& 20 0.0_dp , 19 9.981812355_dp , 0.000008136_dp ,& 20 1.0_dp , 20 0.982263799_dp , 0.000005305_dp ,& 20 2.0_dp , 20 1.980738934_dp , 0.000009307_dp ,& 20 3.0_dp , 20 2.981416072_dp , 0.000004981_dp ,& 20 4.0_dp , 20 3.980310078_dp , 0.000010811_dp ,& 20 5.0_dp , 20 4.981190006_dp , 0.000010798_dp ,& 20 6.0_dp , 20 5.980473662_dp , 0.000004306_dp ,& 20 7.0_dp , 20 6.981593334_dp , 0.000007148_dp ,& 20 8.0_dp , 20 7.981246035_dp , 0.000001795_dp ,& 20 9.0_dp , 20 8.982430361_dp , 0.000001909_dp ,& 21 0.0_dp , 20 9.982873686_dp , 0.000001230_dp ,& 21 1.0_dp , 21 0.986653171_dp , 0.000001347_dp ,& 21 2.0_dp , 21 1.988867982_dp , 0.000001237_dp ,& 21 3.0_dp , 21 2.992857154_dp , 0.000003277_dp ,& 21 4.0_dp , 21 3.995201287_dp , 0.000001556_dp ,& 21 5.0_dp , 21 4.999418385_dp , 0.000002276_dp ,& 21 6.0_dp , 21 6.001913416_dp , 0.000001948_dp ,& 21 7.0_dp , 21 7.006316145_dp , 0.000007025_dp ,& 21 8.0_dp , 21 8.008971234_dp , 0.000002112_dp ,& 21 9.0_dp , 21 9.013614000_dp , 0.000017000_dp ,& 22 0.0_dp , 22 0.016386000_dp , 0.000019000_dp ,& 22 1.0_dp , 22 1.021228000_dp , 0.000021000_dp ,& 22 2.0_dp , 22 2.024140000_dp , 0.000043000_dp ,& 22 3.0_dp , 22 3.029070_dp , 0.000210_dp ,& 22 4.0_dp , 22 4.032110_dp , 0.000210_dp ,& 22 5.0_dp , 22 5.037123_dp , 0.000322_dp ,& 22 6.0_dp , 22 6.040310_dp , 0.000430_dp ,& 22 7.0_dp , 22 7.045390_dp , 0.000430_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: At_naw = & naw_type ( 39 , transpose ( reshape ([& 19 1.0_dp , 19 1.004148081_dp , 0.000017287_dp ,& 19 2.0_dp , 19 2.003140912_dp , 0.000029922_dp ,& 19 3.0_dp , 19 2.999927725_dp , 0.000023222_dp ,& 19 4.0_dp , 19 3.999230816_dp , 0.000025230_dp ,& 19 5.0_dp , 19 4.996274480_dp , 0.000010276_dp ,& 19 6.0_dp , 19 5.995799034_dp , 0.000032458_dp ,& 19 7.0_dp , 19 6.993177353_dp , 0.000008570_dp ,& 19 8.0_dp , 19 7.992797864_dp , 0.000005265_dp ,& 19 9.0_dp , 19 8.990527715_dp , 0.000005780_dp ,& 20 0.0_dp , 19 9.990351099_dp , 0.000026264_dp ,& 20 1.0_dp , 20 0.988417058_dp , 0.000008786_dp ,& 20 2.0_dp , 20 1.988625686_dp , 0.000029631_dp ,& 20 3.0_dp , 20 2.986942904_dp , 0.000011404_dp ,& 20 4.0_dp , 20 3.987251393_dp , 0.000024335_dp ,& 20 5.0_dp , 20 4.986060546_dp , 0.000012941_dp ,& 20 6.0_dp , 20 5.986645768_dp , 0.000014523_dp ,& 20 7.0_dp , 20 6.985799715_dp , 0.000013318_dp ,& 20 8.0_dp , 20 7.986613011_dp , 0.000009577_dp ,& 20 9.0_dp , 20 8.986168701_dp , 0.000005094_dp ,& 21 0.0_dp , 20 9.987147423_dp , 0.000008261_dp ,& 21 1.0_dp , 21 0.987496226_dp , 0.000002929_dp ,& 21 2.0_dp , 21 1.990737301_dp , 0.000002559_dp ,& 21 3.0_dp , 21 2.992936593_dp , 0.000005258_dp ,& 21 4.0_dp , 21 3.996372331_dp , 0.000004274_dp ,& 21 5.0_dp , 21 4.998651002_dp , 0.000007116_dp ,& 21 6.0_dp , 21 6.002422643_dp , 0.000003837_dp ,& 21 7.0_dp , 21 7.004717794_dp , 0.000005368_dp ,& 21 8.0_dp , 21 8.008695941_dp , 0.000012349_dp ,& 21 9.0_dp , 21 9.011160587_dp , 0.000003474_dp ,& 22 0.0_dp , 22 0.015433000_dp , 0.000015000_dp ,& 22 1.0_dp , 22 1.018017000_dp , 0.000015000_dp ,& 22 2.0_dp , 22 2.022494000_dp , 0.000017000_dp ,& 22 3.0_dp , 22 3.025151000_dp , 0.000015000_dp ,& 22 4.0_dp , 22 4.029749000_dp , 0.000024000_dp ,& 22 5.0_dp , 22 5.032528_dp , 0.000322_dp ,& 22 6.0_dp , 22 6.037209_dp , 0.000322_dp ,& 22 7.0_dp , 22 7.040183_dp , 0.000322_dp ,& 22 8.0_dp , 22 8.044960_dp , 0.000429_dp ,& 22 9.0_dp , 22 9.048191_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Rn_naw = & naw_type ( 39 , transpose ( reshape ([& 19 3.0_dp , 19 3.009707973_dp , 0.000026958_dp ,& 19 4.0_dp , 19 4.006145636_dp , 0.000017884_dp ,& 19 5.0_dp , 19 5.005421703_dp , 0.000055487_dp ,& 19 6.0_dp , 19 6.002120431_dp , 0.000015087_dp ,& 19 7.0_dp , 19 7.001621446_dp , 0.000017383_dp ,& 19 8.0_dp , 19 7.998679197_dp , 0.000014406_dp ,& 19 9.0_dp , 19 8.998325436_dp , 0.000007833_dp ,& 20 0.0_dp , 19 9.995705335_dp , 0.000006217_dp ,& 20 1.0_dp , 20 0.995590511_dp , 0.000010865_dp ,& 20 2.0_dp , 20 1.993263982_dp , 0.000018808_dp ,& 20 3.0_dp , 20 2.993361155_dp , 0.000006242_dp ,& 20 4.0_dp , 20 3.991443729_dp , 0.000007991_dp ,& 20 5.0_dp , 20 4.991723228_dp , 0.000005453_dp ,& 20 6.0_dp , 20 5.990195409_dp , 0.000009223_dp ,& 20 7.0_dp , 20 6.990730224_dp , 0.000005090_dp ,& 20 8.0_dp , 20 7.989634513_dp , 0.000010910_dp ,& 20 9.0_dp , 20 8.990401389_dp , 0.000010692_dp ,& 21 0.0_dp , 20 9.989688862_dp , 0.000004892_dp ,& 21 1.0_dp , 21 0.990600767_dp , 0.000007314_dp ,& 21 2.0_dp , 21 1.990703946_dp , 0.000003338_dp ,& 21 3.0_dp , 21 2.993885147_dp , 0.000003618_dp ,& 21 4.0_dp , 21 3.995362650_dp , 0.000009862_dp ,& 21 5.0_dp , 21 4.998745037_dp , 0.000006538_dp ,& 21 6.0_dp , 21 6.000271942_dp , 0.000006192_dp ,& 21 7.0_dp , 21 7.003927632_dp , 0.000004506_dp ,& 21 8.0_dp , 21 8.005601123_dp , 0.000002486_dp ,& 21 9.0_dp , 21 9.009478683_dp , 0.000002254_dp ,& 22 0.0_dp , 22 0.011392443_dp , 0.000001947_dp ,& 22 1.0_dp , 22 1.015535637_dp , 0.000006134_dp ,& 22 2.0_dp , 22 2.017576017_dp , 0.000002086_dp ,& 22 3.0_dp , 22 3.021889283_dp , 0.000008397_dp ,& 22 4.0_dp , 22 4.024095803_dp , 0.000010536_dp ,& 22 5.0_dp , 22 5.028485572_dp , 0.000011958_dp ,& 22 6.0_dp , 22 6.030861380_dp , 0.000011247_dp ,& 22 7.0_dp , 22 7.035304393_dp , 0.000015127_dp ,& 22 8.0_dp , 22 8.037835415_dp , 0.000018977_dp ,& 22 9.0_dp , 22 9.042257272_dp , 0.000014000_dp ,& 23 0.0_dp , 23 0.045271_dp , 0.000215_dp ,& 23 1.0_dp , 23 1.049973_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Fr_naw = & naw_type ( 37 , transpose ( reshape ([& 19 7.0_dp , 19 7.011008086_dp , 0.000060584_dp ,& 19 8.0_dp , 19 8.010282081_dp , 0.000033419_dp ,& 19 9.0_dp , 19 9.007269384_dp , 0.000014734_dp ,& 20 0.0_dp , 20 0.006584666_dp , 0.000032769_dp ,& 20 1.0_dp , 20 1.003852491_dp , 0.000009747_dp ,& 20 2.0_dp , 20 2.003329637_dp , 0.000006476_dp ,& 20 3.0_dp , 20 3.000940867_dp , 0.000006689_dp ,& 20 4.0_dp , 20 4.000651972_dp , 0.000026389_dp ,& 20 5.0_dp , 20 4.998593854_dp , 0.000008399_dp ,& 20 6.0_dp , 20 5.998661441_dp , 0.000029856_dp ,& 20 7.0_dp , 20 6.996941450_dp , 0.000018847_dp ,& 20 8.0_dp , 20 7.997139082_dp , 0.000012514_dp ,& 20 9.0_dp , 20 8.995939701_dp , 0.000012349_dp ,& 21 0.0_dp , 20 9.996410596_dp , 0.000014407_dp ,& 21 1.0_dp , 21 0.995555189_dp , 0.000012872_dp ,& 21 2.0_dp , 21 1.996225420_dp , 0.000009419_dp ,& 21 3.0_dp , 21 2.996184410_dp , 0.000005053_dp ,& 21 4.0_dp , 21 3.998971193_dp , 0.000009145_dp ,& 21 5.0_dp , 21 5.000341534_dp , 0.000007585_dp ,& 21 6.0_dp , 21 6.003189523_dp , 0.000004480_dp ,& 21 7.0_dp , 21 7.004631980_dp , 0.000007011_dp ,& 21 8.0_dp , 21 8.007578620_dp , 0.000004546_dp ,& 21 9.0_dp , 21 9.009250664_dp , 0.000007380_dp ,& 22 0.0_dp , 22 0.012326789_dp , 0.000004324_dp ,& 22 1.0_dp , 22 1.014253714_dp , 0.000005245_dp ,& 22 2.0_dp , 22 2.017582615_dp , 0.000008000_dp ,& 22 3.0_dp , 22 3.019734241_dp , 0.000002073_dp ,& 22 4.0_dp , 22 4.023348096_dp , 0.000012000_dp ,& 22 5.0_dp , 22 5.025572466_dp , 0.000012847_dp ,& 22 6.0_dp , 22 6.029544512_dp , 0.000006688_dp ,& 22 7.0_dp , 22 7.031865413_dp , 0.000006332_dp ,& 22 8.0_dp , 22 8.035839433_dp , 0.000007226_dp ,& 22 9.0_dp , 22 9.038291443_dp , 0.000005368_dp ,& 23 0.0_dp , 23 0.042390787_dp , 0.000007022_dp ,& 23 1.0_dp , 23 1.045175353_dp , 0.000008300_dp ,& 23 2.0_dp , 23 2.049461219_dp , 0.000015000_dp ,& 23 3.0_dp , 23 3.052517833_dp , 0.000021000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ra_naw = & naw_type ( 35 , transpose ( reshape ([& 20 1.0_dp , 20 1.012814699_dp , 0.000021794_dp ,& 20 2.0_dp , 20 2.009742305_dp , 0.000016122_dp ,& 20 3.0_dp , 20 3.009233907_dp , 0.000010400_dp ,& 20 4.0_dp , 20 4.006506855_dp , 0.000009580_dp ,& 20 5.0_dp , 20 5.006230692_dp , 0.000024446_dp ,& 20 6.0_dp , 20 6.003827842_dp , 0.000019332_dp ,& 20 7.0_dp , 20 7.003772420_dp , 0.000062572_dp ,& 20 8.0_dp , 20 8.001855012_dp , 0.000009686_dp ,& 20 9.0_dp , 20 9.001994902_dp , 0.000006169_dp ,& 21 0.0_dp , 21 0.000475406_dp , 0.000009868_dp ,& 21 1.0_dp , 21 1.000893049_dp , 0.000005331_dp ,& 21 2.0_dp , 21 1.999786619_dp , 0.000011007_dp ,& 21 3.0_dp , 21 3.000370971_dp , 0.000010540_dp ,& 21 4.0_dp , 21 4.000099560_dp , 0.000005636_dp ,& 21 5.0_dp , 21 5.002718208_dp , 0.000007730_dp ,& 21 6.0_dp , 21 6.003533534_dp , 0.000008592_dp ,& 21 7.0_dp , 21 7.006322676_dp , 0.000007564_dp ,& 21 8.0_dp , 21 8.007134297_dp , 0.000010528_dp ,& 21 9.0_dp , 21 9.010084715_dp , 0.000007315_dp ,& 22 0.0_dp , 22 0.011027542_dp , 0.000008153_dp ,& 22 1.0_dp , 22 1.013917293_dp , 0.000004970_dp ,& 22 2.0_dp , 22 2.015373371_dp , 0.000004781_dp ,& 22 3.0_dp , 22 3.018500648_dp , 0.000002243_dp ,& 22 4.0_dp , 22 4.020210361_dp , 0.000001944_dp ,& 22 5.0_dp , 22 5.023610502_dp , 0.000002786_dp ,& 22 6.0_dp , 22 6.025408186_dp , 0.000002068_dp ,& 22 7.0_dp , 22 7.029176205_dp , 0.000002089_dp ,& 22 8.0_dp , 22 8.031068574_dp , 0.000002141_dp ,& 22 9.0_dp , 22 9.034956703_dp , 0.000016576_dp ,& 23 0.0_dp , 23 0.037054776_dp , 0.000011053_dp ,& 23 1.0_dp , 23 1.041027085_dp , 0.000012206_dp ,& 23 2.0_dp , 23 2.043475267_dp , 0.000009823_dp ,& 23 3.0_dp , 23 3.047594570_dp , 0.000009235_dp ,& 23 4.0_dp , 23 4.050382100_dp , 0.000009000_dp ,& 23 5.0_dp , 23 5.054890_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ac_naw = & naw_type ( 33 , transpose ( reshape ([& 20 5.0_dp , 20 5.015144152_dp , 0.000063682_dp ,& 20 6.0_dp , 20 6.014476477_dp , 0.000069874_dp ,& 20 7.0_dp , 20 7.011965967_dp , 0.000060384_dp ,& 20 8.0_dp , 20 8.011552251_dp , 0.000069225_dp ,& 20 9.0_dp , 20 9.009495375_dp , 0.000059953_dp ,& 21 0.0_dp , 21 0.009408625_dp , 0.000066782_dp ,& 21 1.0_dp , 21 1.007668846_dp , 0.000057706_dp ,& 21 2.0_dp , 21 2.007836442_dp , 0.000023492_dp ,& 21 3.0_dp , 21 3.006592665_dp , 0.000012522_dp ,& 21 4.0_dp , 21 4.006906400_dp , 0.000014547_dp ,& 21 5.0_dp , 21 5.006474061_dp , 0.000013318_dp ,& 21 6.0_dp , 21 6.008749101_dp , 0.000009908_dp ,& 21 7.0_dp , 21 7.009342325_dp , 0.000012048_dp ,& 21 8.0_dp , 21 8.011648860_dp , 0.000061853_dp ,& 21 9.0_dp , 21 9.012420425_dp , 0.000055263_dp ,& 22 0.0_dp , 22 0.014754527_dp , 0.000006579_dp ,& 22 1.0_dp , 22 1.015599721_dp , 0.000061086_dp ,& 22 2.0_dp , 22 2.017844232_dp , 0.000005044_dp ,& 22 3.0_dp , 22 3.019135982_dp , 0.000007457_dp ,& 22 4.0_dp , 22 4.021722249_dp , 0.000004389_dp ,& 22 5.0_dp , 22 5.023228601_dp , 0.000005107_dp ,& 22 6.0_dp , 22 6.026096999_dp , 0.000003327_dp ,& 22 7.0_dp , 22 7.027750594_dp , 0.000002068_dp ,& 22 8.0_dp , 22 8.031019685_dp , 0.000002247_dp ,& 22 9.0_dp , 22 9.032947000_dp , 0.000013000_dp ,& 23 0.0_dp , 23 0.036327000_dp , 0.000017000_dp ,& 23 1.0_dp , 23 1.038393000_dp , 0.000014000_dp ,& 23 2.0_dp , 23 2.042034000_dp , 0.000014000_dp ,& 23 3.0_dp , 23 3.044346000_dp , 0.000014000_dp ,& 23 4.0_dp , 23 4.048139000_dp , 0.000015000_dp ,& 23 5.0_dp , 23 5.050840000_dp , 0.000015000_dp ,& 23 6.0_dp , 23 6.054988000_dp , 0.000041000_dp ,& 23 7.0_dp , 23 7.057993_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Th_naw = & naw_type ( 32 , transpose ( reshape ([& 20 8.0_dp , 20 8.017915348_dp , 0.000034208_dp ,& 20 9.0_dp , 20 9.017601_dp , 0.000111_dp ,& 21 0.0_dp , 21 0.015093515_dp , 0.000020299_dp ,& 21 1.0_dp , 21 1.014896923_dp , 0.000092399_dp ,& 21 2.0_dp , 21 2.013001570_dp , 0.000010852_dp ,& 21 3.0_dp , 21 3.013011470_dp , 0.000009895_dp ,& 21 4.0_dp , 21 4.011481480_dp , 0.000011445_dp ,& 21 5.0_dp , 21 5.011724640_dp , 0.000006800_dp ,& 21 6.0_dp , 21 6.011055933_dp , 0.000011920_dp ,& 21 7.0_dp , 21 7.013103443_dp , 0.000011394_dp ,& 21 8.0_dp , 21 8.013276248_dp , 0.000011289_dp ,& 21 9.0_dp , 21 9.015526432_dp , 0.000060611_dp ,& 22 0.0_dp , 22 0.015769866_dp , 0.000014693_dp ,& 22 1.0_dp , 22 1.018185757_dp , 0.000008582_dp ,& 22 2.0_dp , 22 2.018468220_dp , 0.000010966_dp ,& 22 3.0_dp , 22 3.020811083_dp , 0.000008527_dp ,& 22 4.0_dp , 22 4.021466137_dp , 0.000010310_dp ,& 22 5.0_dp , 22 5.023950975_dp , 0.000005467_dp ,& 22 6.0_dp , 22 6.024903699_dp , 0.000004810_dp ,& 22 7.0_dp , 22 7.027702546_dp , 0.000002241_dp ,& 22 8.0_dp , 22 8.028739741_dp , 0.000001938_dp ,& 22 9.0_dp , 22 9.031761357_dp , 0.000002581_dp ,& 23 0.0_dp , 23 0.033132267_dp , 0.000001297_dp ,& 23 1.0_dp , 23 1.036302764_dp , 0.000001306_dp ,& 23 2.0_dp , 23 2.038053606_dp , 0.000001525_dp ,& 23 3.0_dp , 23 3.041580126_dp , 0.000001528_dp ,& 23 4.0_dp , 23 4.043599801_dp , 0.000002779_dp ,& 23 5.0_dp , 23 5.047255000_dp , 0.000014000_dp ,& 23 6.0_dp , 23 6.049657000_dp , 0.000015000_dp ,& 23 7.0_dp , 23 7.053629000_dp , 0.000017000_dp ,& 23 8.0_dp , 23 8.056388_dp , 0.000304_dp ,& 23 9.0_dp , 23 9.060655_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pa_naw = & naw_type ( 31 , transpose ( reshape ([& 21 1.0_dp , 21 1.023674036_dp , 0.000074581_dp ,& 21 2.0_dp , 21 2.023184819_dp , 0.000094047_dp ,& 21 3.0_dp , 21 3.021099644_dp , 0.000061374_dp ,& 21 4.0_dp , 21 4.020891055_dp , 0.000087180_dp ,& 21 5.0_dp , 21 5.019113955_dp , 0.000088513_dp ,& 21 6.0_dp , 21 6.019134633_dp , 0.000026459_dp ,& 21 7.0_dp , 21 7.018309024_dp , 0.000013417_dp ,& 21 8.0_dp , 21 8.020021133_dp , 0.000019158_dp ,& 21 9.0_dp , 21 9.019949909_dp , 0.000074831_dp ,& 22 0.0_dp , 22 0.021769753_dp , 0.000015732_dp ,& 22 1.0_dp , 22 1.021873393_dp , 0.000063746_dp ,& 22 2.0_dp , 22 2.023687064_dp , 0.000092975_dp ,& 22 3.0_dp , 22 3.023980414_dp , 0.000081193_dp ,& 22 4.0_dp , 22 4.025617286_dp , 0.000008145_dp ,& 22 5.0_dp , 22 5.026147927_dp , 0.000087887_dp ,& 22 6.0_dp , 22 6.027948217_dp , 0.000012037_dp ,& 22 7.0_dp , 22 7.028803586_dp , 0.000007797_dp ,& 22 8.0_dp , 22 8.031050758_dp , 0.000004659_dp ,& 22 9.0_dp , 22 9.032095585_dp , 0.000003521_dp ,& 23 0.0_dp , 23 0.034539717_dp , 0.000003261_dp ,& 23 1.0_dp , 23 1.035882500_dp , 0.000001901_dp ,& 23 2.0_dp , 23 2.038590205_dp , 0.000008206_dp ,& 23 3.0_dp , 23 3.040246535_dp , 0.000001433_dp ,& 23 4.0_dp , 23 4.043305555_dp , 0.000004395_dp ,& 23 5.0_dp , 23 5.045399000_dp , 0.000015000_dp ,& 23 6.0_dp , 23 6.048668000_dp , 0.000015000_dp ,& 23 7.0_dp , 23 7.051023000_dp , 0.000014000_dp ,& 23 8.0_dp , 23 8.054637000_dp , 0.000017000_dp ,& 23 9.0_dp , 23 9.057260_dp , 0.000210_dp ,& 24 0.0_dp , 24 0.061203_dp , 0.000215_dp ,& 24 1.0_dp , 24 1.064134_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: U_naw = & naw_type ( 29 , transpose ( reshape ([& 21 5.0_dp , 21 5.026719774_dp , 0.000111794_dp ,& 21 6.0_dp , 21 6.024762829_dp , 0.000030158_dp ,& 21 7.0_dp , 21 7.024660_dp , 0.000086_dp ,& 21 8.0_dp , 21 8.023504877_dp , 0.000014722_dp ,& 21 9.0_dp , 21 9.025009233_dp , 0.000014319_dp ,& 22 0.0_dp , 22 0.024706_dp , 0.000108_dp ,& 22 1.0_dp , 22 1.026323297_dp , 0.000077440_dp ,& 22 2.0_dp , 22 2.026057957_dp , 0.000055817_dp ,& 22 3.0_dp , 22 3.027960754_dp , 0.000063396_dp ,& 22 4.0_dp , 22 4.027635913_dp , 0.000016383_dp ,& 22 5.0_dp , 22 5.029385050_dp , 0.000010664_dp ,& 22 6.0_dp , 22 6.029338669_dp , 0.000011884_dp ,& 22 7.0_dp , 22 7.031181124_dp , 0.000009136_dp ,& 22 8.0_dp , 22 8.031368959_dp , 0.000014465_dp ,& 22 9.0_dp , 22 9.033505976_dp , 0.000006374_dp ,& 23 0.0_dp , 23 0.033940114_dp , 0.000004841_dp ,& 23 1.0_dp , 23 1.036292180_dp , 0.000002866_dp ,& 23 2.0_dp , 23 2.037154765_dp , 0.000001941_dp ,& 23 3.0_dp , 23 3.039634294_dp , 0.000002420_dp ,& 23 4.0_dp , 23 4.040950296_dp , 0.000001212_dp ,& 23 5.0_dp , 23 5.043928117_dp , 0.000001198_dp ,& 23 6.0_dp , 23 6.045566130_dp , 0.000001193_dp ,& 23 7.0_dp , 23 7.048728309_dp , 0.000001290_dp ,& 23 8.0_dp , 23 8.050786936_dp , 0.000001601_dp ,& 23 9.0_dp , 23 9.054291989_dp , 0.000001612_dp ,& 24 0.0_dp , 24 0.056592411_dp , 0.000002740_dp ,& 24 1.0_dp , 24 1.060330_dp , 0.000210_dp ,& 24 2.0_dp , 24 2.062931_dp , 0.000215_dp ,& 24 3.0_dp , 24 3.067075_dp , 0.000322_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Np_naw = & naw_type ( 27 , transpose ( reshape ([& 21 9.0_dp , 21 9.031601865_dp , 0.000098732_dp ,& 22 0.0_dp , 22 0.032716280_dp , 0.000032977_dp ,& 22 1.0_dp , 22 1.032110_dp , 0.000215_dp ,& 22 2.0_dp , 22 2.033574706_dp , 0.000040849_dp ,& 22 3.0_dp , 22 3.032913340_dp , 0.000088956_dp ,& 22 4.0_dp , 22 4.034388030_dp , 0.000031052_dp ,& 22 5.0_dp , 22 5.033943422_dp , 0.000098355_dp ,& 22 6.0_dp , 22 6.035230364_dp , 0.000109568_dp ,& 22 7.0_dp , 22 7.034975012_dp , 0.000082651_dp ,& 22 8.0_dp , 22 8.036313_dp , 0.000108_dp ,& 22 9.0_dp , 22 9.036287269_dp , 0.000108618_dp ,& 23 0.0_dp , 23 0.037828060_dp , 0.000059051_dp ,& 23 1.0_dp , 23 1.038243598_dp , 0.000054916_dp ,& 23 2.0_dp , 23 2.040107_dp , 0.000107_dp ,& 23 3.0_dp , 23 3.040739421_dp , 0.000054729_dp ,& 23 4.0_dp , 23 4.042893245_dp , 0.000009014_dp ,& 23 5.0_dp , 23 5.044061518_dp , 0.000001490_dp ,& 23 6.0_dp , 23 6.046568296_dp , 0.000054129_dp ,& 23 7.0_dp , 23 7.048171640_dp , 0.000001201_dp ,& 23 8.0_dp , 23 8.050944603_dp , 0.000001220_dp ,& 23 9.0_dp , 23 9.052937538_dp , 0.000001406_dp ,& 24 0.0_dp , 24 0.056163778_dp , 0.000018284_dp ,& 24 1.0_dp , 24 1.058309671_dp , 0.000107360_dp ,& 24 2.0_dp , 24 2.061639548_dp , 0.000214712_dp ,& 24 3.0_dp , 24 3.064204_dp , 0.000034_dp ,& 24 4.0_dp , 24 4.067891_dp , 0.000107_dp ,& 24 5.0_dp , 24 5.070693_dp , 0.000215_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Pu_naw = & naw_type ( 27 , transpose ( reshape ([& 22 1.0_dp , 22 1.038572_dp , 0.000322_dp ,& 22 2.0_dp , 22 2.037638_dp , 0.000322_dp ,& 22 3.0_dp , 22 3.038777_dp , 0.000322_dp ,& 22 4.0_dp , 22 4.037875_dp , 0.000322_dp ,& 22 5.0_dp , 22 5.038970_dp , 0.000322_dp ,& 22 6.0_dp , 22 6.038250_dp , 0.000215_dp ,& 22 7.0_dp , 22 7.039474_dp , 0.000107_dp ,& 22 8.0_dp , 22 8.038763325_dp , 0.000025069_dp ,& 22 9.0_dp , 22 9.040145099_dp , 0.000065092_dp ,& 23 0.0_dp , 23 0.039648313_dp , 0.000015514_dp ,& 23 1.0_dp , 23 1.041125946_dp , 0.000023683_dp ,& 23 2.0_dp , 23 2.041182133_dp , 0.000018126_dp ,& 23 3.0_dp , 23 3.042997411_dp , 0.000058162_dp ,& 23 4.0_dp , 23 4.043317489_dp , 0.000007298_dp ,& 23 5.0_dp , 23 5.045284609_dp , 0.000022030_dp ,& 23 6.0_dp , 23 6.046056661_dp , 0.000001942_dp ,& 23 7.0_dp , 23 7.048407888_dp , 0.000001821_dp ,& 23 8.0_dp , 23 8.049558175_dp , 0.000001221_dp ,& 23 9.0_dp , 23 9.052161596_dp , 0.000001194_dp ,& 24 0.0_dp , 24 0.053811740_dp , 0.000001186_dp ,& 24 1.0_dp , 24 1.056849651_dp , 0.000001186_dp ,& 24 2.0_dp , 24 2.058740979_dp , 0.000001336_dp ,& 24 3.0_dp , 24 3.062002068_dp , 0.000002728_dp ,& 24 4.0_dp , 24 4.064204401_dp , 0.000002518_dp ,& 24 5.0_dp , 24 5.067824554_dp , 0.000014621_dp ,& 24 6.0_dp , 24 6.070204172_dp , 0.000016087_dp ,& 24 7.0_dp , 24 7.074300_dp , 0.000215_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Am_naw = & naw_type ( 27 , transpose ( reshape ([& 22 3.0_dp , 22 3.045840_dp , 0.000322_dp ,& 22 4.0_dp , 22 4.046442_dp , 0.000429_dp ,& 22 5.0_dp , 22 5.045508_dp , 0.000429_dp ,& 22 6.0_dp , 22 6.046130_dp , 0.000322_dp ,& 22 7.0_dp , 22 7.045282_dp , 0.000215_dp ,& 22 8.0_dp , 22 8.046001_dp , 0.000215_dp ,& 22 9.0_dp , 22 9.045282534_dp , 0.000114169_dp ,& 23 0.0_dp , 23 0.046025_dp , 0.000153_dp ,& 23 1.0_dp , 23 1.045529_dp , 0.000322_dp ,& 23 2.0_dp , 23 2.046613_dp , 0.000322_dp ,& 23 3.0_dp , 23 3.046468_dp , 0.000123_dp ,& 23 4.0_dp , 23 4.047731_dp , 0.000172_dp ,& 23 5.0_dp , 23 5.047906478_dp , 0.000056661_dp ,& 23 6.0_dp , 23 6.049427_dp , 0.000127_dp ,& 23 7.0_dp , 23 7.049995_dp , 0.000064_dp ,& 23 8.0_dp , 23 8.051982531_dp , 0.000063243_dp ,& 23 9.0_dp , 23 9.053022729_dp , 0.000002127_dp ,& 24 0.0_dp , 24 0.055298374_dp , 0.000014849_dp ,& 24 1.0_dp , 24 1.056827343_dp , 0.000001195_dp ,& 24 2.0_dp , 24 2.059547358_dp , 0.000001199_dp ,& 24 3.0_dp , 24 3.061379889_dp , 0.000001490_dp ,& 24 4.0_dp , 24 4.064282892_dp , 0.000001600_dp ,& 24 5.0_dp , 24 5.066452827_dp , 0.000002024_dp ,& 24 6.0_dp , 24 6.069774_dp , 0.000019_dp ,& 24 7.0_dp , 24 7.072092_dp , 0.000107_dp ,& 24 8.0_dp , 24 8.075752_dp , 0.000215_dp ,& 24 9.0_dp , 24 9.078480_dp , 0.000320_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cm_naw = & naw_type ( 22 , transpose ( reshape ([& 23 1.0_dp , 23 1.050746_dp , 0.000322_dp ,& 23 2.0_dp , 23 2.049740_dp , 0.000216_dp ,& 23 3.0_dp , 23 3.050771485_dp , 0.000087059_dp ,& 23 4.0_dp , 23 4.050158568_dp , 0.000018333_dp ,& 23 5.0_dp , 23 5.051545_dp , 0.000110_dp ,& 23 6.0_dp , 23 6.051372112_dp , 0.000018931_dp ,& 23 7.0_dp , 23 7.052868988_dp , 0.000079870_dp ,& 23 8.0_dp , 23 8.053081606_dp , 0.000013133_dp ,& 23 9.0_dp , 23 9.054908519_dp , 0.000161107_dp ,& 24 0.0_dp , 24 0.055528233_dp , 0.000002045_dp ,& 24 1.0_dp , 24 1.057651218_dp , 0.000001725_dp ,& 24 2.0_dp , 24 2.058834187_dp , 0.000001224_dp ,& 24 3.0_dp , 24 3.061387329_dp , 0.000001605_dp ,& 24 4.0_dp , 24 4.062750622_dp , 0.000001187_dp ,& 24 5.0_dp , 24 5.065491047_dp , 0.000001233_dp ,& 24 6.0_dp , 24 6.067222016_dp , 0.000001637_dp ,& 24 7.0_dp , 24 7.070352678_dp , 0.000004076_dp ,& 24 8.0_dp , 24 8.072349086_dp , 0.000002531_dp ,& 24 9.0_dp , 24 9.075953992_dp , 0.000002545_dp ,& 25 0.0_dp , 25 0.078357541_dp , 0.000011029_dp ,& 25 1.0_dp , 25 1.082284988_dp , 0.000024367_dp ,& 25 2.0_dp , 25 2.084870_dp , 0.000320_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Bk_naw = & naw_type ( 22 , transpose ( reshape ([& 23 3.0_dp , 23 3.056652_dp , 0.000250_dp ,& 23 4.0_dp , 23 4.057322_dp , 0.000164_dp ,& 23 5.0_dp , 23 5.056651_dp , 0.000430_dp ,& 23 6.0_dp , 23 6.057479_dp , 0.000387_dp ,& 23 7.0_dp , 23 7.057123_dp , 0.000247_dp ,& 23 8.0_dp , 23 8.058204_dp , 0.000275_dp ,& 23 9.0_dp , 23 9.058239_dp , 0.000222_dp ,& 24 0.0_dp , 24 0.059758_dp , 0.000161_dp ,& 24 1.0_dp , 24 1.060098_dp , 0.000178_dp ,& 24 2.0_dp , 24 2.061999_dp , 0.000144_dp ,& 24 3.0_dp , 24 3.063005905_dp , 0.000004856_dp ,& 24 4.0_dp , 24 4.065178969_dp , 0.000015457_dp ,& 24 5.0_dp , 24 5.066359814_dp , 0.000001923_dp ,& 24 6.0_dp , 24 6.068671300_dp , 0.000064433_dp ,& 24 7.0_dp , 24 7.070305889_dp , 0.000005570_dp ,& 24 8.0_dp , 24 8.073141689_dp , 0.000053739_dp ,& 24 9.0_dp , 24 9.074983118_dp , 0.000001339_dp ,& 25 0.0_dp , 25 0.078317195_dp , 0.000003110_dp ,& 25 1.0_dp , 25 1.080760555_dp , 0.000011523_dp ,& 25 2.0_dp , 25 2.084310_dp , 0.000215_dp ,& 25 3.0_dp , 25 3.086880_dp , 0.000385_dp ,& 25 4.0_dp , 25 4.090600_dp , 0.000320_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cf_naw = & naw_type ( 20 , transpose ( reshape ([& 23 7.0_dp , 23 7.062199272_dp , 0.000104506_dp ,& 23 8.0_dp , 23 8.061490_dp , 0.000320_dp ,& 23 9.0_dp , 23 9.062482_dp , 0.000129_dp ,& 24 0.0_dp , 24 0.062253447_dp , 0.000019360_dp ,& 24 1.0_dp , 24 1.063690_dp , 0.000180_dp ,& 24 2.0_dp , 24 2.063754544_dp , 0.000013840_dp ,& 24 3.0_dp , 24 3.065475_dp , 0.000194_dp ,& 24 4.0_dp , 24 4.065999447_dp , 0.000002809_dp ,& 24 5.0_dp , 24 5.068046755_dp , 0.000002606_dp ,& 24 6.0_dp , 24 6.068803685_dp , 0.000001625_dp ,& 24 7.0_dp , 24 7.070971348_dp , 0.000015380_dp ,& 24 8.0_dp , 24 8.072182905_dp , 0.000005497_dp ,& 24 9.0_dp , 24 9.074850428_dp , 0.000001269_dp ,& 25 0.0_dp , 25 0.076404494_dp , 0.000001650_dp ,& 25 1.0_dp , 25 1.079587171_dp , 0.000004187_dp ,& 25 2.0_dp , 25 2.081626507_dp , 0.000002531_dp ,& 25 3.0_dp , 25 3.085133723_dp , 0.000004570_dp ,& 25 4.0_dp , 25 4.087323575_dp , 0.000012304_dp ,& 25 5.0_dp , 25 5.091046_dp , 0.000215_dp ,& 25 6.0_dp , 25 6.093442_dp , 0.000338_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Es_naw = & naw_type ( 20 , transpose ( reshape ([& 23 9.0_dp , 23 9.068310_dp , 0.000322_dp ,& 24 0.0_dp , 24 0.068949_dp , 0.000393_dp ,& 24 1.0_dp , 24 1.068592_dp , 0.000248_dp ,& 24 2.0_dp , 24 2.069567_dp , 0.000276_dp ,& 24 3.0_dp , 24 3.069508_dp , 0.000222_dp ,& 24 4.0_dp , 24 4.070881_dp , 0.000195_dp ,& 24 5.0_dp , 24 5.071192_dp , 0.000178_dp ,& 24 6.0_dp , 24 6.072806474_dp , 0.000096538_dp ,& 24 7.0_dp , 24 7.073621929_dp , 0.000020870_dp ,& 24 8.0_dp , 24 8.075469_dp , 0.000056_dp ,& 24 9.0_dp , 24 9.076409_dp , 0.000032_dp ,& 25 0.0_dp , 25 0.078611_dp , 0.000107_dp ,& 25 1.0_dp , 25 1.079991431_dp , 0.000005676_dp ,& 25 2.0_dp , 25 2.082979173_dp , 0.000053736_dp ,& 25 3.0_dp , 25 3.084821241_dp , 0.000001341_dp ,& 25 4.0_dp , 25 4.088024337_dp , 0.000003152_dp ,& 25 5.0_dp , 25 5.090273504_dp , 0.000011612_dp ,& 25 6.0_dp , 25 6.093597_dp , 0.000107_dp ,& 25 7.0_dp , 25 7.095979_dp , 0.000441_dp ,& 25 8.0_dp , 25 8.099520_dp , 0.000430_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Fm_naw = & naw_type ( 20 , transpose ( reshape ([& 24 1.0_dp , 24 1.074311_dp , 0.000322_dp ,& 24 2.0_dp , 24 2.073430_dp , 0.000430_dp ,& 24 3.0_dp , 24 3.074414_dp , 0.000140_dp ,& 24 4.0_dp , 24 4.074036_dp , 0.000216_dp ,& 24 5.0_dp , 24 5.075354_dp , 0.000210_dp ,& 24 6.0_dp , 24 6.075353334_dp , 0.000014675_dp ,& 24 7.0_dp , 24 7.076944_dp , 0.000194_dp ,& 24 8.0_dp , 24 8.077185451_dp , 0.000009122_dp ,& 24 9.0_dp , 24 9.078926042_dp , 0.000006668_dp ,& 25 0.0_dp , 25 0.079519765_dp , 0.000008468_dp ,& 25 1.0_dp , 25 1.081545130_dp , 0.000015342_dp ,& 25 2.0_dp , 25 2.082466019_dp , 0.000005604_dp ,& 25 3.0_dp , 25 3.085180945_dp , 0.000001662_dp ,& 25 4.0_dp , 25 4.086852424_dp , 0.000001978_dp ,& 25 5.0_dp , 25 5.089963495_dp , 0.000004223_dp ,& 25 6.0_dp , 25 6.091771699_dp , 0.000003241_dp ,& 25 7.0_dp , 25 7.095105419_dp , 0.000004669_dp ,& 25 8.0_dp , 25 8.097077_dp , 0.000215_dp ,& 25 9.0_dp , 25 9.100596_dp , 0.000304_dp ,& 26 0.0_dp , 26 0.102809_dp , 0.000467_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Md_naw = & naw_type ( 19 , transpose ( reshape ([& 24 4.0_dp , 24 4.081157_dp , 0.000402_dp ,& 24 5.0_dp , 24 5.080864_dp , 0.000279_dp ,& 24 6.0_dp , 24 6.081713_dp , 0.000279_dp ,& 24 7.0_dp , 24 7.081520_dp , 0.000223_dp ,& 24 8.0_dp , 24 8.082607_dp , 0.000198_dp ,& 24 9.0_dp , 24 9.082857155_dp , 0.000176516_dp ,& 25 0.0_dp , 25 0.084164934_dp , 0.000097606_dp ,& 25 1.0_dp , 25 1.084774287_dp , 0.000020310_dp ,& 25 2.0_dp , 25 2.086385000_dp , 0.000098000_dp ,& 25 3.0_dp , 25 3.087143_dp , 0.000034_dp ,& 25 4.0_dp , 25 4.089590_dp , 0.000107_dp ,& 25 5.0_dp , 25 5.091081702_dp , 0.000005976_dp ,& 25 6.0_dp , 25 6.093888_dp , 0.000133_dp ,& 25 7.0_dp , 25 7.095537343_dp , 0.000001683_dp ,& 25 8.0_dp , 25 8.098433634_dp , 0.000003729_dp ,& 25 9.0_dp , 25 9.100445_dp , 0.000108_dp ,& 26 0.0_dp , 26 0.103650_dp , 0.000339_dp ,& 26 1.0_dp , 26 1.105828_dp , 0.000546_dp ,& 26 2.0_dp , 26 2.109144_dp , 0.000481_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: No_naw = & naw_type ( 17 , transpose ( reshape ([& 24 8.0_dp , 24 8.086623_dp , 0.000241_dp ,& 24 9.0_dp , 24 9.087802_dp , 0.000300_dp ,& 25 0.0_dp , 25 0.087565_dp , 0.000215_dp ,& 25 1.0_dp , 25 1.088942_dp , 0.000194_dp ,& 25 2.0_dp , 25 2.088966070_dp , 0.000009975_dp ,& 25 3.0_dp , 25 3.090562780_dp , 0.000007420_dp ,& 25 4.0_dp , 25 4.090954211_dp , 0.000010367_dp ,& 25 5.0_dp , 25 5.093196439_dp , 0.000015079_dp ,& 25 6.0_dp , 25 6.094281912_dp , 0.000008103_dp ,& 25 7.0_dp , 25 7.096884203_dp , 0.000006652_dp ,& 25 8.0_dp , 25 8.098205_dp , 0.000107_dp ,& 25 9.0_dp , 25 9.100998364_dp , 0.000006829_dp ,& 26 0.0_dp , 26 0.102641_dp , 0.000215_dp ,& 26 1.0_dp , 26 1.105696_dp , 0.000215_dp ,& 26 2.0_dp , 26 2.107463_dp , 0.000387_dp ,& 26 3.0_dp , 26 3.110714_dp , 0.000526_dp ,& 26 4.0_dp , 26 4.112734_dp , 0.000634_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Lr_naw = & naw_type ( 16 , transpose ( reshape ([& 25 1.0_dp , 25 1.094289_dp , 0.000215_dp ,& 25 2.0_dp , 25 2.095048_dp , 0.000198_dp ,& 25 3.0_dp , 25 3.095033850_dp , 0.000176634_dp ,& 25 4.0_dp , 25 4.096238813_dp , 0.000098026_dp ,& 25 5.0_dp , 25 5.096562399_dp , 0.000019000_dp ,& 25 6.0_dp , 25 6.098494024_dp , 0.000089000_dp ,& 25 7.0_dp , 25 7.099480_dp , 0.000047_dp ,& 25 8.0_dp , 25 8.101753_dp , 0.000109_dp ,& 25 9.0_dp , 25 9.102900_dp , 0.000076_dp ,& 26 0.0_dp , 26 0.105504_dp , 0.000134_dp ,& 26 1.0_dp , 26 1.106879_dp , 0.000215_dp ,& 26 2.0_dp , 26 2.109615_dp , 0.000215_dp ,& 26 3.0_dp , 26 3.111293_dp , 0.000240_dp ,& 26 4.0_dp , 26 4.114198_dp , 0.000468_dp ,& 26 5.0_dp , 26 5.116193_dp , 0.000587_dp ,& 26 6.0_dp , 26 6.119874_dp , 0.000579_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Rf_naw = & naw_type ( 16 , transpose ( reshape ([& 25 3.0_dp , 25 3.100528_dp , 0.000440_dp ,& 25 4.0_dp , 25 4.100055_dp , 0.000304_dp ,& 25 5.0_dp , 25 5.101267_dp , 0.000194_dp ,& 25 6.0_dp , 25 6.101151464_dp , 0.000019160_dp ,& 25 7.0_dp , 25 7.102916796_dp , 0.000011612_dp ,& 25 8.0_dp , 25 8.103429895_dp , 0.000017288_dp ,& 25 9.0_dp , 25 9.105601_dp , 0.000078_dp ,& 26 0.0_dp , 26 0.106440_dp , 0.000215_dp ,& 26 1.0_dp , 26 1.108769591_dp , 0.000070492_dp ,& 26 2.0_dp , 26 2.109923_dp , 0.000240_dp ,& 26 3.0_dp , 26 3.112461_dp , 0.000164_dp ,& 26 4.0_dp , 26 4.113876_dp , 0.000387_dp ,& 26 5.0_dp , 26 5.116683_dp , 0.000387_dp ,& 26 6.0_dp , 26 6.118236_dp , 0.000443_dp ,& 26 7.0_dp , 26 7.121787_dp , 0.000617_dp ,& 26 8.0_dp , 26 8.123968_dp , 0.000711_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Db_naw = & naw_type ( 16 , transpose ( reshape ([& 25 5.0_dp , 25 5.106919_dp , 0.000304_dp ,& 25 6.0_dp , 25 6.107674_dp , 0.000201_dp ,& 25 7.0_dp , 25 7.107520042_dp , 0.000176741_dp ,& 25 8.0_dp , 25 8.108972995_dp , 0.000098613_dp ,& 25 9.0_dp , 25 9.109491859_dp , 0.000060854_dp ,& 26 0.0_dp , 26 0.111297_dp , 0.000100_dp ,& 26 1.0_dp , 26 1.111979_dp , 0.000118_dp ,& 26 2.0_dp , 26 2.114067_dp , 0.000154_dp ,& 26 3.0_dp , 26 3.114987_dp , 0.000180_dp ,& 26 4.0_dp , 26 4.117297_dp , 0.000253_dp ,& 26 5.0_dp , 26 5.118500_dp , 0.000240_dp ,& 26 6.0_dp , 26 6.121032_dp , 0.000304_dp ,& 26 7.0_dp , 26 7.122399_dp , 0.000402_dp ,& 26 8.0_dp , 26 8.125669_dp , 0.000568_dp ,& 26 9.0_dp , 26 9.127911_dp , 0.000669_dp ,& 27 0.0_dp , 27 0.131399_dp , 0.000617_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Sg_naw = & naw_type ( 16 , transpose ( reshape ([& 25 8.0_dp , 25 8.113040_dp , 0.000443_dp ,& 25 9.0_dp , 25 9.114353_dp , 0.000194_dp ,& 26 0.0_dp , 26 0.114383435_dp , 0.000022045_dp ,& 26 1.0_dp , 26 1.115948135_dp , 0.000019853_dp ,& 26 2.0_dp , 26 2.116338978_dp , 0.000023797_dp ,& 26 3.0_dp , 26 3.118299_dp , 0.000101_dp ,& 26 4.0_dp , 26 4.118930_dp , 0.000304_dp ,& 26 5.0_dp , 26 5.121089_dp , 0.000149_dp ,& 26 6.0_dp , 26 6.121973_dp , 0.000263_dp ,& 26 7.0_dp , 26 7.124323_dp , 0.000281_dp ,& 26 8.0_dp , 26 8.125389_dp , 0.000504_dp ,& 26 9.0_dp , 26 9.128495_dp , 0.000395_dp ,& 27 0.0_dp , 27 0.130362_dp , 0.000492_dp ,& 27 1.0_dp , 27 1.133782_dp , 0.000634_dp ,& 27 2.0_dp , 27 2.135825_dp , 0.000743_dp ,& 27 3.0_dp , 27 3.139475_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Bh_naw = & naw_type ( 19 , transpose ( reshape ([& 26 0.0_dp , 26 0.121443_dp , 0.000211_dp ,& 26 1.0_dp , 26 1.121395733_dp , 0.000193026_dp ,& 26 2.0_dp , 26 2.122654688_dp , 0.000099919_dp ,& 26 3.0_dp , 26 3.122916_dp , 0.000328_dp ,& 26 4.0_dp , 26 4.124486_dp , 0.000190_dp ,& 26 5.0_dp , 26 5.124955_dp , 0.000257_dp ,& 26 6.0_dp , 26 6.126790_dp , 0.000175_dp ,& 26 7.0_dp , 26 7.127499_dp , 0.000282_dp ,& 26 8.0_dp , 26 8.129584_dp , 0.000410_dp ,& 26 9.0_dp , 26 9.130411_dp , 0.000402_dp ,& 27 0.0_dp , 27 0.133366_dp , 0.000320_dp ,& 27 1.0_dp , 27 1.135115_dp , 0.000412_dp ,& 27 2.0_dp , 27 2.138259_dp , 0.000571_dp ,& 27 3.0_dp , 27 3.140294_dp , 0.000703_dp ,& 27 4.0_dp , 27 4.143599_dp , 0.000620_dp ,& 27 5.0_dp , 27 5.145766_dp , 0.000644_dp ,& 27 6.0_dp , 27 6.149169_dp , 0.000644_dp ,& 27 7.0_dp , 27 7.151477_dp , 0.000644_dp ,& 27 8.0_dp , 27 8.154988_dp , 0.000429_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Hs_naw = & naw_type ( 18 , transpose ( reshape ([& 26 3.0_dp , 26 3.128479_dp , 0.000212_dp ,& 26 4.0_dp , 26 4.128356330_dp , 0.000031005_dp ,& 26 5.0_dp , 26 5.129791744_dp , 0.000025719_dp ,& 26 6.0_dp , 26 6.130048783_dp , 0.000029099_dp ,& 26 7.0_dp , 26 7.131678_dp , 0.000102_dp ,& 26 8.0_dp , 26 8.132011_dp , 0.000322_dp ,& 26 9.0_dp , 26 9.133649_dp , 0.000141_dp ,& 27 0.0_dp , 27 0.134313_dp , 0.000266_dp ,& 27 1.0_dp , 27 1.137082_dp , 0.000296_dp ,& 27 2.0_dp , 27 2.138492_dp , 0.000547_dp ,& 27 3.0_dp , 27 3.141458_dp , 0.000401_dp ,& 27 4.0_dp , 27 4.143217_dp , 0.000504_dp ,& 27 5.0_dp , 27 5.146530_dp , 0.000637_dp ,& 27 6.0_dp , 27 6.148348_dp , 0.000773_dp ,& 27 7.0_dp , 27 7.151772_dp , 0.000480_dp ,& 27 8.0_dp , 27 8.153753_dp , 0.000322_dp ,& 27 9.0_dp , 27 9.157274_dp , 0.000644_dp ,& 28 0.0_dp , 28 0.159335_dp , 0.000644_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Mt_naw = & naw_type ( 18 , transpose ( reshape ([& 26 5.0_dp , 26 5.135937_dp , 0.000471_dp ,& 26 6.0_dp , 26 6.137062253_dp , 0.000103568_dp ,& 26 7.0_dp , 26 7.137189_dp , 0.000540_dp ,& 26 8.0_dp , 26 8.138649_dp , 0.000250_dp ,& 26 9.0_dp , 26 9.138809_dp , 0.000335_dp ,& 27 0.0_dp , 27 0.140322_dp , 0.000205_dp ,& 27 1.0_dp , 27 1.140741_dp , 0.000354_dp ,& 27 2.0_dp , 27 2.143298_dp , 0.000521_dp ,& 27 3.0_dp , 27 3.144695_dp , 0.000455_dp ,& 27 4.0_dp , 27 4.147343_dp , 0.000404_dp ,& 27 5.0_dp , 27 5.148972_dp , 0.000416_dp ,& 27 6.0_dp , 27 6.151705_dp , 0.000571_dp ,& 27 7.0_dp , 27 7.153525_dp , 0.000711_dp ,& 27 8.0_dp , 27 8.156487_dp , 0.000621_dp ,& 27 9.0_dp , 27 9.158439_dp , 0.000720_dp ,& 28 0.0_dp , 28 0.161579_dp , 0.000644_dp ,& 28 1.0_dp , 28 1.163608_dp , 0.000644_dp ,& 28 2.0_dp , 28 2.166888_dp , 0.000480_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ds_naw = & naw_type ( 18 , transpose ( reshape ([& 26 7.0_dp , 26 7.143726_dp , 0.000219_dp ,& 26 8.0_dp , 26 8.143477_dp , 0.000324_dp ,& 26 9.0_dp , 26 9.144750965_dp , 0.000033712_dp ,& 27 0.0_dp , 27 0.144586620_dp , 0.000042163_dp ,& 27 1.0_dp , 27 1.145951_dp , 0.000104_dp ,& 27 2.0_dp , 27 2.146091_dp , 0.000456_dp ,& 27 3.0_dp , 27 3.148455_dp , 0.000152_dp ,& 27 4.0_dp , 27 4.149434_dp , 0.000418_dp ,& 27 5.0_dp , 27 5.152085_dp , 0.000366_dp ,& 27 6.0_dp , 27 6.153022_dp , 0.000588_dp ,& 27 7.0_dp , 27 7.155763_dp , 0.000421_dp ,& 27 8.0_dp , 27 8.157007_dp , 0.000548_dp ,& 27 9.0_dp , 27 9.159984_dp , 0.000649_dp ,& 28 0.0_dp , 28 0.161375_dp , 0.000803_dp ,& 28 1.0_dp , 28 1.164545_dp , 0.000529_dp ,& 28 2.0_dp , 28 2.166174_dp , 0.000322_dp ,& 28 3.0_dp , 28 3.169437_dp , 0.000537_dp ,& 28 4.0_dp , 28 4.171187_dp , 0.000537_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Rg_naw = & naw_type ( 15 , transpose ( reshape ([& 27 2.0_dp , 27 2.153273_dp , 0.000251_dp ,& 27 3.0_dp , 27 3.153393_dp , 0.000429_dp ,& 27 4.0_dp , 27 4.155247_dp , 0.000225_dp ,& 27 5.0_dp , 27 5.156088_dp , 0.000479_dp ,& 27 6.0_dp , 27 6.158226_dp , 0.000675_dp ,& 27 7.0_dp , 27 7.159322_dp , 0.000504_dp ,& 27 8.0_dp , 27 8.161590_dp , 0.000417_dp ,& 27 9.0_dp , 27 9.162880_dp , 0.000453_dp ,& 28 0.0_dp , 28 0.165204_dp , 0.000571_dp ,& 28 1.0_dp , 28 1.166757_dp , 0.000831_dp ,& 28 2.0_dp , 28 2.169343_dp , 0.000631_dp ,& 28 3.0_dp , 28 3.171101_dp , 0.000728_dp ,& 28 4.0_dp , 28 4.173882_dp , 0.000537_dp ,& 28 5.0_dp , 28 5.175771_dp , 0.000644_dp ,& 28 6.0_dp , 28 6.178756_dp , 0.000492_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Cn_naw = & naw_type ( 13 , transpose ( reshape ([& 27 6.0_dp , 27 6.161418_dp , 0.000537_dp ,& 27 7.0_dp , 27 7.163535_dp , 0.000165_dp ,& 27 8.0_dp , 27 8.164083_dp , 0.000470_dp ,& 27 9.0_dp , 27 9.166422_dp , 0.000424_dp ,& 28 0.0_dp , 28 0.167102_dp , 0.000626_dp ,& 28 1.0_dp , 28 1.169563_dp , 0.000427_dp ,& 28 2.0_dp , 28 2.170507_dp , 0.000588_dp ,& 28 3.0_dp , 28 3.173202_dp , 0.000660_dp ,& 28 4.0_dp , 28 4.174360_dp , 0.000819_dp ,& 28 5.0_dp , 28 5.177227_dp , 0.000544_dp ,& 28 6.0_dp , 28 6.178691_dp , 0.000751_dp ,& 28 7.0_dp , 28 7.181826_dp , 0.000751_dp ,& 28 8.0_dp , 28 8.183501_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Nh_naw = & naw_type ( 13 , transpose ( reshape ([& 27 8.0_dp , 27 8.170725_dp , 0.000240_dp ,& 27 9.0_dp , 27 9.171187_dp , 0.000644_dp ,& 28 0.0_dp , 28 0.173098_dp , 0.000429_dp ,& 28 1.0_dp , 28 1.173710_dp , 0.000322_dp ,& 28 2.0_dp , 28 2.175770_dp , 0.000430_dp ,& 28 3.0_dp , 28 3.176666_dp , 0.000469_dp ,& 28 4.0_dp , 28 4.178843_dp , 0.000573_dp ,& 28 5.0_dp , 28 5.180106_dp , 0.000832_dp ,& 28 6.0_dp , 28 6.182456_dp , 0.000634_dp ,& 28 7.0_dp , 28 7.184064_dp , 0.000759_dp ,& 28 8.0_dp , 28 8.186764_dp , 0.000751_dp ,& 28 9.0_dp , 28 9.188461_dp , 0.000537_dp ,& 29 0.0_dp , 29 0.191429_dp , 0.000503_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Fl_naw = & naw_type ( 8 , transpose ( reshape ([& 28 4.0_dp , 28 4.181192_dp , 0.000704_dp ,& 28 5.0_dp , 28 5.183503_dp , 0.000433_dp ,& 28 6.0_dp , 28 6.184226_dp , 0.000590_dp ,& 28 7.0_dp , 28 7.186720_dp , 0.000663_dp ,& 28 8.0_dp , 28 8.187781_dp , 0.000819_dp ,& 28 9.0_dp , 28 9.190517_dp , 0.000548_dp ,& 29 0.0_dp , 29 0.191875_dp , 0.000752_dp ,& 29 1.0_dp , 29 1.194848_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Mc_naw = & naw_type ( 6 , transpose ( reshape ([& 28 7.0_dp , 28 7.190820_dp , 0.000475_dp ,& 28 8.0_dp , 28 8.192879_dp , 0.000575_dp ,& 28 9.0_dp , 28 9.193971_dp , 0.000834_dp ,& 29 0.0_dp , 29 0.196235_dp , 0.000635_dp ,& 29 1.0_dp , 29 1.197725_dp , 0.000789_dp ,& 29 2.0_dp , 29 2.200323_dp , 0.000751_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Lv_naw = & naw_type ( 5 , transpose ( reshape ([& 28 9.0_dp , 28 9.198023_dp , 0.000540_dp ,& 29 0.0_dp , 29 0.198635_dp , 0.000593_dp ,& 29 1.0_dp , 29 1.201014_dp , 0.000669_dp ,& 29 2.0_dp , 29 2.201969_dp , 0.000819_dp ,& 29 3.0_dp , 29 3.204583_dp , 0.000553_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Ts_naw = & naw_type ( 4 , transpose ( reshape ([& 29 1.0_dp , 29 1.205748_dp , 0.000640_dp ,& 29 2.0_dp , 29 2.207861_dp , 0.000718_dp ,& 29 3.0_dp , 29 3.208727_dp , 0.000835_dp ,& 29 4.0_dp , 29 4.210840_dp , 0.000637_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) type ( naw_type ), parameter , public :: Og_naw = & naw_type ( 3 , transpose ( reshape ([& 29 3.0_dp , 29 3.213423_dp , 0.000761_dp ,& 29 4.0_dp , 29 4.213979_dp , 0.000594_dp ,& 29 5.0_dp , 29 5.216178_dp , 0.000703_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 50 ]))) end module ciaaw__naw","tags":"","loc":"sourcefile/ciaaw_naw.f90.html"},{"title":"ciaaw_pte.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_pte.f90~~EfferentGraph sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_pte.f90~~AfferentGraph sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__pte !! Ciaaw pte - Autogenerated !! See [specs](../page/specs/ciaaw_api.html) use ciaaw__common use ciaaw__types use ciaaw__saw use ciaaw__ice use ciaaw__naw private type ( element_type ), parameter , public :: pt ( 118 ) = [& element_type ( \"hydrogen\" , \"H\" , 1 , H_saw , H_ice , H_naw ),& element_type ( \"helium\" , \"He\" , 2 , He_saw , He_ice , He_naw ),& element_type ( \"lithium\" , \"Li\" , 3 , Li_saw , Li_ice , Li_naw ),& element_type ( \"beryllium\" , \"Be\" , 4 , Be_saw , Be_ice , Be_naw ),& element_type ( \"boron\" , \"B\" , 5 , B_saw , B_ice , B_naw ),& element_type ( \"carbon\" , \"C\" , 6 , C_saw , C_ice , C_naw ),& element_type ( \"nitrogen\" , \"N\" , 7 , N_saw , N_ice , N_naw ),& element_type ( \"oxygen\" , \"O\" , 8 , O_saw , O_ice , O_naw ),& element_type ( \"fluorine\" , \"F\" , 9 , F_saw , F_ice , F_naw ),& element_type ( \"neon\" , \"Ne\" , 10 , Ne_saw , Ne_ice , Ne_naw ),& element_type ( \"sodium\" , \"Na\" , 11 , Na_saw , Na_ice , Na_naw ),& element_type ( \"magnesium\" , \"Mg\" , 12 , Mg_saw , Mg_ice , Mg_naw ),& element_type ( \"aluminium\" , \"Al\" , 13 , Al_saw , Al_ice , Al_naw ),& element_type ( \"silicon\" , \"Si\" , 14 , Si_saw , Si_ice , Si_naw ),& element_type ( \"phosphorus\" , \"P\" , 15 , P_saw , P_ice , P_naw ),& element_type ( \"sulfur\" , \"S\" , 16 , S_saw , S_ice , S_naw ),& element_type ( \"chlorine\" , \"Cl\" , 17 , Cl_saw , Cl_ice , Cl_naw ),& element_type ( \"argon\" , \"Ar\" , 18 , Ar_saw , Ar_ice , Ar_naw ),& element_type ( \"potassium\" , \"K\" , 19 , K_saw , K_ice , K_naw ),& element_type ( \"calcium\" , \"Ca\" , 20 , Ca_saw , Ca_ice , Ca_naw ),& element_type ( \"scandium\" , \"Sc\" , 21 , Sc_saw , Sc_ice , Sc_naw ),& element_type ( \"titanium\" , \"Ti\" , 22 , Ti_saw , Ti_ice , Ti_naw ),& element_type ( \"vanadium\" , \"V\" , 23 , V_saw , V_ice , V_naw ),& element_type ( \"chromium\" , \"Cr\" , 24 , Cr_saw , Cr_ice , Cr_naw ),& element_type ( \"manganese\" , \"Mn\" , 25 , Mn_saw , Mn_ice , Mn_naw ),& element_type ( \"iron\" , \"Fe\" , 26 , Fe_saw , Fe_ice , Fe_naw ),& element_type ( \"cobalt\" , \"Co\" , 27 , Co_saw , Co_ice , Co_naw ),& element_type ( \"nickel\" , \"Ni\" , 28 , Ni_saw , Ni_ice , Ni_naw ),& element_type ( \"copper\" , \"Cu\" , 29 , Cu_saw , Cu_ice , Cu_naw ),& element_type ( \"zinc\" , \"Zn\" , 30 , Zn_saw , Zn_ice , Zn_naw ),& element_type ( \"gallium\" , \"Ga\" , 31 , Ga_saw , Ga_ice , Ga_naw ),& element_type ( \"germanium\" , \"Ge\" , 32 , Ge_saw , Ge_ice , Ge_naw ),& element_type ( \"arsenic\" , \"As\" , 33 , As_saw , As_ice , As_naw ),& element_type ( \"selenium\" , \"Se\" , 34 , Se_saw , Se_ice , Se_naw ),& element_type ( \"bromine\" , \"Br\" , 35 , Br_saw , Br_ice , Br_naw ),& element_type ( \"krypton\" , \"Kr\" , 36 , Kr_saw , Kr_ice , Kr_naw ),& element_type ( \"rubidium\" , \"Rb\" , 37 , Rb_saw , Rb_ice , Rb_naw ),& element_type ( \"strontium\" , \"Sr\" , 38 , Sr_saw , Sr_ice , Sr_naw ),& element_type ( \"yttrium\" , \"Y\" , 39 , Y_saw , Y_ice , Y_naw ),& element_type ( \"zirconium\" , \"Zr\" , 40 , Zr_saw , Zr_ice , Zr_naw ),& element_type ( \"nobium\" , \"Nb\" , 41 , Nb_saw , Nb_ice , Nb_naw ),& element_type ( \"molybdenum\" , \"Mo\" , 42 , Mo_saw , Mo_ice , Mo_naw ),& element_type ( \"technetium\" , \"Tc\" , 43 , Tc_saw , Tc_ice , Tc_naw ),& element_type ( \"ruthenium\" , \"Ru\" , 44 , Ru_saw , Ru_ice , Ru_naw ),& element_type ( \"rhodium\" , \"Rh\" , 45 , Rh_saw , Rh_ice , Rh_naw ),& element_type ( \"palladium\" , \"Pd\" , 46 , Pd_saw , Pd_ice , Pd_naw ),& element_type ( \"silver\" , \"Ag\" , 47 , Ag_saw , Ag_ice , Ag_naw ),& element_type ( \"cadmium\" , \"Cd\" , 48 , Cd_saw , Cd_ice , Cd_naw ),& element_type ( \"indium\" , \"In\" , 49 , In_saw , In_ice , In_naw ),& element_type ( \"tin\" , \"Sn\" , 50 , Sn_saw , Sn_ice , Sn_naw ),& element_type ( \"antimony\" , \"Sb\" , 51 , Sb_saw , Sb_ice , Sb_naw ),& element_type ( \"tellurium\" , \"Te\" , 52 , Te_saw , Te_ice , Te_naw ),& element_type ( \"iodine\" , \"I\" , 53 , I_saw , I_ice , I_naw ),& element_type ( \"xenon\" , \"Xe\" , 54 , Xe_saw , Xe_ice , Xe_naw ),& element_type ( \"caesium\" , \"Cs\" , 55 , Cs_saw , Cs_ice , Cs_naw ),& element_type ( \"barium\" , \"Ba\" , 56 , Ba_saw , Ba_ice , Ba_naw ),& element_type ( \"lanthanum\" , \"La\" , 57 , La_saw , La_ice , La_naw ),& element_type ( \"cerium\" , \"Ce\" , 58 , Ce_saw , Ce_ice , Ce_naw ),& element_type ( \"praseodymium\" , \"Pr\" , 59 , Pr_saw , Pr_ice , Pr_naw ),& element_type ( \"neodymium\" , \"Nd\" , 60 , Nd_saw , Nd_ice , Nd_naw ),& element_type ( \"promethium\" , \"Pm\" , 61 , Pm_saw , Pm_ice , Pm_naw ),& element_type ( \"samarium\" , \"Sm\" , 62 , Sm_saw , Sm_ice , Sm_naw ),& element_type ( \"europium\" , \"Eu\" , 63 , Eu_saw , Eu_ice , Eu_naw ),& element_type ( \"gadolinium\" , \"Gd\" , 64 , Gd_saw , Gd_ice , Gd_naw ),& element_type ( \"terbium\" , \"Tb\" , 65 , Tb_saw , Tb_ice , Tb_naw ),& element_type ( \"dysprosium\" , \"Dy\" , 66 , Dy_saw , Dy_ice , Dy_naw ),& element_type ( \"holmium\" , \"Ho\" , 67 , Ho_saw , Ho_ice , Ho_naw ),& element_type ( \"erbium\" , \"Er\" , 68 , Er_saw , Er_ice , Er_naw ),& element_type ( \"thulium\" , \"Tm\" , 69 , Tm_saw , Tm_ice , Tm_naw ),& element_type ( \"ytterbium\" , \"Yb\" , 70 , Yb_saw , Yb_ice , Yb_naw ),& element_type ( \"lutetium\" , \"Lu\" , 71 , Lu_saw , Lu_ice , Lu_naw ),& element_type ( \"hafnium\" , \"Hf\" , 72 , Hf_saw , Hf_ice , Hf_naw ),& element_type ( \"tantalum\" , \"Ta\" , 73 , Ta_saw , Ta_ice , Ta_naw ),& element_type ( \"tungsten\" , \"W\" , 74 , W_saw , W_ice , W_naw ),& element_type ( \"rhenium\" , \"Re\" , 75 , Re_saw , Re_ice , Re_naw ),& element_type ( \"osmium\" , \"Os\" , 76 , Os_saw , Os_ice , Os_naw ),& element_type ( \"iridium\" , \"Ir\" , 77 , Ir_saw , Ir_ice , Ir_naw ),& element_type ( \"platinum\" , \"Pt\" , 78 , Pt_saw , Pt_ice , Pt_naw ),& element_type ( \"gold\" , \"Au\" , 79 , Au_saw , Au_ice , Au_naw ),& element_type ( \"mercury\" , \"Hg\" , 80 , Hg_saw , Hg_ice , Hg_naw ),& element_type ( \"thallium\" , \"Tl\" , 81 , Tl_saw , Tl_ice , Tl_naw ),& element_type ( \"lead\" , \"Pb\" , 82 , Pb_saw , Pb_ice , Pb_naw ),& element_type ( \"bismuth\" , \"Bi\" , 83 , Bi_saw , Bi_ice , Bi_naw ),& element_type ( \"polonium\" , \"Po\" , 84 , Po_saw , Po_ice , Po_naw ),& element_type ( \"astatine\" , \"At\" , 85 , At_saw , At_ice , At_naw ),& element_type ( \"radon\" , \"Rn\" , 86 , Rn_saw , Rn_ice , Rn_naw ),& element_type ( \"francium\" , \"Fr\" , 87 , Fr_saw , Fr_ice , Fr_naw ),& element_type ( \"radium\" , \"Ra\" , 88 , Ra_saw , Ra_ice , Ra_naw ),& element_type ( \"actinium\" , \"Ac\" , 89 , Ac_saw , Ac_ice , Ac_naw ),& element_type ( \"thorium\" , \"Th\" , 90 , Th_saw , Th_ice , Th_naw ),& element_type ( \"protactinium\" , \"Pa\" , 91 , Pa_saw , Pa_ice , Pa_naw ),& element_type ( \"uranium\" , \"U\" , 92 , U_saw , U_ice , U_naw ),& element_type ( \"neptunium\" , \"Np\" , 93 , Np_saw , ice_nan , Np_naw ),& element_type ( \"plutonium\" , \"Pu\" , 94 , Pu_saw , ice_nan , Pu_naw ),& element_type ( \"americium\" , \"Am\" , 95 , Am_saw , ice_nan , Am_naw ),& element_type ( \"curium\" , \"Cm\" , 96 , Cm_saw , ice_nan , Cm_naw ),& element_type ( \"berkelium\" , \"Bk\" , 97 , Bk_saw , ice_nan , Bk_naw ),& element_type ( \"californium\" , \"Cf\" , 98 , Cf_saw , ice_nan , Cf_naw ),& element_type ( \"einsteinium\" , \"Es\" , 99 , Es_saw , ice_nan , Es_naw ),& element_type ( \"fermium\" , \"Fm\" , 100 , Fm_saw , ice_nan , Fm_naw ),& element_type ( \"mendelevium\" , \"Md\" , 101 , Md_saw , ice_nan , Md_naw ),& element_type ( \"nobelium\" , \"No\" , 102 , No_saw , ice_nan , No_naw ),& element_type ( \"lawrencium\" , \"Lr\" , 103 , Lr_saw , ice_nan , Lr_naw ),& element_type ( \"rutherfordium\" , \"Rf\" , 104 , Rf_saw , ice_nan , Rf_naw ),& element_type ( \"dubnium\" , \"Db\" , 105 , Db_saw , ice_nan , Db_naw ),& element_type ( \"seaborgium\" , \"Sg\" , 106 , Sg_saw , ice_nan , Sg_naw ),& element_type ( \"bohrium\" , \"Bh\" , 107 , Bh_saw , ice_nan , Bh_naw ),& element_type ( \"hassium\" , \"Hs\" , 108 , Hs_saw , ice_nan , Hs_naw ),& element_type ( \"meitnerium\" , \"Mt\" , 109 , Mt_saw , ice_nan , Mt_naw ),& element_type ( \"darmstadtium\" , \"Ds\" , 110 , Ds_saw , ice_nan , Ds_naw ),& element_type ( \"roentgenium\" , \"Rg\" , 111 , Rg_saw , ice_nan , Rg_naw ),& element_type ( \"copernicium\" , \"Cn\" , 112 , Cn_saw , ice_nan , Cn_naw ),& element_type ( \"nihonium\" , \"Nh\" , 113 , Nh_saw , ice_nan , Nh_naw ),& element_type ( \"flerovium\" , \"Fl\" , 114 , Fl_saw , ice_nan , Fl_naw ),& element_type ( \"moscovium\" , \"Mc\" , 115 , Mc_saw , ice_nan , Mc_naw ),& element_type ( \"livermorium\" , \"Lv\" , 116 , Lv_saw , ice_nan , Lv_naw ),& element_type ( \"tennesine\" , \"Ts\" , 117 , Ts_saw , ice_nan , Ts_naw ),& element_type ( \"organesson\" , \"Og\" , 118 , Og_saw , ice_nan , Og_naw )& ] end module ciaaw__pte","tags":"","loc":"sourcefile/ciaaw_pte.f90.html"},{"title":"ciaaw_version.f90 – ciaaw","text":"Files dependent on this one sourcefile~~ciaaw_version.f90~~AfferentGraph sourcefile~ciaaw_version.f90 ciaaw_version.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_version.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__version !! Version implicit none private character ( len =* ), parameter , public :: version = \"0.5.1\" end module ciaaw__version","tags":"","loc":"sourcefile/ciaaw_version.f90.html"},{"title":"ciaaw_api.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_api.f90~~EfferentGraph sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_version.f90 ciaaw_version.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_version.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_api.f90~~AfferentGraph sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__api !! API !! See [specs](../page/specs/api.html) use ieee_arithmetic , only : ieee_value , ieee_quiet_nan , ieee_is_nan use ciaaw__version use ciaaw__common use ciaaw__types use ciaaw__pte private character ( len = :), allocatable , target :: version_f real ( dp ), allocatable , target :: n_ice_out (:,:) public :: pt public :: element_type , saw_type , ice_type , naw_type public :: get_version public :: get_saw public :: get_ice , get_nice public :: get_naw , get_nnaw public :: get_ice_values contains ! ------------------------------ ----------------------------------------------- ! VERSION function get_version () result ( fptr ) !! Get the version implicit none character ( len = :), pointer :: fptr !! Fortran pointer to a string indicating the version.. if ( allocated ( version_f )) then deallocate ( version_f ) endif allocate ( character ( len = len ( version )) :: version_f ) version_f = version fptr => version_f end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! Base search functions function is_in_pt ( z ) result ( res ) !! Check if the atomic number z is in the periodic table integer ( int32 ), intent ( in ) :: z !! Atomic number logical :: res if (( z < 1 ) . or . ( z > size ( pt ))) then res = . false . else res = . true . end if end function function get_z_by_symbol ( s ) result ( res ) !! Get the atomic number z of the element defined by the symbol s. !! Returns -1 if the element is not found. character ( len =* ), intent ( in ) :: s !! Element symbol integer ( int32 ) :: res !! Atomic number integer ( int32 ) :: i type ( element_type ) :: elmt res = - 1 do i = 1 , size ( pt ) elmt = pt ( i ) if ( s == elmt % symbol ) then res = i exit endif end do end function subroutine print_periodic_table () !! Print periodic table. integer ( int32 ) :: i , j character ( len = 20 ) :: v , u , w character ( len = 15 ) :: header ( 3 ) character ( len = 15 ) :: ice_headers ( 3 ) character ( len = 15 ) :: naw_headers ( 3 ) header = [ character ( len = 20 ) :: \"\" , \"\" , \"\" ] ice_headers = [ character ( len = 15 ) :: \"A\" , \"C /%\" , \"dC /%\" ] naw_headers = [ character ( len = 15 ) :: \"A\" , \"M\" , \"dM\" ] do i = 1 , size ( pt ) print \"(A)\" , \"=============================================\" header ( 1 ) = pt ( i )% symbol header ( 2 ) = pt ( i )% element write ( v , \"(I3)\" ) pt ( i )% z header ( 3 ) = \"z=\" // v print \"(3A15)\" , header print \"(A)\" , \"---------------------------------------------\" print \"(A)\" , \"STANDARD ATOMIC WEIGHTS\" write ( v , \"(F10.5)\" ) pt ( i )% saw % asaw write ( u , \"(F10.5)\" ) pt ( i )% saw % asaw_u print \"(A4, A10, A, A10)\" , \"M = \" , adjustl ( v ), \"+/-\" , adjustl ( u ) print \"(A)\" , \"---------------------------------------------\" print \"(A)\" , \"ISOTOPIC COMPOSITIONS\" print \"(3A15)\" , ice_headers do j = 1 , pt ( i )% ice % n write ( w , \"(I3)\" ) nint ( pt ( i )% ice % values ( j , 1 )) write ( v , \"(ES12.5)\" ) pt ( i )% ice % values ( j , 2 ) write ( u , \"(ES12.5)\" ) pt ( i )% ice % values ( j , 3 ) print \"(3A15)\" , adjustl ( w ), adjustl ( v ), adjustl ( u ) enddo print \"(A)\" , \"---------------------------------------------\" print \"(A)\" , \"NUCLIDE ATOMIC WEIGHTS\" print \"(3A15)\" , naw_headers do j = 1 , pt ( i )% naw % n write ( w , \"(I3)\" ) nint ( pt ( i )% naw % values ( j , 1 )) write ( v , \"(ES12.5)\" ) pt ( i )% naw % values ( j , 2 ) write ( u , \"(ES12.5)\" ) pt ( i )% naw % values ( j , 3 ) print \"(3A15)\" , adjustl ( w ), adjustl ( v ), adjustl ( u ) enddo print \"(A)\" , \"=============================================\" print * , \"\" print * , \"\" end do end subroutine !------------------------------------------------------------------------------- ! ------------------------------------------------------------------------------ ! SAW function get_saw ( s , abridged , uncertainty ) result ( res ) !! Get the standard atomic weight. By default the abridged value is provided. !! If the non abridged value is desired, set abridged to false. !! The uncertainty instead of the value can be retrieved if the uncertainty is set to true. !! Returns NaN if provided symbol is incorrect or -1 if the element does not have a SAW. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. logical , intent ( in ), optional :: abridged !! Flag for returning the abridged standard atomic weight. Default to TRUE. logical , intent ( in ), optional :: uncertainty !! Flag for returning the uncertainty instead of the value. Default to FALSE. ! Returns real ( dp ) :: res ! Variables real ( dp ) :: saw_max , saw_min , saw , saw_u integer ( int32 ) :: z , n logical :: a2 , u2 a2 = optval ( abridged , . true .) u2 = optval ( uncertainty , . false .) z = get_z_by_symbol ( s ) res = ieee_value ( 1.0_dp , ieee_quiet_nan ) if ( z > 0 ) then if ( a2 . eqv . . true .) then if ( u2 . eqv . . true .) then res = pt ( z )% saw % asaw_u else res = pt ( z )% saw % asaw end if else if (( pt ( z )% saw % saw == - 1.0_dp ) . and . ( pt ( z )% saw % saw_max > 0.0_dp ) . and . ( pt ( z )% saw % saw_min > 0.0_dp )) then saw_max = pt ( z )% saw % saw_max saw_min = pt ( z )% saw % saw_min saw = ( saw_max + saw_min ) / 2.0_dp saw_u = ( saw_max - saw_min ) / ( 2.0_dp * sqrt ( 3.0_dp )) n = floor ( log10 ( saw_u )) saw_u = ceiling ( saw_u * 1 0.0_dp ** ( - n )) * 1 0.0_dp ** n saw = nint ( saw * 1 0.0_dp ** ( - n )) * 1 0.0_dp ** n if ( u2 . eqv . . true .) then res = saw_u else res = saw end if else if ( u2 . eqv . . true .) then res = pt ( z )% saw % saw_u else res = pt ( z )% saw % saw end if end if end if end if end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! ICE function get_ice ( s , A , uncertainty ) result ( res ) !! Get the isotopic composition of the element s for the mass number A. !! The uncertainty instead of the value can be retrieved if the uncertainty is set to true. !! Returns NaN if the provided symbol or A are incorrect or -1 if the element does not have an ICE. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. integer ( int32 ), intent ( in ) :: A !! Mass number. logical , intent ( in ), optional :: uncertainty !! Flag for returning the uncertainty instead of the value. Default to FALSE. ! Returns real ( dp ) :: res ! Variables real ( dp ) :: A_double integer ( int32 ) :: i , z , col , row logical :: u2 u2 = optval ( uncertainty , . false .) z = get_z_by_symbol ( s ) A_double = real ( A , dp ) res = ieee_value ( 1.0_dp , ieee_quiet_nan ) if ( u2 . eqv . . true .) then col = 3 else col = 2 endif row = 0 if (( z > 0 ) . and . ( pt ( z )% ice % n > 0 )) then do i = 1 , pt ( z )% ice % n if ( pt ( z )% ice % values ( i , 1 ) == A_double ) then row = i exit endif end do endif if ( row > 0 ) then res = pt ( z )% ice % values ( row , col ) endif end function function get_nice ( s ) result ( res ) !! Get the number of isotopes in ICE. !! Returns -1 if the provided symbol is incorrect. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. ! Returns integer ( int32 ) :: res ! Variables integer ( int32 ) :: z z = get_z_by_symbol ( s ) if ( z > 0 ) then res = pt ( z )% ice % n else res = - 1 endif end function function get_ice_values ( s ) result ( res ) !! Get the (n, 3) values array. See [[ciaaw__types(module):ice_type(type)]]. !! Returns a null pointer if the provided symbol is incorrect. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. ! Returns real ( dp ), pointer :: res (:,:) ! Variables integer ( int32 ) :: z z = get_z_by_symbol ( s ) res => null () if ( allocated ( n_ice_out )) then deallocate ( n_ice_out ) end if if ( z > 0 ) then allocate ( n_ice_out ( pt ( z )% ice % n , 3 )) n_ice_out (:,:) = pt ( z )% ice % values ( 1 : pt ( z )% ice % n ,:) res => n_ice_out else allocate ( n_ice_out ( 1 , 3 )) n_ice_out ( 1 ,:) = ice_nan % values ( 1 ,:) res => null () endif end function ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! NAW function get_naw ( s , A , uncertainty ) result ( res ) !! Get the atomic weight of the nuclide s for the mass number A. !! The uncertainty instead of the value can be retrieved if the uncertainty is set to true. !! Returns NaN if provided symbol or A are incorrect !! or -1 if the element does not have an NAW. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. integer ( int32 ), intent ( in ) :: A !! Mass number. logical , intent ( in ), optional :: uncertainty !! Flag for returning the uncertainty instead of the value. Default to FALSE. ! Returns real ( dp ) :: res ! Variables real ( dp ) :: A_double integer ( int32 ) :: i , z , col , row logical :: u2 u2 = optval ( uncertainty , . false .) z = get_z_by_symbol ( s ) A_double = real ( A , dp ) res = ieee_value ( 1.0_dp , ieee_quiet_nan ) if ( u2 . eqv . . true .) then col = 3 else col = 2 endif row = 0 if (( z > 0 ) . and . ( pt ( z )% naw % n > 0 )) then do i = 1 , pt ( z )% naw % n if ( pt ( z )% naw % values ( i , 1 ) == A_double ) then row = i exit endif end do endif if ( row > 0 ) then res = pt ( z )% naw % values ( row , col ) endif end function function get_nnaw ( s ) result ( res ) !! Get the number of nuclides in NAW. !! Returns -1 if the provided symbol is incorrect. ! Arguments character ( len =* ), intent ( in ) :: s !! Element symbol. ! Returns integer ( int32 ) :: res ! Variables integer ( int32 ) :: z z = get_z_by_symbol ( s ) if ( z > 0 ) then res = pt ( z )% naw % n else res = - 1 endif end function !------------------------------------------------------------------------------- end module","tags":"","loc":"sourcefile/ciaaw_api.f90.html"},{"title":"ciaaw_types.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_types.f90~~EfferentGraph sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_types.f90~~AfferentGraph sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__types !! Derived types for Standard Atomic Weights. use stdlib_string_type , only : string_type use ciaaw__common implicit none private integer ( int32 ), parameter :: NROWS_ICE = 10 integer ( int32 ), parameter :: NROWS_NAW = 50 type , public :: saw_type !! Derived type representing the standard atomic weight of an element. real ( dp ) :: saw_min !! Min standard atomic weight. real ( dp ) :: saw_max !! Max standard atomic weight. real ( dp ) :: saw !! Value standard atomic weight. real ( dp ) :: saw_u !! Uncertainty standard atomic weight. real ( dp ) :: asaw !! Abridged value standard atomic weight. real ( dp ) :: asaw_u !! Abridged uncertainty standard atomic weight. end type type , public :: ice_type !! Derived type reprensenting the isotopic abundance. integer ( int32 ) :: n !! Number of isotopic compositions real ( dp ) :: values ( NROWS_ICE , 3 ) !! Mass numbers, Abundance, Uncertainty end type type , public :: naw_type !! Derived type reprensenting the nuclide's atomic weights. integer ( int32 ) :: n !! Number of atomic weights real ( dp ) :: values ( NROWS_NAW , 3 ) !! Mass numbers, Atomic weight, Uncertainty end type type , public :: element_type !! Derived type representing an element. character ( len = 24 ) :: element !! Element name. character ( len = 8 ) :: symbol !! Element symbol. integer ( int32 ) :: z !! Element atomic number. type ( saw_type ) :: saw !! Standard atomic weights type ( ice_type ) :: ice !! Isotopic composition of the element type ( naw_type ) :: naw !! Atomic weight of the nuclide end type type ( ice_type ), parameter , public :: ice_nan = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) end module ciaaw__types","tags":"","loc":"sourcefile/ciaaw_types.f90.html"},{"title":"ciaaw_ice.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw_ice.f90~~EfferentGraph sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Files dependent on this one sourcefile~~ciaaw_ice.f90~~AfferentGraph sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__ice !! Ciaaw ice - Autogenerated !! See [specs](../page/specs/ciaaw_api.html) use ciaaw__common use ciaaw__types private type ( ice_type ), parameter , public :: H_ice = & ice_type ( 2 , transpose ( reshape ([& 1.0_dp , 0.99984426_dp , 5e-8_dp ,& 2.0_dp , 0.00015574_dp , 5e-8_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: He_ice = & ice_type ( 2 , transpose ( reshape ([& 3.0_dp , 0.000001343_dp , 1 3e-9_dp ,& 4.0_dp , 0.999998657_dp , 1 3e-9_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Li_ice = & ice_type ( 2 , transpose ( reshape ([& 6.0_dp , 0.07589_dp , 2 4e-5_dp ,& 7.0_dp , 0.92411_dp , 2 4e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Be_ice = & ice_type ( 1 , transpose ( reshape ([& 9.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: B_ice = & ice_type ( 2 , transpose ( reshape ([& 1 0.0_dp , 0.1982_dp , 2e-4_dp ,& 1 1.0_dp , 0.8018_dp , 2e-4_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: C_ice = & ice_type ( 2 , transpose ( reshape ([& 1 2.0_dp , 0.988922_dp , 2 8e-6_dp ,& 1 3.0_dp , 0.011078_dp , 2 8e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: N_ice = & ice_type ( 2 , transpose ( reshape ([& 1 4.0_dp , 0.996337_dp , 4e-6_dp ,& 1 5.0_dp , 0.003663_dp , 4e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: O_ice = & ice_type ( 3 , transpose ( reshape ([& 1 6.0_dp , 0.9976206_dp , 9e-7_dp ,& 1 7.0_dp , 0.0003790_dp , 9e-7_dp ,& 1 8.0_dp , 0.0020004_dp , 5e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: F_ice = & ice_type ( 1 , transpose ( reshape ([& 1 9.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ne_ice = & ice_type ( 3 , transpose ( reshape ([& 2 0.0_dp , 0.904838_dp , 9 0e-6_dp ,& 2 1.0_dp , 0.002696_dp , 5e-6_dp ,& 2 2.0_dp , 0.092465_dp , 9 0e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Na_ice = & ice_type ( 1 , transpose ( reshape ([& 2 3.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Mg_ice = & ice_type ( 3 , transpose ( reshape ([& 2 4.0_dp , 0.78951_dp , 1 2e-5_dp ,& 2 5.0_dp , 0.10020_dp , 8e-5_dp ,& 2 6.0_dp , 0.11029_dp , 1 0e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Al_ice = & ice_type ( 1 , transpose ( reshape ([& 2 7.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Si_ice = & ice_type ( 3 , transpose ( reshape ([& 2 8.0_dp , 0.9222968_dp , 4 4e-7_dp ,& 2 9.0_dp , 0.0468316_dp , 3 2e-7_dp ,& 3 0.0_dp , 0.0308716_dp , 3 2e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: P_ice = & ice_type ( 1 , transpose ( reshape ([& 3 1.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: S_ice = & ice_type ( 4 , transpose ( reshape ([& 3 2.0_dp , 0.9504074_dp , 8 8e-7_dp ,& 3 3.0_dp , 0.0074869_dp , 6 0e-7_dp ,& 3 4.0_dp , 0.0419599_dp , 6 6e-7_dp ,& 3 6.0_dp , 0.0001458_dp , 9e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Cl_ice = & ice_type ( 2 , transpose ( reshape ([& 3 5.0_dp , 0.757647_dp , 3 8e-7_dp ,& 3 7.0_dp , 0.242353_dp , 3 8e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ar_ice = & ice_type ( 3 , transpose ( reshape ([& 3 6.0_dp , 0.0033361_dp , 3 5e-7_dp ,& 3 8.0_dp , 0.0006289_dp , 1 2e-7_dp ,& 4 0.0_dp , 0.9960350_dp , 4 2e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: K_ice = & ice_type ( 3 , transpose ( reshape ([& 3 9.0_dp , 0.932581_dp , 2 9e-6_dp ,& 4 0.0_dp , 0.0001167_dp , 4e-7_dp ,& 4 1.0_dp , 0.067302_dp , 2 9e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ca_ice = & ice_type ( 6 , transpose ( reshape ([& 4 0.0_dp , 0.96941_dp , 6e-5_dp ,& 4 2.0_dp , 0.00647_dp , 3e-5_dp ,& 4 3.0_dp , 0.00135_dp , 2e-5_dp ,& 4 4.0_dp , 0.02086_dp , 4e-5_dp ,& 4 6.0_dp , 0.00004_dp , 1e-5_dp ,& 4 8.0_dp , 0.00187_dp , 1e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Sc_ice = & ice_type ( 1 , transpose ( reshape ([& 4 5.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ti_ice = & ice_type ( 5 , transpose ( reshape ([& 4 6.0_dp , 0.08249_dp , 2 1e-5_dp ,& 4 7.0_dp , 0.07437_dp , 1 4e-5_dp ,& 4 8.0_dp , 0.73720_dp , 2 0e-5_dp ,& 4 9.0_dp , 0.05409_dp , 1 0e-5_dp ,& 5 0.0_dp , 0.05185_dp , 1 3e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: V_ice = & ice_type ( 2 , transpose ( reshape ([& 5 0.0_dp , 0.002497_dp , 6e-6_dp ,& 5 1.0_dp , 0.997503_dp , 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Cr_ice = & ice_type ( 4 , transpose ( reshape ([& 5 0.0_dp , 0.043452_dp , 8 5e-6_dp ,& 5 2.0_dp , 0.837895_dp , 11 7e-6_dp ,& 5 3.0_dp , 0.095006_dp , 11 0e-6_dp ,& 5 4.0_dp , 0.023647_dp , 4 8e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Mn_ice = & ice_type ( 1 , transpose ( reshape ([& 5 5.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Fe_ice = & ice_type ( 4 , transpose ( reshape ([& 5 4.0_dp , 0.058450_dp , 23 0e-6_dp ,& 5 6.0_dp , 0.917540_dp , 24 0e-6_dp ,& 5 7.0_dp , 0.021191_dp , 6 5e-6_dp ,& 5 8.0_dp , 0.002819_dp , 2 7e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Co_ice = & ice_type ( 1 , transpose ( reshape ([& 5 9.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ni_ice = & ice_type ( 5 , transpose ( reshape ([& 5 8.0_dp , 0.680769_dp , 5 9e-6_dp ,& 6 0.0_dp , 0.262231_dp , 5 1e-6_dp ,& 6 1.0_dp , 0.011399_dp , 4e-6_dp ,& 6 2.0_dp , 0.036345_dp , 1 1e-6_dp ,& 6 4.0_dp , 0.009256_dp , 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Cu_ice = & ice_type ( 2 , transpose ( reshape ([& 6 3.0_dp , 0.69174_dp , 2 0e-5_dp ,& 6 5.0_dp , 0.30826_dp , 2 0e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Zn_ice = & ice_type ( 5 , transpose ( reshape ([& 6 4.0_dp , 0.491704_dp , 8 3e-6_dp ,& 6 6.0_dp , 0.277306_dp , 11 0e-6_dp ,& 6 7.0_dp , 0.040401_dp , 1 8e-6_dp ,& 6 8.0_dp , 0.184483_dp , 6 9e-6_dp ,& 7 0.0_dp , 0.006106_dp , 1 1e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ga_ice = & ice_type ( 2 , transpose ( reshape ([& 6 9.0_dp , 0.601079_dp , 6 2e-6_dp ,& 7 1.0_dp , 0.398921_dp , 6 2e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ge_ice = & ice_type ( 5 , transpose ( reshape ([& 7 0.0_dp , 0.20526_dp , 4 6e-5_dp ,& 7 2.0_dp , 0.27446_dp , 1 5e-5_dp ,& 7 3.0_dp , 0.07760_dp , 2 5e-5_dp ,& 7 4.0_dp , 0.36523_dp , 6 3e-5_dp ,& 7 6.0_dp , 0.07745_dp , 3 5e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: As_ice = & ice_type ( 1 , transpose ( reshape ([& 7 5.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Se_ice = & ice_type ( 6 , transpose ( reshape ([& 7 4.0_dp , 0.00863_dp , 3e-5_dp ,& 7 6.0_dp , 0.09220_dp , 6e-5_dp ,& 7 7.0_dp , 0.07594_dp , 4e-5_dp ,& 7 8.0_dp , 0.23685_dp , 1 4e-5_dp ,& 8 0.0_dp , 0.49813_dp , 1 6e-5_dp ,& 8 2.0_dp , 0.08825_dp , 8e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Br_ice = & ice_type ( 2 , transpose ( reshape ([& 7 9.0_dp , 0.50686_dp , 2 5e-5_dp ,& 8 1.0_dp , 0.49314_dp , 3 6e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Kr_ice = & ice_type ( 6 , transpose ( reshape ([& 7 8.0_dp , 0.0035518_dp , 3 2e-7_dp ,& 8 0.0_dp , 0.0228560_dp , 9 6e-7_dp ,& 8 2.0_dp , 0.115930_dp , 6 2e-6_dp ,& 8 3.0_dp , 0.114996_dp , 5 8e-6_dp ,& 8 4.0_dp , 0.569877_dp , 5 8e-6_dp ,& 8 6.0_dp , 0.172790_dp , 3 2e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Rb_ice = & ice_type ( 2 , transpose ( reshape ([& 8 5.0_dp , 0.721654_dp , 13 2e-6_dp ,& 8 7.0_dp , 0.278346_dp , 13 2e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Sr_ice = & ice_type ( 4 , transpose ( reshape ([& 8 4.0_dp , 0.005574_dp , 1 6e-6_dp ,& 8 6.0_dp , 0.098566_dp , 3 4e-6_dp ,& 8 7.0_dp , 0.070015_dp , 2 6e-6_dp ,& 8 8.0_dp , 0.825845_dp , 6 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Y_ice = & ice_type ( 1 , transpose ( reshape ([& 8 9.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Zr_ice = & ice_type ( 5 , transpose ( reshape ([& 9 0.0_dp , 0.51452_dp , 9e-5_dp ,& 9 1.0_dp , 0.11223_dp , 1 2e-5_dp ,& 9 2.0_dp , 0.17146_dp , 7e-5_dp ,& 9 4.0_dp , 0.17380_dp , 1 2e-5_dp ,& 9 6.0_dp , 0.02799_dp , 5e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Nb_ice = & ice_type ( 1 , transpose ( reshape ([& 9 3.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Mo_ice = & ice_type ( 7 , transpose ( reshape ([& 9 2.0_dp , 0.14649_dp , 1 7e-5_dp ,& 9 4.0_dp , 0.09187_dp , 5e-5_dp ,& 9 5.0_dp , 0.15873_dp , 5e-5_dp ,& 9 6.0_dp , 0.16673_dp , 2e-5_dp ,& 9 7.0_dp , 0.09582_dp , 3e-5_dp ,& 9 8.0_dp , 0.24292_dp , 1 4e-5_dp ,& 10 0.0_dp , 0.09744_dp , 1 0e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Tc_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ru_ice = & ice_type ( 7 , transpose ( reshape ([& 9 6.0_dp , 0.055420_dp , 1e-6_dp ,& 9 8.0_dp , 0.018688_dp , 2e-6_dp ,& 9 9.0_dp , 0.127579_dp , 6e-6_dp ,& 10 0.0_dp , 0.125985_dp , 4e-6_dp ,& 10 1.0_dp , 0.170600_dp , 1 0e-6_dp ,& 10 2.0_dp , 0.315519_dp , 1 1e-6_dp ,& 10 4.0_dp , 0.186210_dp , 1 1e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Rh_ice = & ice_type ( 1 , transpose ( reshape ([& 10 3.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pd_ice = & ice_type ( 6 , transpose ( reshape ([& 10 2.0_dp , 0.0102_dp , 1e-4_dp ,& 10 4.0_dp , 0.1114_dp , 5e-4_dp ,& 10 5.0_dp , 0.2233_dp , 5e-4_dp ,& 10 6.0_dp , 0.2733_dp , 2e-6_dp ,& 10 8.0_dp , 0.2646_dp , 6e-6_dp ,& 11 0.0_dp , 0.1172_dp , 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ag_ice = & ice_type ( 2 , transpose ( reshape ([& 10 7.0_dp , 0.518392_dp , 5 1e-6_dp ,& 10 9.0_dp , 0.481608_dp , 6 1e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Cd_ice = & ice_type ( 8 , transpose ( reshape ([& 10 6.0_dp , 0.01249_dp , 5e-5_dp ,& 10 8.0_dp , 0.00890_dp , 2e-5_dp ,& 11 0.0_dp , 0.12485_dp , 1 4e-5_dp ,& 11 1.0_dp , 0.12804_dp , 8e-5_dp ,& 11 2.0_dp , 0.24117_dp , 3e-5_dp ,& 11 3.0_dp , 0.12225_dp , 1e-5_dp ,& 11 4.0_dp , 0.28729_dp , 1 8e-5_dp ,& 11 6.0_dp , 0.07501_dp , 1 8e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: In_ice = & ice_type ( 2 , transpose ( reshape ([& 11 3.0_dp , 0.04271_dp , 1 7e-5_dp ,& 11 5.0_dp , 0.95719_dp , 1 7e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Sn_ice = & ice_type ( 10 , transpose ( reshape ([& 11 2.0_dp , 0.00973_dp , 3e-5_dp ,& 11 4.0_dp , 0.00659_dp , 3e-5_dp ,& 11 5.0_dp , 0.00339_dp , 3e-5_dp ,& 11 6.0_dp , 0.14536_dp , 3 1e-5_dp ,& 11 7.0_dp , 0.07676_dp , 2 2e-5_dp ,& 11 8.0_dp , 0.24223_dp , 3 0e-5_dp ,& 11 9.0_dp , 0.08585_dp , 1 3e-5_dp ,& 12 0.0_dp , 0.32593_dp , 2 0e-5_dp ,& 12 2.0_dp , 0.04629_dp , 9e-5_dp ,& 12 4.0_dp , 0.05789_dp , 1 7e-5_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Sb_ice = & ice_type ( 2 , transpose ( reshape ([& 12 1.0_dp , 0.57213_dp , 3 2e-5_dp ,& 12 3.0_dp , 0.42787_dp , 3 2e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Te_ice = & ice_type ( 8 , transpose ( reshape ([& 12 0.0_dp , 0.00096_dp , 1e-5_dp ,& 12 2.0_dp , 0.02603_dp , 1e-5_dp ,& 12 3.0_dp , 0.00908_dp , 1e-5_dp ,& 12 4.0_dp , 0.04816_dp , 2e-5_dp ,& 12 5.0_dp , 0.07139_dp , 2e-5_dp ,& 12 6.0_dp , 0.18952_dp , 4e-5_dp ,& 12 8.0_dp , 0.31687_dp , 4e-5_dp ,& 13 0.0_dp , 0.33799_dp , 3e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: I_ice = & ice_type ( 1 , transpose ( reshape ([& 12 7.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Xe_ice = & ice_type ( 9 , transpose ( reshape ([& 12 4.0_dp , 0.000952_dp , 3e-6_dp ,& 12 6.0_dp , 0.000890_dp , 2e-6_dp ,& 12 8.0_dp , 0.019102_dp , 8e-6_dp ,& 12 9.0_dp , 0.264006_dp , 8 2e-6_dp ,& 13 0.0_dp , 0.040710_dp , 1 3e-6_dp ,& 13 1.0_dp , 0.212324_dp , 3 0e-6_dp ,& 13 2.0_dp , 0.269086_dp , 3 3e-6_dp ,& 13 4.0_dp , 0.104357_dp , 2 1e-6_dp ,& 13 6.0_dp , 0.088573_dp , 4 4e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Cs_ice = & ice_type ( 1 , transpose ( reshape ([& 13 3.0_dp , 1.000000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ba_ice = & ice_type ( 7 , transpose ( reshape ([& 13 0.0_dp , 0.001058_dp , 2e-6_dp ,& 13 2.0_dp , 0.001012_dp , 2e-6_dp ,& 13 4.0_dp , 0.024170_dp , 3 0e-6_dp ,& 13 5.0_dp , 0.065920_dp , 2 0e-6_dp ,& 13 6.0_dp , 0.078532_dp , 4 0e-6_dp ,& 13 7.0_dp , 0.112317_dp , 4 0e-6_dp ,& 13 8.0_dp , 0.716991_dp , 7 0e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: La_ice = & ice_type ( 2 , transpose ( reshape ([& 13 8.0_dp , 0.0008881_dp , 2 4e-7_dp ,& 13 9.0_dp , 0.9991119_dp , 2 4e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ce_ice = & ice_type ( 4 , transpose ( reshape ([& 13 6.0_dp , 0.00186_dp , 1e-5_dp ,& 13 8.0_dp , 0.00251_dp , 1e-5_dp ,& 14 0.0_dp , 0.88449_dp , 3 4e-5_dp ,& 14 2.0_dp , 0.11114_dp , 3 4e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pr_ice = & ice_type ( 1 , transpose ( reshape ([& 14 1.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Nd_ice = & ice_type ( 7 , transpose ( reshape ([& 14 2.0_dp , 0.27153_dp , 1 9e-5_dp ,& 14 3.0_dp , 0.12173_dp , 1 8e-5_dp ,& 14 4.0_dp , 0.23798_dp , 1 2e-5_dp ,& 14 5.0_dp , 0.08293_dp , 7e-5_dp ,& 14 6.0_dp , 0.17189_dp , 1 7e-5_dp ,& 14 8.0_dp , 0.05756_dp , 8e-5_dp ,& 15 0.0_dp , 0.05638_dp , 9e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pm_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Sm_ice = & ice_type ( 7 , transpose ( reshape ([& 14 4.0_dp , 0.03078_dp , 1 4e-5_dp ,& 14 7.0_dp , 0.15004_dp , 5 4e-5_dp ,& 14 8.0_dp , 0.11248_dp , 3 6e-5_dp ,& 14 9.0_dp , 0.13824_dp , 4 0e-5_dp ,& 15 0.0_dp , 0.07365_dp , 3 4e-5_dp ,& 15 2.0_dp , 0.26740_dp , 3 6e-5_dp ,& 15 4.0_dp , 0.22741_dp , 5 6e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Eu_ice = & ice_type ( 2 , transpose ( reshape ([& 15 1.0_dp , 0.47810_dp , 4 2e-5_dp ,& 15 3.0_dp , 0.52190_dp , 4 2e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Gd_ice = & ice_type ( 7 , transpose ( reshape ([& 15 2.0_dp , 0.002029_dp , 4e-6_dp ,& 15 4.0_dp , 0.021809_dp , 4e-6_dp ,& 15 5.0_dp , 0.147998_dp , 1 7e-6_dp ,& 15 6.0_dp , 0.204664_dp , 6e-6_dp ,& 15 7.0_dp , 0.156518_dp , 9e-6_dp ,& 15 8.0_dp , 0.248347_dp , 1 6e-6_dp ,& 16 0.0_dp , 0.218635_dp , 7e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Tb_ice = & ice_type ( 1 , transpose ( reshape ([& 15 9.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Dy_ice = & ice_type ( 7 , transpose ( reshape ([& 15 6.0_dp , 0.00056_dp , 2e-5_dp ,& 15 8.0_dp , 0.00095_dp , 2e-5_dp ,& 16 0.0_dp , 0.02329_dp , 1 2e-5_dp ,& 16 1.0_dp , 0.18889_dp , 2 8e-5_dp ,& 16 2.0_dp , 0.25475_dp , 2 4e-5_dp ,& 16 3.0_dp , 0.24896_dp , 2 8e-5_dp ,& 16 4.0_dp , 0.28260_dp , 3 6e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ho_ice = & ice_type ( 1 , transpose ( reshape ([& 16 5.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Er_ice = & ice_type ( 6 , transpose ( reshape ([& 16 2.0_dp , 0.001391_dp , 3 0e-6_dp ,& 16 4.0_dp , 0.016006_dp , 2 0e-6_dp ,& 16 6.0_dp , 0.335014_dp , 24 0e-6_dp ,& 16 7.0_dp , 0.228724_dp , 6 0e-6_dp ,& 16 8.0_dp , 0.269852_dp , 12 0e-6_dp ,& 17 0.0_dp , 0.149013_dp , 24 0e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Tm_ice = & ice_type ( 1 , transpose ( reshape ([& 16 9.0_dp , 1.00000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Yb_ice = & ice_type ( 7 , transpose ( reshape ([& 16 8.0_dp , 0.00123_dp , 1e-5_dp ,& 17 0.0_dp , 0.02982_dp , 6e-5_dp ,& 17 1.0_dp , 0.14086_dp , 2 0e-5_dp ,& 17 2.0_dp , 0.21686_dp , 1 9e-5_dp ,& 17 3.0_dp , 0.16103_dp , 9e-5_dp ,& 17 4.0_dp , 0.32025_dp , 1 2e-5_dp ,& 17 6.0_dp , 0.12995_dp , 1 3e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Lu_ice = & ice_type ( 2 , transpose ( reshape ([& 17 5.0_dp , 0.974013_dp , 1 2e-5_dp ,& 17 6.0_dp , 0.025987_dp , 1 2e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Hf_ice = & ice_type ( 6 , transpose ( reshape ([& 17 4.0_dp , 0.001620_dp , 9e-5_dp ,& 17 6.0_dp , 0.052604_dp , 5 6e-6_dp ,& 17 7.0_dp , 0.185953_dp , 1 2e-6_dp ,& 17 8.0_dp , 0.272811_dp , 2 2e-6_dp ,& 17 9.0_dp , 0.136210_dp , 9e-6_dp ,& 18 0.0_dp , 0.350802_dp , 2 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ta_ice = & ice_type ( 2 , transpose ( reshape ([& 18 0.0_dp , 0.0001201_dp , 8e-7_dp ,& 18 1.0_dp , 0.9998799_dp , 8e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: W_ice = & ice_type ( 5 , transpose ( reshape ([& 18 0.0_dp , 0.001198_dp , 2e-6_dp ,& 18 2.0_dp , 0.264985_dp , 4 9e-6_dp ,& 18 3.0_dp , 0.143136_dp , 6e-6_dp ,& 18 4.0_dp , 0.306422_dp , 1 3e-6_dp ,& 18 6.0_dp , 0.284259_dp , 6 2e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Re_ice = & ice_type ( 2 , transpose ( reshape ([& 18 5.0_dp , 0.37398_dp , 1 6e-5_dp ,& 18 7.0_dp , 0.62602_dp , 1 6e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Os_ice = & ice_type ( 7 , transpose ( reshape ([& 18 4.0_dp , 0.000197_dp , 5e-6_dp ,& 18 6.0_dp , 0.015859_dp , 4 4e-6_dp ,& 18 7.0_dp , 0.019644_dp , 1 2e-6_dp ,& 18 8.0_dp , 0.132434_dp , 1 9e-6_dp ,& 18 9.0_dp , 0.161466_dp , 1 6e-6_dp ,& 19 0.0_dp , 0.262584_dp , 1 4e-6_dp ,& 19 2.0_dp , 0.407815_dp , 2 2e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ir_ice = & ice_type ( 2 , transpose ( reshape ([& 19 1.0_dp , 0.37272_dp , 1 5e-5_dp ,& 19 3.0_dp , 0.62728_dp , 1 5e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pt_ice = & ice_type ( 6 , transpose ( reshape ([& 19 0.0_dp , 0.00012_dp , 1e-5_dp ,& 19 2.0_dp , 0.00782_dp , 8e-5_dp ,& 19 4.0_dp , 0.32864_dp , 14 0e-5_dp ,& 19 5.0_dp , 0.33775_dp , 7 9e-5_dp ,& 19 6.0_dp , 0.25211_dp , 11 0e-5_dp ,& 19 8.0_dp , 0.07357_dp , 4 3e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Au_ice = & ice_type ( 1 , transpose ( reshape ([& 19 7.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Hg_ice = & ice_type ( 7 , transpose ( reshape ([& 19 6.0_dp , 0.00155_dp , 4e-5_dp ,& 19 8.0_dp , 0.10038_dp , 1 0e-5_dp ,& 19 9.0_dp , 0.16938_dp , 9e-5_dp ,& 20 0.0_dp , 0.23138_dp , 6e-5_dp ,& 20 1.0_dp , 0.13170_dp , 7 0e-5_dp ,& 20 2.0_dp , 0.29743_dp , 9e-5_dp ,& 20 4.0_dp , 0.06818_dp , 6e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Tl_ice = & ice_type ( 2 , transpose ( reshape ([& 20 3.0_dp , 0.29524_dp , 9e-5_dp ,& 20 5.0_dp , 0.70476_dp , 9e-5_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pb_ice = & ice_type ( 4 , transpose ( reshape ([& 20 4.0_dp , 0.014245_dp , 1 2e-6_dp ,& 20 6.0_dp , 0.241447_dp , 5 7e-6_dp ,& 20 7.0_dp , 0.220827_dp , 2 7e-6_dp ,& 20 8.0_dp , 0.523481_dp , 8 6e-6_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Bi_ice = & ice_type ( 1 , transpose ( reshape ([& 20 9.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Po_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: At_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Rn_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Fr_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ra_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Ac_ice = & ice_type ( 0 , transpose ( reshape ([& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Th_ice = & ice_type ( 2 , transpose ( reshape ([& 23 0.0_dp , 0.00001138_dp , 2e-8_dp ,& 23 2.0_dp , 0.99998862_dp , 2e-8_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: Pa_ice = & ice_type ( 1 , transpose ( reshape ([& 23 1.0_dp , 1.0000_dp , 0.0000_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) type ( ice_type ), parameter , public :: U_ice = & ice_type ( 3 , transpose ( reshape ([& 23 4.0_dp , 0.0000542_dp , 4e-7_dp ,& 23 5.0_dp , 0.0072041_dp , 3 6e-7_dp ,& 23 8.0_dp , 0.9927417_dp , 3 6e-7_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp ,& - 1.0_dp , - 1.0_dp , - 1.0_dp & ], shape = [ 3 , 10 ]))) end module ciaaw__ice","tags":"","loc":"sourcefile/ciaaw_ice.f90.html"},{"title":"ciaaw_common.f90 – ciaaw","text":"Files dependent on this one sourcefile~~ciaaw_common.f90~~AfferentGraph sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw__common !! Common parameters use stdlib_kinds , only : int64 , dp , int32 , sp use stdlib_optval , only : optval use ieee_arithmetic , only : ieee_quiet_nan , ieee_value private public optval public :: sp , dp , int32 , int64 end module","tags":"","loc":"sourcefile/ciaaw_common.f90.html"},{"title":"ciaaw.f90 – ciaaw","text":"This file depends on sourcefile~~ciaaw.f90~~EfferentGraph sourcefile~ciaaw.f90 ciaaw.f90 sourcefile~ciaaw_api.f90 ciaaw_api.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90 ciaaw_capi.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_capi.f90 sourcefile~ciaaw_pte.f90 ciaaw_pte.f90 sourcefile~ciaaw.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_pte.f90 sourcefile~ciaaw_common.f90 ciaaw_common.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_types.f90 ciaaw_types.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_version.f90 ciaaw_version.f90 sourcefile~ciaaw_api.f90->sourcefile~ciaaw_version.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_api.f90 sourcefile~ciaaw_capi.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90 ciaaw_ice.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_ice.f90 sourcefile~ciaaw_naw.f90 ciaaw_naw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_naw.f90 sourcefile~ciaaw_saw.f90 ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_saw.f90 sourcefile~ciaaw_pte.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_ice.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_naw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_common.f90 sourcefile~ciaaw_saw.f90->sourcefile~ciaaw_types.f90 sourcefile~ciaaw_types.f90->sourcefile~ciaaw_common.f90 Help Graph Key Nodes of different colours represent the following: Graph Key Source File Source File This Page's Entity This Page's Entity Solid arrows point from a file to a file which it depends on. A file\nis dependent upon another if the latter must be compiled before the former\ncan be. Where possible, edges connecting nodes are\ngiven different colours to make them easier to distinguish in\nlarge graphs. Source Code module ciaaw !! Main module for the CIAAW library. use ciaaw__pte use ciaaw__api use ciaaw__capi end module","tags":"","loc":"sourcefile/ciaaw.f90.html"},{"title":"Contributing and specs – ciaaw","text":"Standard atomic weights according to CIAAW.","tags":"","loc":"page/index.html"},{"title":"Changelog – ciaaw","text":"0.5.1 Code refactoring. Documentation update. Full changelog 0.5.0 API break: Data for standard atomic weights are no directly accessed. SAW, ICE and NAW are stored in derived types for each elements. Each element is stored in a periodic table. Element properties are now accessed through getters. Doc update. Full changelog available at github 0.4.3 Refractoring. Documentation update. Full changelog available at github 0.4.2 Refractoring. Documentation update. Merge back C API and Python wrapper. Full changelog available at github 0.4.1 Fix bug in max value for saw. Full changelog available at github 0.4.0 Fix type error in tests Refractoring Documentation update. Full changelog available at github 0.3.0 Code refactoring. Move C API and Python wrapper to their own repositories. Improve documentatinon. Full changelog available at github 0.2.0 Fix error in phosphorus name. Possibility to have standard atomic weights for several years. Full changelog available at github 0.1.0 All elements from the periodic table added for the saw module. They are implemented as parameter derived type. Full changelog available at github","tags":"","loc":"page/changelog.html"},{"title":"Examples – ciaaw","text":"Fortran C Python Fortran program example_in_f use ciaaw implicit none character ( len = 8 ) :: s ! ASAW = Abridged Standard Atomic Weight ! SAW  = Standard Atomic Weight ! ICE  = Isotopic Composition of the Element ! NAW  = Nuclide Atomic Weight ! U    = Uncertainty print '(A)' , '########### CIAAW VERSION ##########' print * , \"version \" , get_version () print '(A)' , '########### CIAAW SAW ##########' print '(A10, F10.5)' , 'ASAW H   = ' , get_saw ( \"H\" , abridged = . true .) print '(A10, F10.5)' , 'U ASAW H = ' , get_saw ( \"H\" , uncertainty = . true .) print '(A10, F10.5)' , 'SAW H    = ' , get_saw ( \"H\" , abridged = . false .) print '(A10, F10.5)' , 'U SAW H  =  ' , get_saw ( \"H\" , abridged = . false ., uncertainty = . true .) print '(A10, F10.5)' , 'ASAW T   = ' , get_saw ( \"Tc\" , abridged = . true .) print '(A)' , '########### CIAAW ICE ##########' print '(A, I3)' , 'N ICE H    = ' , get_nice ( \"H\" ) print '(A, F12.6)' , 'ICE H 1    = ' , get_ice ( \"H\" , A = 1 ) print '(A, ES23.16)' , 'U ICE H 1  = ' , get_ice ( \"H\" , A = 1 , uncertainty = . true .) print '(A, F12.6)' , 'ICE H 2    = ' , get_ice ( \"H\" , A = 2 ) print '(A, ES23.16)' , 'U ICE H 2  = ' , get_ice ( \"H\" , A = 2 , uncertainty = . true .) print '(A, I3)' , 'N ICE Tc   = ' , get_nice ( \"Tc\" ) print '(A, I3)' , 'N ICE C    = ' , get_nice ( \"C\" ) print '(A)' , '########### CIAAW NAW ##########' print '(A, ES23.16)' , 'NAW H 2     = ' , get_naw ( \"H\" , A = 2 ) print '(A, ES23.16)' , 'U NAW H 2   = ' , get_naw ( \"H\" , A = 2 , uncertainty = . true .) print '(A, I3)' , 'N NAW Tc    = ' , get_nnaw ( \"Tc\" ) end program C #include <stdlib.h> #include <stdio.h> #include <string.h> #include <stdbool.h> #include \"ciaaw.h\" // ASAW = Abridged Standard Atomic Weight // SAW  = Standard Atomic Weight // ICE  = Isotopic Composition of the Element // NAW  = Nuclide Atomic Weight // U    = Uncertainty int main ( void ){ printf ( \"%s \\n \" , \"########## CIAAW VERSION ##########\" ); printf ( \"version %s \\n \" , ciaaw_get_version ()); printf ( \"%s \\n \" , \"########## CIAAW SAW ##########\" ); printf ( \"%s %10.5f \\n \" , \"ASAW H   = \" , ciaaw_get_saw ( \"H\" , 1 , true , false )); printf ( \"%s %10.5f \\n \" , \"U ASAW H = \" , ciaaw_get_saw ( \"H\" , 1 , true , true )); printf ( \"%s %10.5f \\n \" , \"SAW H    = \" , ciaaw_get_saw ( \"H\" , 1 , false , false )); printf ( \"%s %10.5f \\n \" , \"U SAW H  = \" , ciaaw_get_saw ( \"H\" , 1 , false , true )); printf ( \"%s %10.5f \\n \" , \"ASAW Tc  = \" , ciaaw_get_saw ( \"Tc\" , 2 , true , false )); printf ( \"%s \\n \" , \"########## CIAAW ICE ##########\" ); printf ( \"%s %d \\n \" , \"N ICE H      = \" , ciaaw_get_nice ( \"H\" , 1 )); printf ( \"%s %12.6f \\n \" , \"ICE H 1      = \" , ciaaw_get_ice ( \"H\" , 1 , 1 , false )); printf ( \"%s %23.16e \\n \" , \"U ICE H 1    = \" , ciaaw_get_ice ( \"H\" , 1 , 1 , true )); printf ( \"%s %12.6f \\n \" , \"ICE H 2      = \" , ciaaw_get_ice ( \"H\" , 1 , 2 , false )); printf ( \"%s %23.16e \\n \" , \"U ICE H 2    = \" , ciaaw_get_ice ( \"H\" , 1 , 2 , true )); printf ( \"%s %d \\n \" , \"N ICE Tc     = \" , ciaaw_get_nice ( \"Tc\" , 2 )); printf ( \"%s %d \\n \" , \"N ICE C      = \" , ciaaw_get_nice ( \"C\" , 1 )); printf ( \"%s \\n \" , \"########## CIAAW NAW ##########\" ); printf ( \"%s %23.16f \\n \" , \"NAW H 2      = \" , ciaaw_get_naw ( \"H\" , 1 , 2 , false )); printf ( \"%s %23.16e \\n \" , \"U NAW H 2    = \" , ciaaw_get_naw ( \"H\" , 1 , 2 , true )); printf ( \"%s %d \\n \" , \"N NAW Tc     = \" , ciaaw_get_nnaw ( \"Tc\" , 2 )); return EXIT_SUCCESS ; } Python r \"\"\"Example in python\"\"\" import sys sys . path . insert ( 0 , \"../py/src/\" ) import pyciaaw # ASAW = Abridged Standard Atomic Weight # SAW  = Standard Atomic Weight # ICE  = Isotopic Composition of the Element # NAW  = Nuclide Atomic Weight # U    = Uncertainty print ( \"########## CIAAW VERSION ##########\" ) print ( \"version \" , pyciaaw . __version__ ) print ( \"########## CIAAW SAW  ##########\" ) print ( \"ASAW H   = \" , pyciaaw . get_saw ( \"H\" )) print ( \"U ASAW H = \" , pyciaaw . get_saw ( \"H\" , uncertainty = True )) print ( \"SAW H    = \" , pyciaaw . get_saw ( \"H\" , abridged = False , uncertainty = False )) print ( \"U SAW H  = \" , pyciaaw . get_saw ( \"H\" , abridged = False , uncertainty = True )) print ( \"ASAW Tc  = \" , pyciaaw . get_saw ( \"Tc\" )) print ( \"########## CIAAW ICE  ##########\" ) print ( \"N ICE H   = \" , pyciaaw . get_nice ( \"H\" )) print ( 'ICE H 1   = ' , pyciaaw . get_ice ( \"H\" , A = 1 )) print ( 'U ICE H 1 = ' , pyciaaw . get_ice ( \"H\" , A = 1 , uncertainty = True )) print ( 'ICE H 2   = ' , pyciaaw . get_ice ( \"H\" , A = 2 )) print ( 'U ICE H 2 = ' , pyciaaw . get_ice ( \"H\" , A = 2 , uncertainty = True )) print ( \"N ICE Tc  = \" , pyciaaw . get_nice ( \"Tc\" )) print ( \"N ICE C   = \" , pyciaaw . get_nice ( \"C\" )) print ( \"########## CIAAW NAW  ##########\" ) print ( 'NAW H 2   = ' , pyciaaw . get_naw ( \"H\" , A = 2 )) print ( 'U NAW H 2 = ' , pyciaaw . get_naw ( \"H\" , A = 2 , uncertainty = True )) print ( \"N NAW Tc  = \" , pyciaaw . get_nnaw ( \"Tc\" ))","tags":"","loc":"page/examples.html"},{"title":"License – ciaaw","text":"MIT License Copyright (c) Milan Skocic Permission is hereby granted, free of charge, to any person obtaining\na copy of this software and associated documentation files (the\n“Software”), to deal in the Software without restriction, including\nwithout limitation the rights to use, copy, modify, merge, publish,\ndistribute, sublicense, and/or sell copies of the Software, and to\npermit persons to whom the Software is furnished to do so, subject to\nthe following conditions: The above copyright notice and this permission notice shall be\nincluded in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED “AS IS”, WITHOUT WARRANTY OF ANY KIND,\nEXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF\nMERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND\nNONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE\nLIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION\nOF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION\nWITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.","tags":"","loc":"page/license.html"},{"title":"References – ciaaw","text":"A. Possolo, A. M. H. van der Veen, J. Meija, and D. B. Hibbert, “Interpreting and propagating the uncertainty of the standard atomic weights (iupac technical report),” Pure and Applied Chemistry, vol. 90, no. 2, pp. 395–424, 2018. A. M. H. van der Veen, J. Meija, A. Possolo, and D. B. Hibbert, “Interpretation and use of standard atomic weights (iupac technical report),” Pure and Applied Chemistry, vol. 93, no. 5, pp. 629–646, 2021. T. Prohaska, J. Irrgeher, J. Benefield, J. K. Böhlke, L. A. Chesson, T. B. Coplen, T. Ding, P. J. H. Dunn, M. Gr ̈öning, N. E. Holden, H. A. J. Meijer, H. Moossen, A. Possolo, Y. Takahashi, J. Vogl, T. Walczyk, J. Wang, M. E. Wieser, S. Yoneda, X.-K. Zhu, and J. Meija, “Standard atomic weights of the elements 2021 (iupac technical report),” Pure and Applied Chemistry, vol. 94, no. 5, pp. 573–600, 2022. J. Meija et al., “Isotopic compositions of the elements 2013 (IUPAC Technical Report)”, Pure and Applied Chemistry, vol. 88, nᵒ 3, p. 293‑306, 2016.” Huang et al.,  “The AME 2020 atomic mass evaluation (I). Evaluation of input data, and adjustment procedures”, Chinese Physics C, vol. 45, n°3, p.030002, 2021.","tags":"","loc":"page/references.html"},{"title":"Specifications (specs) – ciaaw","text":"This is an index/directory of the specifications (specs) for each module. API C API - Prototypes for C language.","tags":"","loc":"page/specs/index.html"},{"title":"API – ciaaw","text":"Description The modules ciaaw__saw , ciaaw__ice , ciaaw__naw and ciaaw__pte are\nautomatically generated with a simple script written in Python. All elements from the periodic table pt are directly accessible. \nThe data for the standard atomic weights ciaaw__saw , the isotopic compositions ciaaw__ice of the elements\nand the nuclide atomic weights ciaaw__naw are also directly accessible \nthrough the element_type . Nonetheless, convenient getters are available for accessing the desired data for an elements\nwithout having to access to whole periodic table pt get_saw get_ice get_nice get_naw SAW: Standard Atomic Weights The latest standard atomic weights were released in 2021 by the ciaaw .\nAll the values for the atomic weights are provided as double precision reals in a derived type saw_type . The standard atomic weights (or realtive atomic mass), , \nare extracted from table 1 Prohaska et al. 2022 . For the elements\nthat feature an interval for the standard atomic weight, the mean value and the uncertainty are computed\nusing formulas defined in Van der Veen et al. 2021 . The standard atomic weights are a dimensionless quantity and thus they need to be multiplied by \nthe molar mass constant in order to get the value in . \nSee codata for physical constants. ICE: Isotopic Compositions of the Element The latest isotopic compositions were released in 2013 by the ciaaw .\nAll the values for the compositions are provided as double precision reals in a derived type ice_type .\nThe isotopic compositions of the element, are extracted from table 1 Meija et al. 2013 . NAW: Nuclide Atomic Weights The latest atomic weights for nuclides were released in 2020 by ciaaw from Huang et al. 2021 .\nAll the values for the nuclide atomic weights are provided as double precision reals in derived type naw_type .","tags":"","loc":"page/specs/api.html"},{"title":"C API – ciaaw","text":"The prototypes of the C API are defined as shown below. #ifndef CIAAW_H #define CIAAW_H #if _MSC_VER #define ADD_IMPORT __declspec(dllimport) #else #define ADD_IMPORT #endif #include <stdbool.h> extern char * ciaaw_get_version ( void ); extern double ciaaw_get_saw ( char * s , int n , bool abridged , bool uncertainty ); extern double ciaaw_get_ice ( char * s , int n , int A , bool uncertainty ); extern int ciaaw_get_nice ( char * s , int n ); extern double ciaaw_get_naw ( char * s , int n , int A , bool uncertaintuy ); extern int ciaaw_get_nnaw ( char * s , int n ); #endif","tags":"","loc":"page/specs/capi.html"}]}
\ No newline at end of file
diff --git a/docs/type/element_type.html b/docs/type/element_type.html
index 17f885f..857cc86 100644
--- a/docs/type/element_type.html
+++ b/docs/type/element_type.html
@@ -420,7 +420,7 @@ <h2>Components</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/type/ice_type.html b/docs/type/ice_type.html
index fbeed84..c422fce 100644
--- a/docs/type/ice_type.html
+++ b/docs/type/ice_type.html
@@ -316,7 +316,7 @@ <h2>Components</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/type/naw_type.html b/docs/type/naw_type.html
index ad0ad62..d12a145 100644
--- a/docs/type/naw_type.html
+++ b/docs/type/naw_type.html
@@ -316,7 +316,7 @@ <h2>Components</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>
diff --git a/docs/type/saw_type.html b/docs/type/saw_type.html
index c5ed670..78135ec 100644
--- a/docs/type/saw_type.html
+++ b/docs/type/saw_type.html
@@ -388,7 +388,7 @@ <h2>Components</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-12-29T08:49:15.500531             </p>
+ on 2024-12-29T09:00:59.580291             </p>
           </div>
         </div>
         <br>