diff --git a/docs/index.html b/docs/index.html
index 6c49e46..abae522 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -237,7 +237,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/lists/files.html b/docs/lists/files.html
index 722e707..89759a0 100644
--- a/docs/lists/files.html
+++ b/docs/lists/files.html
@@ -113,20 +113,20 @@ <h1>Source Files</h1>
 			 <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: file~~graph~~FileGraph Pages: 1 -->
-<svg id="filegraphFileGraph" width="570pt" height="245pt"
- viewBox="0.00 0.00 570.00 244.85" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="file~~graph~~FileGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 240.85)">
+<svg id="filegraphFileGraph" width="533pt" height="239pt"
+ viewBox="0.00 0.00 533.33 238.99" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="file~~graph~~FileGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 234.99)">
 <title>file~~graph~~FileGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-240.85 566,-240.85 566,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-234.99 529.33,-234.99 529.33,4 -4,4"/>
 <!-- sourcefile~capi.f90 -->
 <g id="file~~graph~~FileGraph_node1" class="node">
 <title>sourcefile~capi.f90</title>
 <g id="a_file~~graph~~FileGraph_node1"><a xlink:href="../sourcefile/capi.f90.html" xlink:title="capi.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="154,-80.49 99,-80.49 99,-56.49 154,-56.49 154,-80.49"/>
-<text text-anchor="middle" x="126.5" y="-66.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="146.52,-77.3 92.52,-77.3 92.52,-54.53 146.52,-54.53 146.52,-77.3"/>
+<text text-anchor="middle" x="119.52" y="-61.56" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
 </a>
 </g>
 </g>
@@ -134,53 +134,53 @@ <h1>Source Files</h1>
 <g id="file~~graph~~FileGraph_node6" class="node">
 <title>sourcefile~iapws.f90</title>
 <g id="a_file~~graph~~FileGraph_node6"><a xlink:href="../sourcefile/iapws.f90.html" xlink:title="iapws.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="63,-80.49 0,-80.49 0,-56.49 63,-56.49 63,-80.49"/>
-<text text-anchor="middle" x="31.5" y="-66.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="56.52,-77.3 0,-77.3 0,-54.53 56.52,-54.53 56.52,-77.3"/>
+<text text-anchor="middle" x="28.26" y="-61.56" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~iapws.f90 -->
 <g id="file~~graph~~FileGraph_edge8" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~iapws.f90</title>
-<path fill="none" stroke="#00ffff" d="M98.6,-68.49C90.74,-68.49 81.97,-68.49 73.46,-68.49"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="73.27,-64.99 63.27,-68.49 73.27,-71.99 73.27,-64.99"/>
+<path fill="none" stroke="#00ffff" d="M92.22,-65.91C84.76,-65.91 76.47,-65.91 68.42,-65.91"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="68.44,-62.41 58.44,-65.91 68.44,-69.41 68.44,-62.41"/>
 </g>
 <!-- sourcefile~capi_g704.f90 -->
 <g id="file~~graph~~FileGraph_node2" class="node">
 <title>sourcefile~capi_g704.f90</title>
 <g id="a_file~~graph~~FileGraph_node2"><a xlink:href="../sourcefile/capi_g704.f90.html" xlink:title="capi_g704.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="284,-38.49 196,-38.49 196,-14.49 284,-14.49 284,-38.49"/>
-<text text-anchor="middle" x="240" y="-24.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_g704.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="266.79,-36.3 187.77,-36.3 187.77,-13.53 266.79,-13.53 266.79,-36.3"/>
+<text text-anchor="middle" x="227.28" y="-20.56" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_g704.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_g704.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="file~~graph~~FileGraph_edge1" class="edge">
 <title>sourcefile~capi_g704.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" d="M207.05,-38.53C193.59,-43.6 177.84,-49.53 163.93,-54.77"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="162.31,-51.64 154.18,-58.44 164.77,-58.19 162.31,-51.64"/>
+<path fill="none" stroke="#ff0000" d="M195.69,-36.77C183.71,-41.42 169.85,-46.79 157.33,-51.64"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="156.21,-48.32 148.15,-55.2 158.74,-54.85 156.21,-48.32"/>
 </g>
 <!-- sourcefile~capi_r283.f90 -->
 <g id="file~~graph~~FileGraph_node3" class="node">
 <title>sourcefile~capi_r283.f90</title>
 <g id="a_file~~graph~~FileGraph_node3"><a xlink:href="../sourcefile/capi_r283.f90.html" xlink:title="capi_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="282.5,-80.49 197.5,-80.49 197.5,-56.49 282.5,-56.49 282.5,-80.49"/>
-<text text-anchor="middle" x="240" y="-66.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="265.66,-77.3 188.89,-77.3 188.89,-54.53 265.66,-54.53 265.66,-77.3"/>
+<text text-anchor="middle" x="227.28" y="-61.56" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_r283.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="file~~graph~~FileGraph_edge2" class="edge">
 <title>sourcefile~capi_r283.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" d="M197.48,-68.49C186.62,-68.49 174.98,-68.49 164.37,-68.49"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="164.18,-64.99 154.18,-68.49 164.18,-71.99 164.18,-64.99"/>
+<path fill="none" stroke="#ff0000" d="M188.4,-65.91C178.62,-65.91 168.1,-65.91 158.33,-65.91"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="158.39,-62.41 148.39,-65.91 158.39,-69.41 158.39,-62.41"/>
 </g>
 <!-- sourcefile~capi_r797.f90 -->
 <g id="file~~graph~~FileGraph_node4" class="node">
 <title>sourcefile~capi_r797.f90</title>
 <g id="a_file~~graph~~FileGraph_node4"><a xlink:href="../sourcefile/capi_r797.f90.html" xlink:title="capi_r797.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="282.5,-202.49 197.5,-202.49 197.5,-178.49 282.5,-178.49 282.5,-202.49"/>
-<text text-anchor="middle" x="240" y="-188.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r797.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="265.66,-196.3 188.89,-196.3 188.89,-173.53 265.66,-173.53 265.66,-196.3"/>
+<text text-anchor="middle" x="227.28" y="-180.56" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r797.f90</text>
 </a>
 </g>
 </g>
@@ -188,112 +188,112 @@ <h1>Source Files</h1>
 <g id="file~~graph~~FileGraph_node5" class="node">
 <title>sourcefile~capi_version.f90</title>
 <g id="a_file~~graph~~FileGraph_node5"><a xlink:href="../sourcefile/capi_version.f90.html" xlink:title="capi_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="290,-122.49 190,-122.49 190,-98.49 290,-98.49 290,-122.49"/>
-<text text-anchor="middle" x="240" y="-108.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_version.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="272.04,-118.3 182.52,-118.3 182.52,-95.53 272.04,-95.53 272.04,-118.3"/>
+<text text-anchor="middle" x="227.28" y="-102.56" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_version.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_version.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="file~~graph~~FileGraph_edge3" class="edge">
 <title>sourcefile~capi_version.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" d="M207.05,-98.46C193.59,-93.39 177.84,-87.46 163.93,-82.22"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="164.77,-78.79 154.18,-78.54 162.31,-85.35 164.77,-78.79"/>
+<path fill="none" stroke="#ff0000" d="M195.69,-95.05C183.71,-90.41 169.85,-85.04 157.33,-80.18"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="158.74,-76.98 148.15,-76.62 156.21,-83.5 158.74,-76.98"/>
 </g>
 <!-- sourcefile~iapws_g704.f90 -->
 <g id="file~~graph~~FileGraph_node7" class="node">
 <title>sourcefile~iapws_g704.f90</title>
 <g id="a_file~~graph~~FileGraph_node7"><a xlink:href="../sourcefile/iapws_g704.f90.html" xlink:title="iapws_g704.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="427,-38.49 332,-38.49 332,-14.49 427,-14.49 427,-38.49"/>
-<text text-anchor="middle" x="379.5" y="-24.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_g704.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.81,-36.3 313.29,-36.3 313.29,-13.53 399.81,-13.53 399.81,-36.3"/>
+<text text-anchor="middle" x="356.55" y="-20.56" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_g704.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws_g704.f90&#45;&gt;sourcefile~capi_g704.f90 -->
 <g id="file~~graph~~FileGraph_edge4" class="edge">
 <title>sourcefile~iapws_g704.f90&#45;&gt;sourcefile~capi_g704.f90</title>
-<path fill="none" stroke="#ff9900" d="M331.95,-26.49C319.9,-26.49 306.83,-26.49 294.45,-26.49"/>
-<polygon fill="#ff9900" stroke="#ff9900" points="294.26,-22.99 284.26,-26.49 294.26,-29.99 294.26,-22.99"/>
+<path fill="none" stroke="#ff9900" d="M312.82,-24.91C301.88,-24.91 290.02,-24.91 278.74,-24.91"/>
+<polygon fill="#ff9900" stroke="#ff9900" points="278.77,-21.41 268.77,-24.91 278.77,-28.41 278.77,-21.41"/>
 </g>
 <!-- sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws.f90 -->
 <g id="file~~graph~~FileGraph_edge9" class="edge">
 <title>sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws.f90</title>
-<path fill="none" stroke="#00ffff" d="M336.54,-14.43C321.94,-10.79 305.37,-7.29 290,-5.49 245.86,-0.33 233.64,2.91 190,-5.49 144.14,-14.33 94.65,-36.39 63.63,-51.91"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="61.95,-48.84 54.63,-56.49 65.13,-55.08 61.95,-48.84"/>
+<path fill="none" stroke="#00ffff" d="M314.69,-13.1C301.23,-9.75 286.11,-6.57 272.04,-4.91 232.53,-0.25 221.6,2.58 182.52,-4.91 138.74,-13.3 91.54,-34.04 61.27,-49.01"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="60,-45.73 52.65,-53.35 63.15,-51.98 60,-45.73"/>
 </g>
 <!-- sourcefile~iapws_r283.f90 -->
 <g id="file~~graph~~FileGraph_node8" class="node">
 <title>sourcefile~iapws_r283.f90</title>
 <g id="a_file~~graph~~FileGraph_node8"><a xlink:href="../sourcefile/iapws_r283.f90.html" xlink:title="iapws_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="562,-161.49 469,-161.49 469,-137.49 562,-137.49 562,-161.49"/>
-<text text-anchor="middle" x="515.5" y="-147.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="525.33,-137.3 441.06,-137.3 441.06,-114.53 525.33,-114.53 525.33,-137.3"/>
+<text text-anchor="middle" x="483.19" y="-121.56" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws_r283.f90&#45;&gt;sourcefile~capi_r283.f90 -->
 <g id="file~~graph~~FileGraph_edge5" class="edge">
 <title>sourcefile~iapws_r283.f90&#45;&gt;sourcefile~capi_r283.f90</title>
-<path fill="none" stroke="#cbff00" d="M486.15,-137.36C470.62,-130.97 450.94,-123.28 433,-117.49 386.11,-102.37 331.6,-88.83 292.67,-79.84"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="293.15,-76.36 282.62,-77.54 291.59,-83.18 293.15,-76.36"/>
+<path fill="none" stroke="#cbff00" d="M440.66,-114.21C429.16,-111.07 416.65,-107.77 405.06,-104.91 361.96,-94.3 312.62,-83.53 277.04,-76"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="277.98,-72.62 267.47,-73.99 276.54,-79.47 277.98,-72.62"/>
 </g>
 <!-- sourcefile~iapws_r283.f90&#45;&gt;sourcefile~iapws.f90 -->
 <g id="file~~graph~~FileGraph_edge10" class="edge">
 <title>sourcefile~iapws_r283.f90&#45;&gt;sourcefile~iapws.f90</title>
-<path fill="none" stroke="#00ffff" d="M503.13,-161.53C488.47,-176.17 461.46,-200.31 433,-211.49 353.19,-242.86 326.34,-238.9 241,-230.49"/>
+<path fill="none" stroke="#00ffff" d="M474.65,-137.78C462.47,-155.8 436.61,-189.58 405.06,-204.91 333.98,-239.44 306.92,-231.7 228.28,-223.91"/>
 </g>
 <!-- sourcefile~iapws_r283.f90&#45;&gt;sourcefile~iapws_g704.f90 -->
 <g id="file~~graph~~FileGraph_edge13" class="edge">
 <title>sourcefile~iapws_r283.f90&#45;&gt;sourcefile~iapws_g704.f90</title>
-<path fill="none" stroke="#0066ff" d="M501.24,-137.27C485.12,-122.41 457.09,-96.59 433,-74.49 422.62,-64.97 411.07,-54.41 401.45,-45.62"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="403.63,-42.87 393.89,-38.71 398.91,-48.04 403.63,-42.87"/>
+<path fill="none" stroke="#0066ff" d="M471.41,-114.18C457.12,-99 430.69,-72.2 405.06,-52.91 400.31,-49.33 395.06,-45.84 389.84,-42.61"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="391.66,-39.62 381.27,-37.52 388.08,-45.63 391.66,-39.62"/>
 </g>
 <!-- sourcefile~iapws_r797.f90 -->
 <g id="file~~graph~~FileGraph_node9" class="node">
 <title>sourcefile~iapws_r797.f90</title>
 <g id="a_file~~graph~~FileGraph_node9"><a xlink:href="../sourcefile/iapws_r797.f90.html" xlink:title="iapws_r797.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="426,-202.49 333,-202.49 333,-178.49 426,-178.49 426,-202.49"/>
-<text text-anchor="middle" x="379.5" y="-188.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r797.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="398.68,-196.3 314.41,-196.3 314.41,-173.53 398.68,-173.53 398.68,-196.3"/>
+<text text-anchor="middle" x="356.55" y="-180.56" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r797.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws_r283.f90&#45;&gt;sourcefile~iapws_r797.f90 -->
 <g id="file~~graph~~FileGraph_edge14" class="edge">
 <title>sourcefile~iapws_r283.f90&#45;&gt;sourcefile~iapws_r797.f90</title>
-<path fill="none" stroke="#cc00ff" d="M475.02,-161.57C460.83,-165.91 444.66,-170.86 429.74,-175.43"/>
-<polygon fill="#cc00ff" stroke="#cc00ff" points="428.7,-172.09 420.16,-178.36 430.75,-178.78 428.7,-172.09"/>
+<path fill="none" stroke="#cc00ff" d="M457.27,-137.71C438.76,-146.47 413.26,-158.54 392.68,-168.28"/>
+<polygon fill="#cc00ff" stroke="#cc00ff" points="391.34,-165.04 383.8,-172.49 394.34,-171.37 391.34,-165.04"/>
 </g>
 <!-- sourcefile~iapws_r797.f90&#45;&gt;sourcefile~capi_r797.f90 -->
 <g id="file~~graph~~FileGraph_edge6" class="edge">
 <title>sourcefile~iapws_r797.f90&#45;&gt;sourcefile~capi_r797.f90</title>
-<path fill="none" stroke="#33ff00" d="M332.71,-190.49C320.02,-190.49 306.14,-190.49 293.11,-190.49"/>
-<polygon fill="#33ff00" stroke="#33ff00" points="292.88,-186.99 282.88,-190.49 292.88,-193.99 292.88,-186.99"/>
+<path fill="none" stroke="#33ff00" d="M314.23,-184.91C302.46,-184.91 289.52,-184.91 277.34,-184.91"/>
+<polygon fill="#33ff00" stroke="#33ff00" points="277.46,-181.41 267.46,-184.91 277.46,-188.41 277.46,-181.41"/>
 </g>
 <!-- sourcefile~iapws_r797.f90&#45;&gt;sourcefile~iapws.f90 -->
 <g id="file~~graph~~FileGraph_edge11" class="edge">
 <title>sourcefile~iapws_r797.f90&#45;&gt;sourcefile~iapws.f90</title>
-<path fill="none" stroke="#00ffff" d="M356.14,-202.64C329.34,-215.86 282.81,-234.61 241,-230.49"/>
-<path fill="none" stroke="#00ffff" d="M239,-230.49C186.61,-225.33 174.33,-214.54 127.5,-190.49"/>
+<path fill="none" stroke="#00ffff" d="M334.91,-196.7C310.16,-209.53 267.14,-227.76 228.28,-223.91"/>
+<path fill="none" stroke="#00ffff" d="M226.28,-223.91C176.43,-218.97 165.08,-207.8 120.52,-184.91"/>
 </g>
 <!-- sourcefile~iapws_version.f90 -->
 <g id="file~~graph~~FileGraph_node10" class="node">
 <title>sourcefile~iapws_version.f90</title>
 <g id="a_file~~graph~~FileGraph_node10"><a xlink:href="../sourcefile/iapws_version.f90.html" xlink:title="iapws_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="433,-150.49 326,-150.49 326,-126.49 433,-126.49 433,-150.49"/>
-<text text-anchor="middle" x="379.5" y="-136.09" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_version.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405.06,-136.3 308.04,-136.3 308.04,-113.53 405.06,-113.53 405.06,-136.3"/>
+<text text-anchor="middle" x="356.55" y="-120.56" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_version.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws_version.f90&#45;&gt;sourcefile~capi_version.f90 -->
 <g id="file~~graph~~FileGraph_edge7" class="edge">
 <title>sourcefile~iapws_version.f90&#45;&gt;sourcefile~capi_version.f90</title>
-<path fill="none" stroke="#00ff66" d="M325.73,-127.75C317.35,-126.04 308.63,-124.27 300.11,-122.53"/>
-<polygon fill="#00ff66" stroke="#00ff66" points="300.74,-119.09 290.24,-120.52 299.34,-125.95 300.74,-119.09"/>
+<path fill="none" stroke="#00ff66" d="M307.8,-118.16C299.93,-117.05 291.73,-115.89 283.7,-114.75"/>
+<polygon fill="#00ff66" stroke="#00ff66" points="284.41,-111.31 274.02,-113.38 283.43,-118.25 284.41,-111.31"/>
 </g>
 <!-- sourcefile~iapws_version.f90&#45;&gt;sourcefile~iapws.f90 -->
 <g id="file~~graph~~FileGraph_edge12" class="edge">
 <title>sourcefile~iapws_version.f90&#45;&gt;sourcefile~iapws.f90</title>
-<path fill="none" stroke="#00ffff" d="M325.63,-144.87C287.58,-150.02 235.22,-158.26 190,-169.49 161.56,-176.56 153.83,-203.36 127.5,-190.49"/>
-<path fill="none" stroke="#00ffff" d="M125.5,-190.49C83.54,-168.95 55.12,-118.82 41.6,-89.97"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="44.73,-88.41 37.43,-80.73 38.35,-91.29 44.73,-88.41"/>
+<path fill="none" stroke="#00ffff" d="M307.91,-134.79C273,-142.3 224.57,-153.29 182.52,-164.91 154.61,-172.62 146.49,-197.72 120.52,-184.91"/>
+<path fill="none" stroke="#00ffff" d="M118.52,-184.91C78.34,-164.27 51.4,-116.29 38.36,-87.96"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="41.6,-86.63 34.37,-78.88 35.19,-89.44 41.6,-86.63"/>
 </g>
 </g>
 </svg>
@@ -312,25 +312,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -362,7 +362,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/lists/modules.html b/docs/lists/modules.html
index 372af9b..3e92799 100644
--- a/docs/lists/modules.html
+++ b/docs/lists/modules.html
@@ -125,20 +125,20 @@ <h1>Modules</h1>
              <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~graph~~ModuleGraph Pages: 1 -->
-<svg id="modulegraphModuleGraph" width="702pt" height="305pt"
- viewBox="0.00 0.00 702.00 304.78" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~graph~~ModuleGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 300.78)">
+<svg id="modulegraphModuleGraph" width="660pt" height="297pt"
+ viewBox="0.00 0.00 659.60 297.23" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~graph~~ModuleGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 293.23)">
 <title>module~~graph~~ModuleGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-300.78 698,-300.78 698,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-293.23 655.6,-293.23 655.6,4 -4,4"/>
 <!-- module~iapws -->
 <g id="module~~graph~~ModuleGraph_node1" class="node">
 <title>module~iapws</title>
 <g id="a_module~~graph~~ModuleGraph_node1"><a xlink:href="../module/iapws.html" xlink:title="iapws">
-<polygon fill="#337ab7" stroke="#337ab7" points="694,-131.78 640,-131.78 640,-107.78 694,-107.78 694,-131.78"/>
-<text text-anchor="middle" x="667" y="-117.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="651.6,-128.06 597.6,-128.06 597.6,-105.29 651.6,-105.29 651.6,-128.06"/>
+<text text-anchor="middle" x="624.6" y="-112.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
 </a>
 </g>
 </g>
@@ -146,267 +146,267 @@ <h1>Modules</h1>
 <g id="module~~graph~~ModuleGraph_node2" class="node">
 <title>module~iapws__capi</title>
 <g id="a_module~~graph~~ModuleGraph_node2"><a xlink:href="../module/iapws__capi.html" xlink:title="iapws__capi">
-<polygon fill="#337ab7" stroke="#337ab7" points="604,-131.78 528,-131.78 528,-107.78 604,-107.78 604,-131.78"/>
-<text text-anchor="middle" x="566" y="-117.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="561.6,-128.06 491.58,-128.06 491.58,-105.29 561.6,-105.29 561.6,-128.06"/>
+<text text-anchor="middle" x="526.59" y="-112.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__capi -->
 <g id="module~~graph~~ModuleGraph_edge1" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__capi</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M639.99,-119.78C632.08,-119.78 623.14,-119.78 614.28,-119.78"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="614,-116.28 604,-119.78 614,-123.28 614,-116.28"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M597.11,-116.67C589.72,-116.67 581.46,-116.67 573.3,-116.67"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="573.43,-113.17 563.43,-116.67 573.43,-120.17 573.43,-113.17"/>
 </g>
 <!-- module~iapws__g704 -->
 <g id="module~~graph~~ModuleGraph_node7" class="node">
 <title>module~iapws__g704</title>
 <g id="a_module~~graph~~ModuleGraph_node7"><a xlink:href="../module/iapws__g704.html" xlink:title="iapws__g704">
-<polygon fill="#337ab7" stroke="#337ab7" points="329,-214.78 249,-214.78 249,-190.78 329,-190.78 329,-214.78"/>
-<text text-anchor="middle" x="289" y="-200.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__g704</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="303.44,-209.06 228.92,-209.06 228.92,-186.29 303.44,-186.29 303.44,-209.06"/>
+<text text-anchor="middle" x="266.18" y="-193.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__g704</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__g704 -->
 <g id="module~~graph~~ModuleGraph_edge2" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__g704</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M654.54,-132.05C622.53,-164.87 528.23,-251.73 433,-244.78"/>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M431,-244.78C411.49,-246.45 364.75,-231.05 330.41,-218.43"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="331.24,-215 320.64,-214.79 328.79,-221.56 331.24,-215"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M613.15,-128.2C583.16,-159.92 493.06,-245.64 401.32,-238.67"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M399.32,-238.67C381.25,-240.14 338.55,-225.63 306.55,-213.46"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="308.16,-210.33 297.57,-210 305.64,-216.86 308.16,-210.33"/>
 </g>
 <!-- module~iapws__r283 -->
 <g id="module~~graph~~ModuleGraph_node8" class="node">
 <title>module~iapws__r283</title>
 <g id="a_module~~graph~~ModuleGraph_node8"><a xlink:href="../module/iapws__r283.html" xlink:title="iapws__r283">
-<polygon fill="#337ab7" stroke="#337ab7" points="197,-175.78 119,-175.78 119,-151.78 197,-151.78 197,-175.78"/>
-<text text-anchor="middle" x="158" y="-161.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="181.29,-170.06 109.02,-170.06 109.02,-147.29 181.29,-147.29 181.29,-170.06"/>
+<text text-anchor="middle" x="145.16" y="-154.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__r283 -->
 <g id="module~~graph~~ModuleGraph_edge3" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M644.37,-107.65C604.2,-86.17 514.73,-43.18 433,-37.78"/>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M431,-37.78C348.11,-21.51 315.01,24.7 242,-17.78 195.84,-44.63 173.24,-107.81 164.12,-141.57"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="160.69,-140.87 161.62,-151.42 167.47,-142.59 160.69,-140.87"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M603,-104.91C564.73,-84.07 479.45,-42.32 401.32,-36.67"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M399.32,-36.67C322.15,-21.03 290.96,23.58 223.29,-16.67 179.48,-42.73 159,-103.33 150.81,-136.31"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="147.5,-135.09 148.66,-145.62 154.32,-136.66 147.5,-135.09"/>
 </g>
 <!-- module~iapws__r797 -->
 <g id="module~~graph~~ModuleGraph_node9" class="node">
 <title>module~iapws__r797</title>
 <g id="a_module~~graph~~ModuleGraph_node9"><a xlink:href="../module/iapws__r797.html" xlink:title="iapws__r797">
-<polygon fill="#337ab7" stroke="#337ab7" points="328,-256.78 250,-256.78 250,-232.78 328,-232.78 328,-256.78"/>
-<text text-anchor="middle" x="289" y="-242.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r797</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="302.31,-250.06 230.04,-250.06 230.04,-227.29 302.31,-227.29 302.31,-250.06"/>
+<text text-anchor="middle" x="266.18" y="-234.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r797</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__r797 -->
 <g id="module~~graph~~ModuleGraph_edge4" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__r797</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M431,-244.78C400.18,-247.42 365.44,-247.46 338.15,-246.81"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="338.17,-243.31 328.08,-246.54 337.98,-250.31 338.17,-243.31"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M399.32,-238.67C371.09,-240.97 339.36,-241.05 314.07,-240.52"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="314.17,-237.02 304.09,-240.27 313.99,-244.02 314.17,-237.02"/>
 </g>
 <!-- module~iapws__version -->
 <g id="module~~graph~~ModuleGraph_node10" class="node">
 <title>module~iapws__version</title>
 <g id="a_module~~graph~~ModuleGraph_node10"><a xlink:href="../module/iapws__version.html" xlink:title="iapws__version">
-<polygon fill="#337ab7" stroke="#337ab7" points="335,-50.78 243,-50.78 243,-26.78 335,-26.78 335,-50.78"/>
-<text text-anchor="middle" x="289" y="-36.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__version</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="308.69,-48.06 223.67,-48.06 223.67,-25.29 308.69,-25.29 308.69,-48.06"/>
+<text text-anchor="middle" x="266.18" y="-32.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__version</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__version -->
 <g id="module~~graph~~ModuleGraph_edge5" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__version</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M431,-37.78C402.75,-35.91 371.25,-35.93 345.2,-36.52"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="345.04,-33.02 335.13,-36.78 345.22,-40.02 345.04,-33.02"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M399.32,-36.67C373.36,-34.8 344.46,-34.58 320.33,-34.93"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="320.34,-31.43 310.41,-35.11 320.47,-38.42 320.34,-31.43"/>
 </g>
 <!-- module~iapws__capi_g704 -->
 <g id="module~~graph~~ModuleGraph_node3" class="node">
 <title>module~iapws__capi_g704</title>
 <g id="a_module~~graph~~ModuleGraph_node3"><a xlink:href="../module/iapws__capi_g704.html" xlink:title="iapws__capi_g704">
-<polygon fill="#337ab7" stroke="#337ab7" points="486,-173.78 378,-173.78 378,-149.78 486,-149.78 486,-173.78"/>
-<text text-anchor="middle" x="432" y="-159.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_g704</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="450.33,-169.06 350.31,-169.06 350.31,-146.29 450.33,-146.29 450.33,-169.06"/>
+<text text-anchor="middle" x="400.32" y="-153.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_g704</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_g704 -->
 <g id="module~~graph~~ModuleGraph_edge6" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_g704</title>
-<path fill="none" stroke="#ff9900" stroke-dasharray="5,2" d="M527.88,-131.59C513.24,-136.24 496.24,-141.65 480.71,-146.6"/>
-<polygon fill="#ff9900" stroke="#ff9900" points="479.23,-143.4 470.76,-149.76 481.35,-150.07 479.23,-143.4"/>
+<path fill="none" stroke="#ff9900" stroke-dasharray="5,2" d="M491.3,-127.98C477.91,-132.4 462.33,-137.54 447.95,-142.29"/>
+<polygon fill="#ff9900" stroke="#ff9900" points="447.07,-138.89 438.67,-145.35 449.26,-145.54 447.07,-138.89"/>
 </g>
 <!-- module~iapws__capi_r783 -->
 <g id="module~~graph~~ModuleGraph_node4" class="node">
 <title>module~iapws__capi_r783</title>
 <g id="a_module~~graph~~ModuleGraph_node4"><a xlink:href="../module/iapws__capi_r783.html" xlink:title="iapws__capi_r783">
-<polygon fill="#337ab7" stroke="#337ab7" points="485,-131.78 379,-131.78 379,-107.78 485,-107.78 485,-131.78"/>
-<text text-anchor="middle" x="432" y="-117.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r783</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="449.2,-128.06 351.44,-128.06 351.44,-105.29 449.2,-105.29 449.2,-128.06"/>
+<text text-anchor="middle" x="400.32" y="-112.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r783</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_r783 -->
 <g id="module~~graph~~ModuleGraph_edge7" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_r783</title>
-<path fill="none" stroke="#ff9900" stroke-dasharray="5,2" d="M527.88,-119.78C517.72,-119.78 506.43,-119.78 495.27,-119.78"/>
-<polygon fill="#ff9900" stroke="#ff9900" points="495.11,-116.28 485.11,-119.78 495.11,-123.28 495.11,-116.28"/>
+<path fill="none" stroke="#ff9900" stroke-dasharray="5,2" d="M491.3,-116.67C481.81,-116.67 471.22,-116.67 460.73,-116.67"/>
+<polygon fill="#ff9900" stroke="#ff9900" points="460.96,-113.17 450.96,-116.67 460.96,-120.17 460.96,-113.17"/>
 </g>
 <!-- module~iapws__capi_version -->
 <g id="module~~graph~~ModuleGraph_node6" class="node">
 <title>module~iapws__capi_version</title>
 <g id="a_module~~graph~~ModuleGraph_node6"><a xlink:href="../module/iapws__capi_version.html" xlink:title="iapws__capi_version">
-<polygon fill="#337ab7" stroke="#337ab7" points="492,-89.78 372,-89.78 372,-65.78 492,-65.78 492,-89.78"/>
-<text text-anchor="middle" x="432" y="-75.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_version</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="455.58,-87.06 345.06,-87.06 345.06,-64.29 455.58,-64.29 455.58,-87.06"/>
+<text text-anchor="middle" x="400.32" y="-71.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_version</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_version -->
 <g id="module~~graph~~ModuleGraph_edge8" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_version</title>
-<path fill="none" stroke="#ff9900" stroke-dasharray="5,2" d="M527.88,-107.97C513.24,-103.31 496.24,-97.9 480.71,-92.96"/>
-<polygon fill="#ff9900" stroke="#ff9900" points="481.35,-89.49 470.76,-89.79 479.23,-96.16 481.35,-89.49"/>
+<path fill="none" stroke="#ff9900" stroke-dasharray="5,2" d="M491.3,-105.36C477.91,-100.94 462.33,-95.8 447.95,-91.06"/>
+<polygon fill="#ff9900" stroke="#ff9900" points="449.26,-87.8 438.67,-87.99 447.07,-94.45 449.26,-87.8"/>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;module~iapws__g704 -->
 <g id="module~~graph~~ModuleGraph_edge11" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;module~iapws__g704</title>
-<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M389.46,-173.86C373.72,-178.43 355.64,-183.69 339.26,-188.45"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="337.94,-185.19 329.31,-191.35 339.89,-191.91 337.94,-185.19"/>
+<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M360.39,-169.46C345.93,-173.83 329.37,-178.85 314.26,-183.42"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="313.57,-179.97 305.02,-186.22 315.6,-186.67 313.57,-179.97"/>
 </g>
 <!-- iso_c_binding -->
 <g id="module~~graph~~ModuleGraph_node12" class="node">
 <title>iso_c_binding</title>
 <g id="a_module~~graph~~ModuleGraph_node12"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="331,-130.78 247,-130.78 247,-106.78 331,-106.78 331,-130.78"/>
-<text text-anchor="middle" x="289" y="-116.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="304.56,-127.06 227.79,-127.06 227.79,-104.29 304.56,-104.29 304.56,-127.06"/>
+<text text-anchor="middle" x="266.18" y="-111.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;iso_c_binding -->
 <g id="module~~graph~~ModuleGraph_edge9" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M391.35,-149.68C375.14,-144.74 356.23,-138.97 339.16,-133.77"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="339.94,-130.35 329.35,-130.78 337.9,-137.04 339.94,-130.35"/>
+<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M362.16,-145.86C347.66,-141.25 330.85,-135.91 315.44,-131.01"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="316.55,-127.69 305.96,-128 314.43,-134.36 316.55,-127.69"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~graph~~ModuleGraph_node13" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~graph~~ModuleGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/iso_fortran_env" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="336,-172.78 242,-172.78 242,-148.78 336,-148.78 336,-172.78"/>
-<text text-anchor="middle" x="289" y="-158.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="309.06,-168.06 223.29,-168.06 223.29,-145.29 309.06,-145.29 309.06,-168.06"/>
+<text text-anchor="middle" x="266.18" y="-152.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;iso_fortran_env -->
 <g id="module~~graph~~ModuleGraph_edge10" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M377.69,-161.4C367.52,-161.33 356.83,-161.25 346.56,-161.18"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="346.48,-157.68 336.45,-161.11 346.43,-164.68 346.48,-157.68"/>
+<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M350.11,-157.3C340.52,-157.23 330.41,-157.15 320.68,-157.08"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="321.02,-153.58 310.99,-157 320.97,-160.58 321.02,-153.58"/>
 </g>
 <!-- module~iapws__capi_r783&#45;&gt;module~iapws__r283 -->
 <g id="module~~graph~~ModuleGraph_edge13" class="edge">
 <title>module~iapws__capi_r783&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#33ff00" stroke-dasharray="5,2" d="M399.29,-107.73C360.97,-95.04 295.02,-79.27 242,-97.78 215.71,-106.95 191.51,-128.33 176.11,-144.28"/>
-<polygon fill="#33ff00" stroke="#33ff00" points="173.55,-141.9 169.29,-151.6 178.67,-146.67 173.55,-141.9"/>
+<path fill="none" stroke="#33ff00" stroke-dasharray="5,2" d="M368.8,-104.89C332.94,-92.87 272.14,-78.26 223.29,-95.67 199.46,-104.17 177.68,-123.53 163.39,-138.56"/>
+<polygon fill="#33ff00" stroke="#33ff00" points="161.05,-135.93 156.89,-145.68 166.22,-140.65 161.05,-135.93"/>
 </g>
 <!-- module~iapws__capi_r783&#45;&gt;iso_c_binding -->
 <g id="module~~graph~~ModuleGraph_edge12" class="edge">
 <title>module~iapws__capi_r783&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#33ff00" stroke-dasharray="5,2" d="M378.9,-119.41C366.64,-119.32 353.58,-119.23 341.36,-119.14"/>
-<polygon fill="#33ff00" stroke="#33ff00" points="341.35,-115.64 331.32,-119.07 341.3,-122.64 341.35,-115.64"/>
+<path fill="none" stroke="#33ff00" stroke-dasharray="5,2" d="M351.24,-116.31C339.73,-116.22 327.43,-116.13 315.89,-116.04"/>
+<polygon fill="#33ff00" stroke="#33ff00" points="316.2,-112.54 306.17,-115.97 316.14,-119.54 316.2,-112.54"/>
 </g>
 <!-- module~iapws__capi_r797 -->
 <g id="module~~graph~~ModuleGraph_node5" class="node">
 <title>module~iapws__capi_r797</title>
 <g id="a_module~~graph~~ModuleGraph_node5"><a xlink:href="../module/iapws__capi_r797.html" xlink:title="iapws__capi_r797">
-<polygon fill="#337ab7" stroke="#337ab7" points="485,-296.78 379,-296.78 379,-272.78 485,-272.78 485,-296.78"/>
-<text text-anchor="middle" x="432" y="-282.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r797</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="449.2,-289.06 351.44,-289.06 351.44,-266.29 449.2,-266.29 449.2,-289.06"/>
+<text text-anchor="middle" x="400.32" y="-273.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r797</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_r797&#45;&gt;module~iapws__r797 -->
 <g id="module~~graph~~ModuleGraph_edge15" class="edge">
 <title>module~iapws__capi_r797&#45;&gt;module~iapws__r797</title>
-<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M388.7,-272.78C372.84,-268.28 354.71,-263.13 338.35,-258.49"/>
-<polygon fill="#00ff66" stroke="#00ff66" points="339.01,-255.04 328.43,-255.68 337.1,-261.78 339.01,-255.04"/>
+<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M359.31,-265.87C344.77,-261.57 328.21,-256.69 313.18,-252.25"/>
+<polygon fill="#00ff66" stroke="#00ff66" points="314.6,-249.02 304.01,-249.55 312.61,-255.73 314.6,-249.02"/>
 </g>
 <!-- module~iapws__capi_r797&#45;&gt;iso_c_binding -->
 <g id="module~~graph~~ModuleGraph_edge14" class="edge">
 <title>module~iapws__capi_r797&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M390.74,-272.68C383.77,-269.11 377.12,-264.56 372,-258.78 335.37,-217.41 372.36,-181.39 336,-139.78 335.25,-138.92 334.46,-138.09 333.63,-137.3"/>
-<polygon fill="#00ff66" stroke="#00ff66" points="335.43,-134.27 325.35,-130.98 331.18,-139.83 335.43,-134.27"/>
+<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M362.59,-265.9C356.07,-262.47 349.85,-258.13 345.06,-252.67 309.47,-212.09 343.98,-177.84 309.06,-136.67 308.39,-135.89 307.69,-135.13 306.95,-134.39"/>
+<polygon fill="#00ff66" stroke="#00ff66" points="309.33,-131.81 299.3,-128.4 305.02,-137.32 309.33,-131.81"/>
 </g>
 <!-- stdlib_kinds -->
 <g id="module~~graph~~ModuleGraph_node14" class="node">
 <title>stdlib_kinds</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="74,-215.78 0,-215.78 0,-191.78 74,-191.78 74,-215.78"/>
-<text text-anchor="middle" x="37" y="-201.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="67.02,-209.06 0,-209.06 0,-186.29 67.02,-186.29 67.02,-209.06"/>
+<text text-anchor="middle" x="33.51" y="-193.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
 </g>
 <!-- module~iapws__capi_r797&#45;&gt;stdlib_kinds -->
 <g id="module~~graph~~ModuleGraph_edge16" class="edge">
 <title>module~iapws__capi_r797&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M378.88,-291.43C323.58,-296.95 234.02,-301.49 159,-284.78"/>
+<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M350.97,-284.17C299.46,-289.59 215.89,-294.08 146.16,-277.67"/>
 </g>
 <!-- module~iapws__capi_version&#45;&gt;module~iapws__version -->
 <g id="module~~graph~~ModuleGraph_edge18" class="edge">
 <title>module~iapws__capi_version&#45;&gt;module~iapws__version</title>
-<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M387.54,-65.76C373.61,-61.9 358.01,-57.59 343.44,-53.56"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="344.13,-50.12 333.55,-50.82 342.26,-56.86 344.13,-50.12"/>
+<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M359.31,-63.87C346.25,-60.01 331.56,-55.67 317.82,-51.62"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="319.08,-48.34 308.5,-48.87 317.1,-55.06 319.08,-48.34"/>
 </g>
 <!-- module~iapws__capi_version&#45;&gt;iso_c_binding -->
 <g id="module~~graph~~ModuleGraph_edge17" class="edge">
 <title>module~iapws__capi_version&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M389.46,-89.86C374.25,-94.28 356.88,-99.33 340.95,-103.96"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="339.87,-100.63 331.25,-106.78 341.82,-107.35 339.87,-100.63"/>
+<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M360.39,-87.46C346.43,-91.68 330.53,-96.5 315.85,-100.94"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="314.93,-97.56 306.37,-103.81 316.95,-104.26 314.93,-97.56"/>
 </g>
 <!-- module~iapws__g704&#45;&gt;module~iapws__r283 -->
 <g id="module~~graph~~ModuleGraph_edge20" class="edge">
 <title>module~iapws__g704&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M248.95,-190.97C235.7,-186.96 220.75,-182.44 206.89,-178.25"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="207.62,-174.82 197.04,-175.28 205.59,-181.52 207.62,-174.82"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M229.14,-185.87C217.62,-182.09 204.69,-177.85 192.54,-173.87"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="193.69,-170.57 183.09,-170.78 191.51,-177.22 193.69,-170.57"/>
 </g>
 <!-- ieee_arithmetic -->
 <g id="module~~graph~~ModuleGraph_node11" class="node">
 <title>ieee_arithmetic</title>
 <g id="a_module~~graph~~ModuleGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ieee_arithmetic" xlink:title="ieee_arithmetic">
-<polygon fill="#337ab7" stroke="#337ab7" points="206,-256.78 110,-256.78 110,-232.78 206,-232.78 206,-256.78"/>
-<text text-anchor="middle" x="158" y="-242.38" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="187.29,-249.06 103.02,-249.06 103.02,-226.29 187.29,-226.29 187.29,-249.06"/>
+<text text-anchor="middle" x="145.16" y="-233.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__g704&#45;&gt;ieee_arithmetic -->
 <g id="module~~graph~~ModuleGraph_edge19" class="edge">
 <title>module~iapws__g704&#45;&gt;ieee_arithmetic</title>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M251.03,-214.81C236.86,-219.43 220.51,-224.75 205.56,-229.62"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="204.4,-226.32 195.97,-232.74 206.56,-232.97 204.4,-226.32"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M230.11,-209.46C218.23,-213.45 204.78,-217.97 192.18,-222.21"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="191.18,-218.85 182.82,-225.35 193.41,-225.48 191.18,-218.85"/>
 </g>
 <!-- module~iapws__g704&#45;&gt;stdlib_kinds -->
 <g id="module~~graph~~ModuleGraph_edge21" class="edge">
 <title>module~iapws__g704&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M248.94,-202.93C204.51,-203.11 132,-203.4 84.64,-203.59"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="84.34,-200.09 74.35,-203.63 84.37,-207.09 84.34,-200.09"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M228.63,-197.67C187.9,-197.67 122.06,-197.67 78.53,-197.67"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="78.67,-194.17 68.67,-197.67 78.67,-201.17 78.67,-194.17"/>
 </g>
 <!-- module~iapws__r283&#45;&gt;stdlib_kinds -->
 <g id="module~~graph~~ModuleGraph_edge22" class="edge">
 <title>module~iapws__r283&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#3200ff" stroke-dasharray="5,2" d="M121.3,-175.78C109.52,-179.74 96.25,-184.2 83.83,-188.37"/>
-<polygon fill="#3200ff" stroke="#3200ff" points="82.45,-185.14 74.09,-191.65 84.68,-191.78 82.45,-185.14"/>
+<path fill="none" stroke="#3200ff" stroke-dasharray="5,2" d="M110.96,-170.48C100.56,-174.18 88.92,-178.32 77.93,-182.23"/>
+<polygon fill="#3200ff" stroke="#3200ff" points="76.89,-178.88 68.64,-185.53 79.24,-185.48 76.89,-178.88"/>
 </g>
 <!-- module~iapws__r797&#45;&gt;module~iapws__r283 -->
 <g id="module~~graph~~ModuleGraph_edge24" class="edge">
 <title>module~iapws__r797&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#cc00ff" stroke-dasharray="5,2" d="M259.34,-232.75C253.49,-230.01 247.46,-226.96 242,-223.78 220.87,-211.48 198.48,-195.07 182.29,-182.53"/>
-<polygon fill="#cc00ff" stroke="#cc00ff" points="184.01,-179.43 173.99,-176.01 179.69,-184.93 184.01,-179.43"/>
+<path fill="none" stroke="#cc00ff" stroke-dasharray="5,2" d="M239.95,-226.99C234.35,-224.13 228.53,-220.95 223.29,-217.67 203.88,-205.53 183.35,-189.67 168.36,-177.45"/>
+<polygon fill="#cc00ff" stroke="#cc00ff" points="170.9,-175.01 160.96,-171.34 166.45,-180.41 170.9,-175.01"/>
 </g>
 <!-- module~iapws__r797&#45;&gt;ieee_arithmetic -->
 <g id="module~~graph~~ModuleGraph_edge23" class="edge">
 <title>module~iapws__r797&#45;&gt;ieee_arithmetic</title>
-<path fill="none" stroke="#cc00ff" stroke-dasharray="5,2" d="M249.99,-244.78C239.52,-244.78 227.93,-244.78 216.62,-244.78"/>
-<polygon fill="#cc00ff" stroke="#cc00ff" points="216.35,-241.28 206.35,-244.78 216.35,-248.28 216.35,-241.28"/>
+<path fill="none" stroke="#cc00ff" stroke-dasharray="5,2" d="M229.79,-238.38C220.02,-238.29 209.22,-238.2 198.71,-238.11"/>
+<polygon fill="#cc00ff" stroke="#cc00ff" points="199.02,-234.62 188.99,-238.03 198.96,-241.62 199.02,-234.62"/>
 </g>
 <!-- module~iapws__r797&#45;&gt;stdlib_kinds -->
 <g id="module~~graph~~ModuleGraph_edge25" class="edge">
 <title>module~iapws__r797&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#cc00ff" stroke-dasharray="5,2" d="M260.41,-256.87C228.66,-270.16 178.4,-289.1 159,-284.78"/>
-<path fill="none" stroke="#cc00ff" stroke-dasharray="5,2" d="M157,-284.78C135.01,-279.88 129.24,-277.51 110,-265.78 90.46,-253.86 70.94,-236.65 57.17,-223.38"/>
-<polygon fill="#cc00ff" stroke="#cc00ff" points="59.35,-220.61 49.77,-216.09 54.44,-225.6 59.35,-220.61"/>
+<path fill="none" stroke="#cc00ff" stroke-dasharray="5,2" d="M144.16,-277.67C106.42,-268.8 71.91,-238.3 52.06,-217.63"/>
+<polygon fill="#cc00ff" stroke="#cc00ff" points="54.88,-215.52 45.51,-210.57 49.75,-220.28 54.88,-215.52"/>
+<path fill="none" stroke="#cc00ff" stroke-dasharray="5,2" d="M239.74,-250.47C210.45,-263.43 164.09,-281.89 146.16,-277.67"/>
 </g>
 </g>
 </svg>
@@ -425,49 +425,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -499,7 +499,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/lists/procedures.html b/docs/lists/procedures.html
index 8caf110..f9f6ce8 100644
--- a/docs/lists/procedures.html
+++ b/docs/lists/procedures.html
@@ -172,20 +172,20 @@ <h1>Procedures</h1>
              <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: call~~graph~~CallGraph Pages: 1 -->
-<svg id="callgraphCallGraph" width="220pt" height="368pt"
- viewBox="0.00 0.00 220.00 368.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="call~~graph~~CallGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 364)">
+<svg id="callgraphCallGraph" width="204pt" height="359pt"
+ viewBox="0.00 0.00 203.54 358.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="call~~graph~~CallGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 354.77)">
 <title>call~~graph~~CallGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-364 216,-364 216,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-354.77 199.54,-354.77 199.54,4 -4,4"/>
 <!-- proc~capi_gases -->
 <g id="call~~graph~~CallGraph_node1" class="node">
 <title>proc~capi_gases</title>
 <g id="a_call~~graph~~CallGraph_node1"><a xlink:href="../proc/capi_gases.html" xlink:title="capi_gases">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="86.5,-66 15.5,-66 15.5,-42 86.5,-42 86.5,-66"/>
-<text text-anchor="middle" x="51" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_gases</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="79.02,-63.77 13.5,-63.77 13.5,-41 79.02,-41 79.02,-63.77"/>
+<text text-anchor="middle" x="46.26" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_gases</text>
 </a>
 </g>
 </g>
@@ -193,23 +193,23 @@ <h1>Procedures</h1>
 <g id="call~~graph~~CallGraph_node8" class="node">
 <title>proc~gases</title>
 <g id="a_call~~graph~~CallGraph_node8"><a xlink:href="../proc/gases.html" xlink:title="gases">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="202,-45 148,-45 148,-21 202,-21 202,-45"/>
-<text text-anchor="middle" x="175" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gases</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="189.03,-43.77 135.03,-43.77 135.03,-21 189.03,-21 189.03,-43.77"/>
+<text text-anchor="middle" x="162.03" y="-28.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gases</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_gases&#45;&gt;proc~gases -->
 <g id="call~~graph~~CallGraph_edge1" class="edge">
 <title>proc~capi_gases&#45;&gt;proc~gases</title>
-<path fill="none" stroke="#ff0000" d="M86.63,-48.04C102.58,-45.29 121.51,-42.04 137.66,-39.25"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="138.56,-42.65 147.82,-37.51 137.37,-35.75 138.56,-42.65"/>
+<path fill="none" stroke="#ff0000" d="M79.25,-46.76C93.05,-44.34 109.28,-41.48 123.62,-38.96"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="123.91,-42.46 133.15,-37.29 122.7,-35.57 123.91,-42.46"/>
 </g>
 <!-- proc~capi_get_version -->
 <g id="call~~graph~~CallGraph_node2" class="node">
 <title>proc~capi_get_version</title>
 <g id="a_call~~graph~~CallGraph_node2"><a xlink:href="../proc/capi_get_version.html" xlink:title="capi_get_version">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="102,-108 0,-108 0,-84 102,-84 102,-108"/>
-<text text-anchor="middle" x="51" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_get_version</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="92.52,-104.77 0,-104.77 0,-82 92.52,-82 92.52,-104.77"/>
+<text text-anchor="middle" x="46.26" y="-89.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_get_version</text>
 </a>
 </g>
 </g>
@@ -217,23 +217,23 @@ <h1>Procedures</h1>
 <g id="call~~graph~~CallGraph_node10" class="node">
 <title>proc~get_version</title>
 <g id="a_call~~graph~~CallGraph_node10"><a xlink:href="../proc/get_version.html" xlink:title="get_version">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="212,-108 138,-108 138,-84 212,-84 212,-108"/>
-<text text-anchor="middle" x="175" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">get_version</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="195.54,-104.77 128.52,-104.77 128.52,-82 195.54,-82 195.54,-104.77"/>
+<text text-anchor="middle" x="162.03" y="-89.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">get_version</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_get_version&#45;&gt;proc~get_version -->
 <g id="call~~graph~~CallGraph_edge2" class="edge">
 <title>proc~capi_get_version&#45;&gt;proc~get_version</title>
-<path fill="none" stroke="#ff5f00" d="M102.33,-96C110.73,-96 119.4,-96 127.7,-96"/>
-<polygon fill="#ff5f00" stroke="#ff5f00" points="127.95,-99.5 137.95,-96 127.95,-92.5 127.95,-99.5"/>
+<path fill="none" stroke="#ff5f00" d="M92.88,-93.39C100.85,-93.39 109.14,-93.39 117.07,-93.39"/>
+<polygon fill="#ff5f00" stroke="#ff5f00" points="116.84,-96.89 126.84,-93.39 116.84,-89.89 116.84,-96.89"/>
 </g>
 <!-- proc~capi_kd -->
 <g id="call~~graph~~CallGraph_node3" class="node">
 <title>proc~capi_kd</title>
 <g id="a_call~~graph~~CallGraph_node3"><a xlink:href="../proc/capi_kd.html" xlink:title="capi_kd">
-<polygon fill="#d9534f" stroke="#d9534f" points="78,-150 24,-150 24,-126 78,-126 78,-150"/>
-<text text-anchor="middle" x="51" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_kd</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="73.26,-145.77 19.26,-145.77 19.26,-123 73.26,-123 73.26,-145.77"/>
+<text text-anchor="middle" x="46.26" y="-130.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_kd</text>
 </a>
 </g>
 </g>
@@ -241,23 +241,23 @@ <h1>Procedures</h1>
 <g id="call~~graph~~CallGraph_node12" class="node">
 <title>proc~kd</title>
 <g id="a_call~~graph~~CallGraph_node12"><a xlink:href="../proc/kd.html" xlink:title="kd">
-<polygon fill="#d9534f" stroke="#d9534f" points="202,-150 148,-150 148,-126 202,-126 202,-150"/>
-<text text-anchor="middle" x="175" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kd</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="189.03,-145.77 135.03,-145.77 135.03,-123 189.03,-123 189.03,-145.77"/>
+<text text-anchor="middle" x="162.03" y="-130.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kd</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_kd&#45;&gt;proc~kd -->
 <g id="call~~graph~~CallGraph_edge3" class="edge">
 <title>proc~capi_kd&#45;&gt;proc~kd</title>
-<path fill="none" stroke="#ffbf00" d="M78.17,-138C95.54,-138 118.57,-138 137.7,-138"/>
-<polygon fill="#ffbf00" stroke="#ffbf00" points="137.87,-141.5 147.87,-138 137.87,-134.5 137.87,-141.5"/>
+<path fill="none" stroke="#ffbf00" d="M73.65,-134.38C88.44,-134.38 107.13,-134.38 123.43,-134.38"/>
+<polygon fill="#ffbf00" stroke="#ffbf00" points="123.27,-137.89 133.27,-134.39 123.27,-130.89 123.27,-137.89"/>
 </g>
 <!-- proc~capi_kh -->
 <g id="call~~graph~~CallGraph_node4" class="node">
 <title>proc~capi_kh</title>
 <g id="a_call~~graph~~CallGraph_node4"><a xlink:href="../proc/capi_kh.html" xlink:title="capi_kh">
-<polygon fill="#d9534f" stroke="#d9534f" points="78,-192 24,-192 24,-168 78,-168 78,-192"/>
-<text text-anchor="middle" x="51" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_kh</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="73.26,-186.77 19.26,-186.77 19.26,-164 73.26,-164 73.26,-186.77"/>
+<text text-anchor="middle" x="46.26" y="-171.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_kh</text>
 </a>
 </g>
 </g>
@@ -265,23 +265,23 @@ <h1>Procedures</h1>
 <g id="call~~graph~~CallGraph_node13" class="node">
 <title>proc~kh</title>
 <g id="a_call~~graph~~CallGraph_node13"><a xlink:href="../proc/kh.html" xlink:title="kh">
-<polygon fill="#d9534f" stroke="#d9534f" points="202,-192 148,-192 148,-168 202,-168 202,-192"/>
-<text text-anchor="middle" x="175" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kh</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="189.03,-186.77 135.03,-186.77 135.03,-164 189.03,-164 189.03,-186.77"/>
+<text text-anchor="middle" x="162.03" y="-171.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kh</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_kh&#45;&gt;proc~kh -->
 <g id="call~~graph~~CallGraph_edge4" class="edge">
 <title>proc~capi_kh&#45;&gt;proc~kh</title>
-<path fill="none" stroke="#dfff00" d="M78.17,-180C95.54,-180 118.57,-180 137.7,-180"/>
-<polygon fill="#dfff00" stroke="#dfff00" points="137.87,-183.5 147.87,-180 137.87,-176.5 137.87,-183.5"/>
+<path fill="none" stroke="#dfff00" d="M73.65,-175.38C88.44,-175.38 107.13,-175.38 123.43,-175.38"/>
+<polygon fill="#dfff00" stroke="#dfff00" points="123.27,-178.89 133.27,-175.39 123.27,-171.89 123.27,-178.89"/>
 </g>
 <!-- proc~capi_ngases -->
 <g id="call~~graph~~CallGraph_node5" class="node">
 <title>proc~capi_ngases</title>
 <g id="a_call~~graph~~CallGraph_node5"><a xlink:href="../proc/capi_ngases.html" xlink:title="capi_ngases">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="90,-234 12,-234 12,-210 90,-210 90,-234"/>
-<text text-anchor="middle" x="51" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_ngases</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="82.02,-227.77 10.5,-227.77 10.5,-205 82.02,-205 82.02,-227.77"/>
+<text text-anchor="middle" x="46.26" y="-212.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_ngases</text>
 </a>
 </g>
 </g>
@@ -289,23 +289,23 @@ <h1>Procedures</h1>
 <g id="call~~graph~~CallGraph_node14" class="node">
 <title>proc~ngases</title>
 <g id="a_call~~graph~~CallGraph_node14"><a xlink:href="../proc/ngases.html" xlink:title="ngases">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="202,-234 148,-234 148,-210 202,-210 202,-234"/>
-<text text-anchor="middle" x="175" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ngases</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="189.03,-227.77 135.03,-227.77 135.03,-205 189.03,-205 189.03,-227.77"/>
+<text text-anchor="middle" x="162.03" y="-212.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ngases</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_ngases&#45;&gt;proc~ngases -->
 <g id="call~~graph~~CallGraph_edge5" class="edge">
 <title>proc~capi_ngases&#45;&gt;proc~ngases</title>
-<path fill="none" stroke="#7fff00" d="M90.27,-222C105.34,-222 122.57,-222 137.46,-222"/>
-<polygon fill="#7fff00" stroke="#7fff00" points="137.83,-225.5 147.83,-222 137.83,-218.5 137.83,-225.5"/>
+<path fill="none" stroke="#7fff00" d="M82.32,-216.38C95.35,-216.38 110.18,-216.38 123.43,-216.38"/>
+<polygon fill="#7fff00" stroke="#7fff00" points="123.06,-219.89 133.06,-216.39 123.06,-212.89 123.06,-219.89"/>
 </g>
 <!-- proc~capi_psat -->
 <g id="call~~graph~~CallGraph_node6" class="node">
 <title>proc~capi_psat</title>
 <g id="a_call~~graph~~CallGraph_node6"><a xlink:href="../proc/capi_psat.html" xlink:title="capi_psat">
-<polygon fill="#d9534f" stroke="#d9534f" points="82.5,-276 19.5,-276 19.5,-252 82.5,-252 82.5,-276"/>
-<text text-anchor="middle" x="51" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_psat</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="74.89,-268.77 17.62,-268.77 17.62,-246 74.89,-246 74.89,-268.77"/>
+<text text-anchor="middle" x="46.26" y="-253.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_psat</text>
 </a>
 </g>
 </g>
@@ -313,23 +313,23 @@ <h1>Procedures</h1>
 <g id="call~~graph~~CallGraph_node15" class="node">
 <title>proc~psat</title>
 <g id="a_call~~graph~~CallGraph_node15"><a xlink:href="../proc/psat.html" xlink:title="psat">
-<polygon fill="#d9534f" stroke="#d9534f" points="202,-276 148,-276 148,-252 202,-252 202,-276"/>
-<text text-anchor="middle" x="175" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">psat</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="189.03,-268.77 135.03,-268.77 135.03,-246 189.03,-246 189.03,-268.77"/>
+<text text-anchor="middle" x="162.03" y="-253.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">psat</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_psat&#45;&gt;proc~psat -->
 <g id="call~~graph~~CallGraph_edge6" class="edge">
 <title>proc~capi_psat&#45;&gt;proc~psat</title>
-<path fill="none" stroke="#1fff00" d="M82.79,-264C99.39,-264 119.98,-264 137.4,-264"/>
-<polygon fill="#1fff00" stroke="#1fff00" points="137.77,-267.5 147.77,-264 137.77,-260.5 137.77,-267.5"/>
+<path fill="none" stroke="#1fff00" d="M75.38,-257.38C89.86,-257.38 107.7,-257.38 123.35,-257.38"/>
+<polygon fill="#1fff00" stroke="#1fff00" points="123.28,-260.89 133.28,-257.39 123.28,-253.89 123.28,-260.89"/>
 </g>
 <!-- proc~capi_tsat -->
 <g id="call~~graph~~CallGraph_node7" class="node">
 <title>proc~capi_tsat</title>
 <g id="a_call~~graph~~CallGraph_node7"><a xlink:href="../proc/capi_tsat.html" xlink:title="capi_Tsat">
-<polygon fill="#d9534f" stroke="#d9534f" points="81.5,-318 20.5,-318 20.5,-294 81.5,-294 81.5,-318"/>
-<text text-anchor="middle" x="51" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_Tsat</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="74.52,-309.77 18,-309.77 18,-287 74.52,-287 74.52,-309.77"/>
+<text text-anchor="middle" x="46.26" y="-294.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_Tsat</text>
 </a>
 </g>
 </g>
@@ -337,38 +337,38 @@ <h1>Procedures</h1>
 <g id="call~~graph~~CallGraph_node16" class="node">
 <title>proc~tsat</title>
 <g id="a_call~~graph~~CallGraph_node16"><a xlink:href="../proc/tsat.html" xlink:title="Tsat">
-<polygon fill="#d9534f" stroke="#d9534f" points="202,-318 148,-318 148,-294 202,-294 202,-318"/>
-<text text-anchor="middle" x="175" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Tsat</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="189.03,-309.77 135.03,-309.77 135.03,-287 189.03,-287 189.03,-309.77"/>
+<text text-anchor="middle" x="162.03" y="-294.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Tsat</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_tsat&#45;&gt;proc~tsat -->
 <g id="call~~graph~~CallGraph_edge7" class="edge">
 <title>proc~capi_tsat&#45;&gt;proc~tsat</title>
-<path fill="none" stroke="#00ff3f" d="M81.53,-306C98.39,-306 119.67,-306 137.56,-306"/>
-<polygon fill="#00ff3f" stroke="#00ff3f" points="137.65,-309.5 147.65,-306 137.65,-302.5 137.65,-309.5"/>
+<path fill="none" stroke="#00ff3f" d="M74.8,-298.38C89.51,-298.38 107.83,-298.38 123.79,-298.38"/>
+<polygon fill="#00ff3f" stroke="#00ff3f" points="123.4,-301.89 133.4,-298.39 123.4,-294.89 123.4,-301.89"/>
 </g>
 <!-- proc~gases2 -->
 <g id="call~~graph~~CallGraph_node9" class="node">
 <title>proc~gases2</title>
 <g id="a_call~~graph~~CallGraph_node9"><a xlink:href="../proc/gases2.html" xlink:title="gases2">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="78,-24 24,-24 24,0 78,0 78,-24"/>
-<text text-anchor="middle" x="51" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gases2</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="73.26,-22.77 19.26,-22.77 19.26,0 73.26,0 73.26,-22.77"/>
+<text text-anchor="middle" x="46.26" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gases2</text>
 </a>
 </g>
 </g>
 <!-- proc~gases2&#45;&gt;proc~gases -->
 <g id="call~~graph~~CallGraph_edge8" class="edge">
 <title>proc~gases2&#45;&gt;proc~gases</title>
-<path fill="none" stroke="#00ffff" d="M78.17,-16.51C95.62,-19.51 118.79,-23.5 137.97,-26.8"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="137.42,-30.26 147.87,-28.5 138.61,-23.36 137.42,-30.26"/>
+<path fill="none" stroke="#00ffff" d="M73.65,-16.26C88.58,-19.01 107.5,-22.5 123.91,-25.53"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="122.83,-28.89 133.3,-27.27 124.1,-22.01 122.83,-28.89"/>
 </g>
 <!-- proc~iapws_r797_v -->
 <g id="call~~graph~~CallGraph_node11" class="node">
 <title>proc~iapws_r797_v</title>
 <g id="a_call~~graph~~CallGraph_node11"><a xlink:href="../proc/iapws_r797_v.html" xlink:title="iapws_r797_v">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="93,-360 9,-360 9,-336 93,-336 93,-360"/>
-<text text-anchor="middle" x="51" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r797_v</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="85.02,-350.77 7.5,-350.77 7.5,-328 85.02,-328 85.02,-350.77"/>
+<text text-anchor="middle" x="46.26" y="-335.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r797_v</text>
 </a>
 </g>
 </g>
@@ -389,55 +389,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -470,7 +470,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/lists/types.html b/docs/lists/types.html
index d87cb3b..eea3cd1 100644
--- a/docs/lists/types.html
+++ b/docs/lists/types.html
@@ -95,7 +95,7 @@ <h1>Derived Types</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/iapws.html b/docs/module/iapws.html
index e30ea2b..6d7d1b6 100644
--- a/docs/module/iapws.html
+++ b/docs/module/iapws.html
@@ -141,269 +141,269 @@ <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='iapws__version.html'>iapws__version</a></li>
-                  <li class="list-inline-item"><a href='iapws__capi.html'>iapws__capi</a></li>
-                  <li class="list-inline-item"><a href='iapws__r797.html'>iapws__r797</a></li>
                   <li class="list-inline-item"><a href='iapws__g704.html'>iapws__g704</a></li>
+                  <li class="list-inline-item"><a href='iapws__capi.html'>iapws__capi</a></li>
                   <li class="list-inline-item"><a href='iapws__r283.html'>iapws__r283</a></li>
+                  <li class="list-inline-item"><a href='iapws__version.html'>iapws__version</a></li>
+                  <li class="list-inline-item"><a href='iapws__r797.html'>iapws__r797</a></li>
               </ul>
             </li>
             <li class="list-group-item">
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws~~UsesGraph Pages: 1 -->
-<svg id="moduleiapwsUsesGraph" width="641pt" height="241pt"
- viewBox="0.00 0.00 641.00 240.90" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws~~UsesGraph" class="graph" transform="scale(1.1 1.1) rotate(0) translate(4 259.83)">
+<svg id="moduleiapwsUsesGraph" width="641pt" height="249pt"
+ viewBox="0.00 0.00 641.00 248.83" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws~~UsesGraph" class="graph" transform="scale(0.971801 0.971801) rotate(0) translate(4 252.05)">
 <title>module~~iapws~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-259.83 698,-259.83 698,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-252.05 655.6,-252.05 655.6,4 -4,4"/>
 <!-- module~iapws -->
 <g id="module~~iapws~~UsesGraph_node1" class="node">
 <title>module~iapws</title>
-<polygon fill="none" stroke="black" points="694,-131.56 640,-131.56 640,-107.56 694,-107.56 694,-131.56"/>
-<text text-anchor="middle" x="667" y="-117.16" font-family="Helvetica,sans-Serif" font-size="10.50">iapws</text>
+<polygon fill="none" stroke="black" points="651.6,-127.05 597.6,-127.05 597.6,-104.28 651.6,-104.28 651.6,-127.05"/>
+<text text-anchor="middle" x="624.6" y="-111.32" font-family="Helvetica,sans-Serif" font-size="10.50">iapws</text>
 </g>
 <!-- module~iapws__capi -->
 <g id="module~~iapws~~UsesGraph_node2" class="node">
 <title>module~iapws__capi</title>
 <g id="a_module~~iapws~~UsesGraph_node2"><a xlink:href="../module/iapws__capi.html" xlink:title="iapws__capi">
-<polygon fill="#337ab7" stroke="#337ab7" points="604,-131.56 528,-131.56 528,-107.56 604,-107.56 604,-131.56"/>
-<text text-anchor="middle" x="566" y="-117.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="561.6,-127.05 491.58,-127.05 491.58,-104.28 561.6,-104.28 561.6,-127.05"/>
+<text text-anchor="middle" x="526.59" y="-111.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__capi -->
 <g id="module~~iapws~~UsesGraph_edge1" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__capi</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M639.99,-119.56C632.08,-119.56 623.14,-119.56 614.28,-119.56"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="614,-116.06 604,-119.56 614,-123.06 614,-116.06"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M597.11,-115.67C589.72,-115.67 581.46,-115.67 573.3,-115.67"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="573.43,-112.17 563.43,-115.67 573.43,-119.17 573.43,-112.17"/>
 </g>
 <!-- module~iapws__g704 -->
 <g id="module~~iapws~~UsesGraph_node3" class="node">
 <title>module~iapws__g704</title>
 <g id="a_module~~iapws~~UsesGraph_node3"><a xlink:href="../module/iapws__g704.html" xlink:title="iapws__g704">
-<polygon fill="#337ab7" stroke="#337ab7" points="329,-213.56 249,-213.56 249,-189.56 329,-189.56 329,-213.56"/>
-<text text-anchor="middle" x="289" y="-199.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__g704</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="303.44,-207.05 228.92,-207.05 228.92,-184.28 303.44,-184.28 303.44,-207.05"/>
+<text text-anchor="middle" x="266.18" y="-191.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__g704</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__g704 -->
 <g id="module~~iapws~~UsesGraph_edge2" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__g704</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M654.52,-131.74C622.46,-164.3 528.06,-250.5 433,-243.56"/>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M431,-243.56C411.49,-245.24 364.75,-229.83 330.41,-217.21"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="331.24,-213.78 320.64,-213.57 328.79,-220.34 331.24,-213.78"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M613.13,-127.11C583.1,-158.57 492.89,-243.62 401.32,-236.67"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M399.32,-236.67C381.25,-238.14 338.55,-223.62 306.55,-211.46"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="308.16,-208.33 297.57,-207.99 305.64,-214.86 308.16,-208.33"/>
 </g>
 <!-- module~iapws__r283 -->
 <g id="module~~iapws~~UsesGraph_node4" class="node">
 <title>module~iapws__r283</title>
 <g id="a_module~~iapws~~UsesGraph_node4"><a xlink:href="../module/iapws__r283.html" xlink:title="iapws__r283">
-<polygon fill="#337ab7" stroke="#337ab7" points="197,-154.56 119,-154.56 119,-130.56 197,-130.56 197,-154.56"/>
-<text text-anchor="middle" x="158" y="-140.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="181.29,-149.05 109.02,-149.05 109.02,-126.28 181.29,-126.28 181.29,-149.05"/>
+<text text-anchor="middle" x="145.16" y="-133.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws~~UsesGraph_edge3" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M644.37,-107.49C604.19,-86.09 514.71,-43.25 433,-37.56"/>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M431,-37.56C348.12,-21 316.41,23.52 242,-16.56 200.95,-38.68 176.86,-90.96 165.99,-120.76"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="162.66,-119.68 162.69,-130.28 169.27,-121.98 162.66,-119.68"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M603,-103.91C564.73,-83.07 479.45,-41.32 401.32,-35.67"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M399.32,-35.67C322.15,-20.02 292.26,22.32 223.29,-15.67 184.9,-36.81 162.96,-86.01 152.92,-115.06"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="149.66,-113.76 149.9,-124.35 156.31,-115.92 149.66,-113.76"/>
 </g>
 <!-- module~iapws__r797 -->
 <g id="module~~iapws~~UsesGraph_node5" class="node">
 <title>module~iapws__r797</title>
 <g id="a_module~~iapws~~UsesGraph_node5"><a xlink:href="../module/iapws__r797.html" xlink:title="iapws__r797">
-<polygon fill="#337ab7" stroke="#337ab7" points="328,-255.56 250,-255.56 250,-231.56 328,-231.56 328,-255.56"/>
-<text text-anchor="middle" x="289" y="-241.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r797</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="302.31,-248.05 230.04,-248.05 230.04,-225.28 302.31,-225.28 302.31,-248.05"/>
+<text text-anchor="middle" x="266.18" y="-232.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r797</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__r797 -->
 <g id="module~~iapws~~UsesGraph_edge4" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__r797</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M431,-243.56C400.18,-246.21 365.44,-246.24 338.15,-245.6"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="338.17,-242.1 328.08,-245.32 337.98,-249.1 338.17,-242.1"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M399.32,-236.67C371.09,-238.96 339.36,-239.04 314.07,-238.51"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="314.17,-235.01 304.09,-238.26 313.99,-242.01 314.17,-235.01"/>
 </g>
 <!-- module~iapws__version -->
 <g id="module~~iapws~~UsesGraph_node6" class="node">
 <title>module~iapws__version</title>
 <g id="a_module~~iapws~~UsesGraph_node6"><a xlink:href="../module/iapws__version.html" xlink:title="iapws__version">
-<polygon fill="#337ab7" stroke="#337ab7" points="335,-49.56 243,-49.56 243,-25.56 335,-25.56 335,-49.56"/>
-<text text-anchor="middle" x="289" y="-35.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__version</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="308.69,-47.05 223.67,-47.05 223.67,-24.28 308.69,-24.28 308.69,-47.05"/>
+<text text-anchor="middle" x="266.18" y="-31.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__version</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__version -->
 <g id="module~~iapws~~UsesGraph_edge5" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__version</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M431,-37.56C402.76,-35.6 371.26,-35.41 345.21,-35.79"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="345.08,-32.29 335.14,-35.97 345.2,-39.29 345.08,-32.29"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M399.32,-35.67C373.36,-33.79 344.46,-33.58 320.33,-33.92"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="320.34,-30.42 310.41,-34.1 320.47,-37.42 320.34,-30.42"/>
 </g>
 <!-- module~iapws__capi_g704 -->
 <g id="module~~iapws~~UsesGraph_node8" class="node">
 <title>module~iapws__capi_g704</title>
 <g id="a_module~~iapws~~UsesGraph_node8"><a xlink:href="../module/iapws__capi_g704.html" xlink:title="iapws__capi_g704">
-<polygon fill="#337ab7" stroke="#337ab7" points="486,-173.56 378,-173.56 378,-149.56 486,-149.56 486,-173.56"/>
-<text text-anchor="middle" x="432" y="-159.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_g704</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="450.33,-168.05 350.31,-168.05 350.31,-145.28 450.33,-145.28 450.33,-168.05"/>
+<text text-anchor="middle" x="400.32" y="-152.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_g704</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_g704 -->
 <g id="module~~iapws~~UsesGraph_edge6" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_g704</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M527.88,-131.37C513.24,-136.03 496.24,-141.44 480.71,-146.38"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="479.23,-143.18 470.76,-149.55 481.35,-149.85 479.23,-143.18"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M491.3,-126.98C477.91,-131.4 462.33,-136.54 447.95,-141.28"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="447.07,-137.89 438.67,-144.34 449.26,-144.54 447.07,-137.89"/>
 </g>
 <!-- module~iapws__capi_r783 -->
 <g id="module~~iapws~~UsesGraph_node9" class="node">
 <title>module~iapws__capi_r783</title>
 <g id="a_module~~iapws~~UsesGraph_node9"><a xlink:href="../module/iapws__capi_r783.html" xlink:title="iapws__capi_r783">
-<polygon fill="#337ab7" stroke="#337ab7" points="485,-131.56 379,-131.56 379,-107.56 485,-107.56 485,-131.56"/>
-<text text-anchor="middle" x="432" y="-117.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r783</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="449.2,-127.05 351.44,-127.05 351.44,-104.28 449.2,-104.28 449.2,-127.05"/>
+<text text-anchor="middle" x="400.32" y="-111.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r783</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_r783 -->
 <g id="module~~iapws~~UsesGraph_edge7" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_r783</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M527.88,-119.56C517.72,-119.56 506.43,-119.56 495.27,-119.56"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="495.11,-116.06 485.11,-119.56 495.11,-123.06 495.11,-116.06"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M491.3,-115.67C481.81,-115.67 471.22,-115.67 460.73,-115.67"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="460.96,-112.17 450.96,-115.67 460.96,-119.17 460.96,-112.17"/>
 </g>
 <!-- module~iapws__capi_version -->
 <g id="module~~iapws~~UsesGraph_node10" class="node">
 <title>module~iapws__capi_version</title>
 <g id="a_module~~iapws~~UsesGraph_node10"><a xlink:href="../module/iapws__capi_version.html" xlink:title="iapws__capi_version">
-<polygon fill="#337ab7" stroke="#337ab7" points="492,-89.56 372,-89.56 372,-65.56 492,-65.56 492,-89.56"/>
-<text text-anchor="middle" x="432" y="-75.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_version</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="455.58,-86.05 345.06,-86.05 345.06,-63.28 455.58,-63.28 455.58,-86.05"/>
+<text text-anchor="middle" x="400.32" y="-70.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_version</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_version -->
 <g id="module~~iapws~~UsesGraph_edge8" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_version</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M527.88,-107.75C513.24,-103.09 496.24,-97.68 480.71,-92.74"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="481.35,-89.27 470.76,-89.57 479.23,-95.94 481.35,-89.27"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M491.3,-104.35C477.91,-99.93 462.33,-94.8 447.95,-90.05"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="449.26,-86.8 438.67,-86.99 447.07,-93.44 449.26,-86.8"/>
 </g>
 <!-- module~iapws__g704&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws~~UsesGraph_edge10" class="edge">
 <title>module~iapws__g704&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M261.24,-189.35C254.93,-186.47 248.23,-183.41 242,-180.56 226.51,-173.48 209.4,-165.65 194.76,-158.94"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="196.09,-155.7 185.54,-154.72 193.17,-162.06 196.09,-155.7"/>
+<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M240.8,-183.79C223.47,-175.34 199.95,-163.88 180.69,-154.5"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="182.38,-151.42 171.86,-150.19 179.31,-157.72 182.38,-151.42"/>
 </g>
 <!-- ieee_arithmetic -->
 <g id="module~~iapws~~UsesGraph_node7" class="node">
 <title>ieee_arithmetic</title>
 <g id="a_module~~iapws~~UsesGraph_node7"><a xlink:href="http://fortranwiki.org/fortran/show/ieee_arithmetic" xlink:title="ieee_arithmetic">
-<polygon fill="#337ab7" stroke="#337ab7" points="206,-234.56 110,-234.56 110,-210.56 206,-210.56 206,-234.56"/>
-<text text-anchor="middle" x="158" y="-220.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="187.29,-227.05 103.02,-227.05 103.02,-204.28 187.29,-204.28 187.29,-227.05"/>
+<text text-anchor="middle" x="145.16" y="-211.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__g704&#45;&gt;ieee_arithmetic -->
 <g id="module~~iapws~~UsesGraph_edge9" class="edge">
 <title>module~iapws__g704&#45;&gt;ieee_arithmetic</title>
-<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M248.95,-207.92C238.61,-209.6 227.24,-211.45 216.16,-213.25"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="215.42,-209.83 206.11,-214.89 216.54,-216.74 215.42,-209.83"/>
+<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M228.49,-201.83C219.06,-203.41 208.73,-205.15 198.67,-206.84"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="198.27,-203.36 188.99,-208.47 199.43,-210.26 198.27,-203.36"/>
 </g>
 <!-- stdlib_kinds -->
 <g id="module~~iapws~~UsesGraph_node11" class="node">
 <title>stdlib_kinds</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="74,-194.56 0,-194.56 0,-170.56 74,-170.56 74,-194.56"/>
-<text text-anchor="middle" x="37" y="-180.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="67.02,-188.05 0,-188.05 0,-165.28 67.02,-165.28 67.02,-188.05"/>
+<text text-anchor="middle" x="33.51" y="-172.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
 </g>
 <!-- module~iapws__g704&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws~~UsesGraph_edge11" class="edge">
 <title>module~iapws__g704&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M248.94,-198.59C204.41,-195.21 131.7,-189.68 84.34,-186.08"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="84.59,-182.59 74.35,-185.32 84.06,-189.57 84.59,-182.59"/>
+<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M228.63,-192.66C187.9,-189.3 122.06,-183.88 78.53,-180.29"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="78.92,-176.81 68.67,-179.48 78.35,-183.79 78.92,-176.81"/>
 </g>
 <!-- module~iapws__r283&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws~~UsesGraph_edge12" class="edge">
 <title>module~iapws__r283&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M121.3,-154.56C109.52,-158.52 96.25,-162.98 83.83,-167.16"/>
-<polygon fill="#00ff66" stroke="#00ff66" points="82.45,-163.93 74.09,-170.43 84.68,-170.56 82.45,-163.93"/>
+<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M110.96,-149.47C100.56,-153.17 88.92,-157.31 77.93,-161.22"/>
+<polygon fill="#00ff66" stroke="#00ff66" points="76.89,-157.88 68.64,-164.53 79.24,-164.47 76.89,-157.88"/>
 </g>
 <!-- module~iapws__r797&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws~~UsesGraph_edge14" class="edge">
 <title>module~iapws__r797&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M257.51,-231.42C252.17,-228.8 246.79,-225.82 242,-222.56 216.69,-205.33 191.99,-180.13 176.21,-162.63"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="178.47,-159.9 169.22,-154.73 173.23,-164.54 178.47,-159.9"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M238.27,-224.81C233.12,-222.1 227.9,-219.01 223.29,-215.67 200.14,-198.86 177.61,-174.93 162.93,-158.02"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="165.76,-155.94 156.61,-150.58 160.42,-160.47 165.76,-155.94"/>
 </g>
 <!-- module~iapws__r797&#45;&gt;ieee_arithmetic -->
 <g id="module~~iapws~~UsesGraph_edge13" class="edge">
 <title>module~iapws__r797&#45;&gt;ieee_arithmetic</title>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M249.99,-237.37C239.42,-235.65 227.69,-233.74 216.27,-231.88"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="216.78,-228.42 206.35,-230.27 215.66,-235.33 216.78,-228.42"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M229.79,-230.42C220.02,-228.7 209.22,-226.79 198.71,-224.94"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="199.43,-221.51 188.97,-223.22 198.21,-228.41 199.43,-221.51"/>
 </g>
 <!-- module~iapws__r797&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws~~UsesGraph_edge15" class="edge">
 <title>module~iapws__r797&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M249.87,-250.95C212.9,-256.43 155.84,-260.37 110,-243.56 87.55,-235.33 67.29,-216.65 54.03,-202.12"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="56.63,-199.78 47.41,-194.56 51.36,-204.39 56.63,-199.78"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M229.75,-243.29C196.02,-248.04 144.41,-251.18 103.02,-235.67 82.28,-227.89 63.59,-210.77 50.99,-196.96"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="53.83,-194.89 44.63,-189.64 48.55,-199.48 53.83,-194.89"/>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;module~iapws__g704 -->
 <g id="module~~iapws~~UsesGraph_edge18" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;module~iapws__g704</title>
-<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M388.7,-173.56C373.11,-177.98 355.32,-183.03 339.18,-187.61"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="338.05,-184.29 329.38,-190.39 339.96,-191.03 338.05,-184.29"/>
+<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M359.31,-168.47C345.27,-172.62 329.35,-177.31 314.75,-181.63"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="313.94,-178.21 305.34,-184.4 315.92,-184.93 313.94,-178.21"/>
 </g>
 <!-- iso_c_binding -->
 <g id="module~~iapws~~UsesGraph_node12" class="node">
 <title>iso_c_binding</title>
 <g id="a_module~~iapws~~UsesGraph_node12"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="331,-91.56 247,-91.56 247,-67.56 331,-67.56 331,-91.56"/>
-<text text-anchor="middle" x="289" y="-77.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="304.56,-88.05 227.79,-88.05 227.79,-65.28 304.56,-65.28 304.56,-88.05"/>
+<text text-anchor="middle" x="266.18" y="-72.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;iso_c_binding -->
 <g id="module~~iapws~~UsesGraph_edge16" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M391.89,-149.5C385.1,-146.88 378.23,-143.89 372,-140.56 349.88,-128.74 327.19,-111.37 311.3,-98.19"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="313.54,-95.51 303.65,-91.73 309.03,-100.86 313.54,-95.51"/>
+<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M364.5,-144.86C357.89,-142.15 351.15,-139.06 345.06,-135.67 324.69,-124.31 303.74,-108.13 288.71,-95.59"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="291.2,-93.12 281.32,-89.31 286.67,-98.46 291.2,-93.12"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~iapws~~UsesGraph_node13" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~iapws~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/iso_fortran_env" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="336,-171.56 242,-171.56 242,-147.56 336,-147.56 336,-171.56"/>
-<text text-anchor="middle" x="289" y="-157.16" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="309.06,-166.05 223.29,-166.05 223.29,-143.28 309.06,-143.28 309.06,-166.05"/>
+<text text-anchor="middle" x="266.18" y="-150.32" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;iso_fortran_env -->
 <g id="module~~iapws~~UsesGraph_edge17" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M377.69,-160.8C367.52,-160.66 356.83,-160.51 346.56,-160.36"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="346.5,-156.86 336.45,-160.22 346.4,-163.86 346.5,-156.86"/>
+<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M350.11,-155.92C340.52,-155.78 330.41,-155.62 320.68,-155.48"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="321.05,-151.98 310.99,-155.33 320.94,-158.98 321.05,-151.98"/>
 </g>
 <!-- module~iapws__capi_r783&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws~~UsesGraph_edge20" class="edge">
 <title>module~iapws__capi_r783&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M378.88,-123.97C329.44,-128.15 255.74,-134.38 207.53,-138.46"/>
-<polygon fill="#00ff66" stroke="#00ff66" points="207.01,-134.99 197.34,-139.32 207.6,-141.96 207.01,-134.99"/>
+<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M351.11,-119.86C305.57,-123.81 237.74,-129.71 192.75,-133.62"/>
+<polygon fill="#00ff66" stroke="#00ff66" points="192.71,-130.11 183.05,-134.46 193.32,-137.08 192.71,-130.11"/>
 </g>
 <!-- module~iapws__capi_r783&#45;&gt;iso_c_binding -->
 <g id="module~~iapws~~UsesGraph_edge19" class="edge">
 <title>module~iapws__capi_r783&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M388.7,-107.56C373.79,-103.33 356.87,-98.53 341.3,-94.12"/>
-<polygon fill="#00ff66" stroke="#00ff66" points="341.88,-90.64 331.3,-91.28 339.97,-97.37 341.88,-90.64"/>
+<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M359.31,-103.86C345.51,-99.79 329.9,-95.18 315.51,-90.93"/>
+<polygon fill="#00ff66" stroke="#00ff66" points="316.82,-87.67 306.24,-88.19 314.84,-94.38 316.82,-87.67"/>
 </g>
 <!-- module~iapws__capi_version&#45;&gt;module~iapws__version -->
 <g id="module~~iapws~~UsesGraph_edge22" class="edge">
 <title>module~iapws__capi_version&#45;&gt;module~iapws__version</title>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M388.7,-65.56C374.19,-61.44 357.78,-56.79 342.56,-52.47"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="343.34,-49.05 332.76,-49.69 341.43,-55.79 343.34,-49.05"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M359.31,-62.86C346.25,-59 331.56,-54.67 317.82,-50.61"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="319.08,-47.34 308.5,-47.86 317.1,-54.05 319.08,-47.34"/>
 </g>
 <!-- module~iapws__capi_version&#45;&gt;iso_c_binding -->
 <g id="module~~iapws~~UsesGraph_edge21" class="edge">
 <title>module~iapws__capi_version&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M371.61,-78.4C361.56,-78.55 351.19,-78.69 341.37,-78.83"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="341.3,-75.33 331.35,-78.97 341.4,-82.33 341.3,-75.33"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M344.81,-75.49C335.41,-75.63 325.69,-75.78 316.44,-75.92"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="316.5,-72.42 306.55,-76.07 316.6,-79.42 316.5,-72.42"/>
 </g>
 </g>
 </svg>
@@ -426,49 +426,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -519,7 +519,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/iapws__capi.html b/docs/module/iapws__capi.html
index 48b9353..c78058c 100644
--- a/docs/module/iapws__capi.html
+++ b/docs/module/iapws__capi.html
@@ -141,199 +141,199 @@ <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='iapws__capi_r783.html'>iapws__capi_r783</a></li>
                   <li class="list-inline-item"><a href='iapws__capi_version.html'>iapws__capi_version</a></li>
                   <li class="list-inline-item"><a href='iapws__capi_g704.html'>iapws__capi_g704</a></li>
+                  <li class="list-inline-item"><a href='iapws__capi_r783.html'>iapws__capi_r783</a></li>
               </ul>
             </li>
             <li class="list-group-item">
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__capi~~UsesGraph Pages: 1 -->
-<svg id="moduleiapws__capiUsesGraph" width="612pt" height="196pt"
- viewBox="0.00 0.00 612.00 196.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__capi~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 192)">
+<svg id="moduleiapws__capiUsesGraph" width="570pt" height="191pt"
+ viewBox="0.00 0.00 569.60 190.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__capi~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 186.77)">
 <title>module~~iapws__capi~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-192 608,-192 608,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-186.77 565.6,-186.77 565.6,4 -4,4"/>
 <!-- module~iapws__capi -->
 <g id="module~~iapws__capi~~UsesGraph_node1" class="node">
 <title>module~iapws__capi</title>
-<polygon fill="none" stroke="black" points="604,-104 528,-104 528,-80 604,-80 604,-104"/>
-<text text-anchor="middle" x="566" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi</text>
+<polygon fill="none" stroke="black" points="561.6,-100.77 491.58,-100.77 491.58,-78 561.6,-78 561.6,-100.77"/>
+<text text-anchor="middle" x="526.59" y="-85.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi</text>
 </g>
 <!-- module~iapws__capi_g704 -->
 <g id="module~~iapws__capi~~UsesGraph_node2" class="node">
 <title>module~iapws__capi_g704</title>
 <g id="a_module~~iapws__capi~~UsesGraph_node2"><a xlink:href="../module/iapws__capi_g704.html" xlink:title="iapws__capi_g704">
-<polygon fill="#337ab7" stroke="#337ab7" points="486,-146 378,-146 378,-122 486,-122 486,-146"/>
-<text text-anchor="middle" x="432" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_g704</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="450.33,-141.77 350.31,-141.77 350.31,-119 450.33,-119 450.33,-141.77"/>
+<text text-anchor="middle" x="400.32" y="-126.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_g704</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_g704 -->
 <g id="module~~iapws__capi~~UsesGraph_edge1" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_g704</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M527.88,-103.81C513.24,-108.47 496.24,-113.88 480.71,-118.82"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="479.23,-115.62 470.76,-121.99 481.35,-122.29 479.23,-115.62"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M491.3,-100.7C477.91,-105.12 462.33,-110.26 447.95,-115"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="447.07,-111.61 438.67,-118.06 449.26,-118.25 447.07,-111.61"/>
 </g>
 <!-- module~iapws__capi_r783 -->
 <g id="module~~iapws__capi~~UsesGraph_node3" class="node">
 <title>module~iapws__capi_r783</title>
 <g id="a_module~~iapws__capi~~UsesGraph_node3"><a xlink:href="../module/iapws__capi_r783.html" xlink:title="iapws__capi_r783">
-<polygon fill="#337ab7" stroke="#337ab7" points="485,-104 379,-104 379,-80 485,-80 485,-104"/>
-<text text-anchor="middle" x="432" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r783</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="449.2,-100.77 351.44,-100.77 351.44,-78 449.2,-78 449.2,-100.77"/>
+<text text-anchor="middle" x="400.32" y="-85.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r783</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_r783 -->
 <g id="module~~iapws__capi~~UsesGraph_edge2" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_r783</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M527.88,-92C517.72,-92 506.43,-92 495.27,-92"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="495.11,-88.5 485.11,-92 495.11,-95.5 495.11,-88.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M491.3,-89.39C481.81,-89.39 471.22,-89.39 460.73,-89.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="460.96,-85.89 450.96,-89.39 460.96,-92.89 460.96,-85.89"/>
 </g>
 <!-- module~iapws__capi_version -->
 <g id="module~~iapws__capi~~UsesGraph_node4" class="node">
 <title>module~iapws__capi_version</title>
 <g id="a_module~~iapws__capi~~UsesGraph_node4"><a xlink:href="../module/iapws__capi_version.html" xlink:title="iapws__capi_version">
-<polygon fill="#337ab7" stroke="#337ab7" points="492,-62 372,-62 372,-38 492,-38 492,-62"/>
-<text text-anchor="middle" x="432" y="-47.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_version</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="455.58,-59.77 345.06,-59.77 345.06,-37 455.58,-37 455.58,-59.77"/>
+<text text-anchor="middle" x="400.32" y="-44.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_version</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_version -->
 <g id="module~~iapws__capi~~UsesGraph_edge3" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_version</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M527.88,-80.19C513.24,-75.53 496.24,-70.12 480.71,-65.18"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="481.35,-61.71 470.76,-62.01 479.23,-68.38 481.35,-61.71"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M491.3,-78.07C477.91,-73.65 462.33,-68.51 447.95,-63.77"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="449.26,-60.52 438.67,-60.71 447.07,-67.16 449.26,-60.52"/>
 </g>
 <!-- iso_c_binding -->
 <g id="module~~iapws__capi~~UsesGraph_node5" class="node">
 <title>iso_c_binding</title>
 <g id="a_module~~iapws__capi~~UsesGraph_node5"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="331,-66 247,-66 247,-42 331,-42 331,-66"/>
-<text text-anchor="middle" x="289" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="304.56,-63.77 227.79,-63.77 227.79,-41 304.56,-41 304.56,-63.77"/>
+<text text-anchor="middle" x="266.18" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;iso_c_binding -->
 <g id="module~~iapws__capi~~UsesGraph_edge4" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M392.25,-121.97C385.36,-119.34 378.36,-116.33 372,-113 350.51,-101.73 328.29,-85.41 312.41,-72.79"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="314.26,-69.78 304.29,-66.21 309.86,-75.22 314.26,-69.78"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M364.84,-118.61C358.13,-115.89 351.26,-112.78 345.06,-109.39 325.09,-98.46 304.39,-83.09 289.35,-71.06"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="291.92,-68.63 281.95,-65.03 287.49,-74.06 291.92,-68.63"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~iapws__capi~~UsesGraph_node6" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~iapws__capi~~UsesGraph_node6"><a xlink:href="http://fortranwiki.org/fortran/show/iso_fortran_env" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="336,-146 242,-146 242,-122 336,-122 336,-146"/>
-<text text-anchor="middle" x="289" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="309.06,-141.77 223.29,-141.77 223.29,-119 309.06,-119 309.06,-141.77"/>
+<text text-anchor="middle" x="266.18" y="-126.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;iso_fortran_env -->
 <g id="module~~iapws__capi~~UsesGraph_edge5" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M377.69,-134C367.52,-134 356.83,-134 346.56,-134"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="346.45,-130.5 336.45,-134 346.45,-137.5 346.45,-130.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M350.11,-130.38C340.62,-130.38 330.63,-130.38 320.99,-130.38"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="320.99,-126.89 310.99,-130.39 320.99,-133.89 320.99,-126.89"/>
 </g>
 <!-- module~iapws__g704 -->
 <g id="module~~iapws__capi~~UsesGraph_node7" class="node">
 <title>module~iapws__g704</title>
 <g id="a_module~~iapws__capi~~UsesGraph_node7"><a xlink:href="../module/iapws__g704.html" xlink:title="iapws__g704">
-<polygon fill="#337ab7" stroke="#337ab7" points="329,-188 249,-188 249,-164 329,-164 329,-188"/>
-<text text-anchor="middle" x="289" y="-173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__g704</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="303.44,-182.77 228.92,-182.77 228.92,-160 303.44,-160 303.44,-182.77"/>
+<text text-anchor="middle" x="266.18" y="-167.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__g704</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;module~iapws__g704 -->
 <g id="module~~iapws__capi~~UsesGraph_edge6" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;module~iapws__g704</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M390.6,-146.04C374.54,-150.82 355.92,-156.36 339.1,-161.37"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="338.02,-158.04 329.44,-164.25 340.02,-164.75 338.02,-158.04"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M361.1,-142.24C346.5,-146.77 329.68,-151.99 314.35,-156.75"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="313.45,-153.36 304.94,-159.67 315.53,-160.05 313.45,-153.36"/>
 </g>
 <!-- module~iapws__capi_r783&#45;&gt;iso_c_binding -->
 <g id="module~~iapws__capi~~UsesGraph_edge7" class="edge">
 <title>module~iapws__capi_r783&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M386.39,-79.98C372.1,-76.13 356.16,-71.83 341.42,-67.86"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="342.01,-64.39 331.45,-65.17 340.19,-71.15 342.01,-64.39"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M357.15,-77.58C344.04,-73.91 329.5,-69.83 315.98,-66.05"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="316.96,-62.69 306.39,-63.36 315.07,-69.43 316.96,-62.69"/>
 </g>
 <!-- module~iapws__r283 -->
 <g id="module~~iapws__capi~~UsesGraph_node8" class="node">
 <title>module~iapws__r283</title>
 <g id="a_module~~iapws__capi~~UsesGraph_node8"><a xlink:href="../module/iapws__r283.html" xlink:title="iapws__r283">
-<polygon fill="#337ab7" stroke="#337ab7" points="197,-126 119,-126 119,-102 197,-102 197,-126"/>
-<text text-anchor="middle" x="158" y="-111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="181.29,-121.77 109.02,-121.77 109.02,-99 181.29,-99 181.29,-121.77"/>
+<text text-anchor="middle" x="145.16" y="-106.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_r783&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__capi~~UsesGraph_edge8" class="edge">
 <title>module~iapws__capi_r783&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M378.88,-96.22C329.44,-100.21 255.74,-106.18 207.53,-110.08"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="207.03,-106.6 197.34,-110.9 207.59,-113.58 207.03,-106.6"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M351.11,-93.38C305.57,-97.16 237.74,-102.79 192.75,-106.52"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="192.73,-103.01 183.06,-107.32 193.31,-109.99 192.73,-103.01"/>
 </g>
 <!-- module~iapws__capi_version&#45;&gt;iso_c_binding -->
 <g id="module~~iapws__capi~~UsesGraph_edge9" class="edge">
 <title>module~iapws__capi_version&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M371.61,-51.68C361.56,-51.97 351.19,-52.26 341.37,-52.54"/>
-<polygon fill="#0000ff" stroke="#0000ff" points="341.25,-49.04 331.35,-52.83 341.45,-56.04 341.25,-49.04"/>
+<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M344.81,-50.04C335.41,-50.32 325.69,-50.61 316.44,-50.89"/>
+<polygon fill="#0000ff" stroke="#0000ff" points="316.44,-47.39 306.55,-51.19 316.65,-54.39 316.44,-47.39"/>
 </g>
 <!-- module~iapws__version -->
 <g id="module~~iapws__capi~~UsesGraph_node9" class="node">
 <title>module~iapws__version</title>
 <g id="a_module~~iapws__capi~~UsesGraph_node9"><a xlink:href="../module/iapws__version.html" xlink:title="iapws__version">
-<polygon fill="#337ab7" stroke="#337ab7" points="335,-24 243,-24 243,0 335,0 335,-24"/>
-<text text-anchor="middle" x="289" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__version</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="308.69,-22.77 223.67,-22.77 223.67,0 308.69,0 308.69,-22.77"/>
+<text text-anchor="middle" x="266.18" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__version</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_version&#45;&gt;module~iapws__version -->
 <g id="module~~iapws__capi~~UsesGraph_edge10" class="edge">
 <title>module~iapws__capi_version&#45;&gt;module~iapws__version</title>
-<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M386.39,-37.98C373.14,-34.41 358.48,-30.46 344.68,-26.74"/>
-<polygon fill="#0000ff" stroke="#0000ff" points="345.37,-23.3 334.81,-24.08 343.55,-30.06 345.37,-23.3"/>
+<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M357.15,-36.58C345.23,-33.24 332.11,-29.57 319.67,-26.08"/>
+<polygon fill="#0000ff" stroke="#0000ff" points="320.98,-22.82 310.41,-23.49 319.09,-29.56 320.98,-22.82"/>
 </g>
 <!-- module~iapws__g704&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__capi~~UsesGraph_edge12" class="edge">
 <title>module~iapws__g704&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M260.59,-163.91C254.43,-161.08 247.96,-158.01 242,-155 225.66,-146.75 222.37,-143.19 206,-135 202.87,-133.43 199.59,-131.85 196.29,-130.3"/>
-<polygon fill="#00ff66" stroke="#00ff66" points="197.57,-127.04 187.02,-126.04 194.65,-133.4 197.57,-127.04"/>
+<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M241.65,-159.7C235.65,-156.69 229.22,-153.44 223.29,-150.38 207.2,-142.11 203.35,-139.72 187.29,-131.38 184.74,-130.06 182.09,-128.69 179.43,-127.32"/>
+<polygon fill="#00ff66" stroke="#00ff66" points="181.09,-124.24 170.59,-122.79 177.89,-130.47 181.09,-124.24"/>
 </g>
 <!-- ieee_arithmetic -->
 <g id="module~~iapws__capi~~UsesGraph_node10" class="node">
 <title>ieee_arithmetic</title>
 <g id="a_module~~iapws__capi~~UsesGraph_node10"><a xlink:href="http://fortranwiki.org/fortran/show/ieee_arithmetic" xlink:title="ieee_arithmetic">
-<polygon fill="#337ab7" stroke="#337ab7" points="206,-168 110,-168 110,-144 206,-144 206,-168"/>
-<text text-anchor="middle" x="158" y="-153.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="187.29,-162.77 103.02,-162.77 103.02,-140 187.29,-140 187.29,-162.77"/>
+<text text-anchor="middle" x="145.16" y="-147.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__g704&#45;&gt;ieee_arithmetic -->
 <g id="module~~iapws__capi~~UsesGraph_edge11" class="edge">
 <title>module~iapws__g704&#45;&gt;ieee_arithmetic</title>
-<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M248.95,-169.95C238.61,-168.34 227.24,-166.58 216.16,-164.86"/>
-<polygon fill="#00ff66" stroke="#00ff66" points="216.53,-161.38 206.11,-163.3 215.46,-168.29 216.53,-161.38"/>
+<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M228.49,-165.22C219.06,-163.64 208.73,-161.9 198.67,-160.21"/>
+<polygon fill="#00ff66" stroke="#00ff66" points="199.43,-156.79 188.99,-158.58 198.27,-163.69 199.43,-156.79"/>
 </g>
 <!-- stdlib_kinds -->
 <g id="module~~iapws__capi~~UsesGraph_node11" class="node">
 <title>stdlib_kinds</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="74,-167 0,-167 0,-143 74,-143 74,-167"/>
-<text text-anchor="middle" x="37" y="-152.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="67.02,-161.77 0,-161.77 0,-139 67.02,-139 67.02,-161.77"/>
+<text text-anchor="middle" x="33.51" y="-146.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
 </g>
 <!-- module~iapws__g704&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__capi~~UsesGraph_edge13" class="edge">
 <title>module~iapws__g704&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M248.86,-179.65C212.63,-182.22 157.37,-184.08 110,-177 100.12,-175.52 89.72,-172.97 79.99,-170.11"/>
-<polygon fill="#00ff66" stroke="#00ff66" points="80.73,-166.67 70.14,-167.05 78.66,-173.36 80.73,-166.67"/>
+<path fill="none" stroke="#00ff66" stroke-dasharray="5,2" d="M228.56,-174.46C195.54,-176.51 145.76,-177.79 103.02,-171.38 94.47,-170.1 85.5,-167.97 76.99,-165.54"/>
+<polygon fill="#00ff66" stroke="#00ff66" points="78.15,-162.24 67.57,-162.66 76.11,-168.93 78.15,-162.24"/>
 </g>
 <!-- module~iapws__r283&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__capi~~UsesGraph_edge14" class="edge">
 <title>module~iapws__r283&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M121.94,-126.08C109.7,-130.3 95.79,-135.09 82.87,-139.54"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="81.54,-136.3 73.22,-142.87 83.82,-142.92 81.54,-136.3"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M111.85,-122.17C101.13,-126.08 89.01,-130.5 77.61,-134.66"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="76.58,-131.31 68.38,-138.03 78.98,-137.89 76.58,-131.31"/>
 </g>
 </g>
 </svg>
@@ -352,49 +352,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -422,34 +422,34 @@ <h3 class="card-header card-title bg-light">Used by</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__capi~~UsedByGraph Pages: 1 -->
-<svg id="moduleiapws__capiUsedByGraph" width="174pt" height="32pt"
- viewBox="0.00 0.00 174.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__capi~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="moduleiapws__capiUsedByGraph" width="168pt" height="31pt"
+ viewBox="0.00 0.00 168.02 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__capi~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>module~~iapws__capi~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 170,-28 170,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 164.02,-26.77 164.02,4 -4,4"/>
 <!-- module~iapws__capi -->
 <g id="module~~iapws__capi~~UsedByGraph_node1" class="node">
 <title>module~iapws__capi</title>
-<polygon fill="none" stroke="black" points="76,-24 0,-24 0,0 76,0 76,-24"/>
-<text text-anchor="middle" x="38" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi</text>
+<polygon fill="none" stroke="black" points="70.02,-22.77 0,-22.77 0,0 70.02,0 70.02,-22.77"/>
+<text text-anchor="middle" x="35.01" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi</text>
 </g>
 <!-- module~iapws -->
 <g id="module~~iapws__capi~~UsedByGraph_node2" class="node">
 <title>module~iapws</title>
 <g id="a_module~~iapws__capi~~UsedByGraph_node2"><a xlink:href="../module/iapws.html" xlink:title="iapws">
-<polygon fill="#337ab7" stroke="#337ab7" points="166,-24 112,-24 112,0 166,0 166,-24"/>
-<text text-anchor="middle" x="139" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="160.02,-22.77 106.02,-22.77 106.02,0 160.02,0 160.02,-22.77"/>
+<text text-anchor="middle" x="133.02" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__capi -->
 <g id="module~~iapws__capi~~UsedByGraph_edge1" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__capi</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M111.99,-12C104.08,-12 95.14,-12 86.28,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="86,-8.5 76,-12 86,-15.5 86,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M105.53,-11.39C98.14,-11.39 89.88,-11.39 81.72,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="81.85,-7.89 71.85,-11.39 81.85,-14.89 81.85,-7.89"/>
 </g>
 </g>
 </svg>
@@ -468,49 +468,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -560,7 +560,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/iapws__capi_g704.html b/docs/module/iapws__capi_g704.html
index 94271ce..9ee160d 100644
--- a/docs/module/iapws__capi_g704.html
+++ b/docs/module/iapws__capi_g704.html
@@ -164,8 +164,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='http://fortranwiki.org/fortran/show/iso_c_binding'>iso_c_binding</a></li>
                   <li class="list-inline-item"><a href='iapws__g704.html'>iapws__g704</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='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
@@ -173,112 +173,112 @@ <h3 class="card-header card-title bg-light">Uses</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__capi_g704~~UsesGraph Pages: 1 -->
-<svg id="moduleiapws__capi_g704UsesGraph" width="488pt" height="136pt"
- viewBox="0.00 0.00 488.00 136.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__capi_g704~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 132)">
+<svg id="moduleiapws__capi_g704UsesGraph" width="453pt" height="133pt"
+ viewBox="0.00 0.00 453.08 132.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__capi_g704~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 128.77)">
 <title>module~~iapws__capi_g704~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-132 484,-132 484,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-128.77 449.08,-128.77 449.08,4 -4,4"/>
 <!-- module~iapws__capi_g704 -->
 <g id="module~~iapws__capi_g704~~UsesGraph_node1" class="node">
 <title>module~iapws__capi_g704</title>
-<polygon fill="none" stroke="black" points="480,-86 372,-86 372,-62 480,-62 480,-86"/>
-<text text-anchor="middle" x="426" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_g704</text>
+<polygon fill="none" stroke="black" points="445.08,-83.77 345.06,-83.77 345.06,-61 445.08,-61 445.08,-83.77"/>
+<text text-anchor="middle" x="395.07" y="-68.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_g704</text>
 </g>
 <!-- iso_c_binding -->
 <g id="module~~iapws__capi_g704~~UsesGraph_node2" class="node">
 <title>iso_c_binding</title>
 <g id="a_module~~iapws__capi_g704~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="331,-128 247,-128 247,-104 331,-104 331,-128"/>
-<text text-anchor="middle" x="289" y="-113.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="304.56,-124.77 227.79,-124.77 227.79,-102 304.56,-102 304.56,-124.77"/>
+<text text-anchor="middle" x="266.18" y="-109.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;iso_c_binding -->
 <g id="module~~iapws__capi_g704~~UsesGraph_edge1" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M386.31,-86.04C371.35,-90.69 354.05,-96.07 338.28,-100.98"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="337.2,-97.65 328.69,-103.96 339.28,-104.33 337.2,-97.65"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M357.37,-84.24C343.95,-88.58 328.58,-93.54 314.38,-98.13"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="313.68,-94.68 305.24,-101.09 315.83,-101.34 313.68,-94.68"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~iapws__capi_g704~~UsesGraph_node3" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~iapws__capi_g704~~UsesGraph_node3"><a xlink:href="http://fortranwiki.org/fortran/show/iso_fortran_env" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="336,-86 242,-86 242,-62 336,-62 336,-86"/>
-<text text-anchor="middle" x="289" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="309.06,-83.77 223.29,-83.77 223.29,-61 309.06,-61 309.06,-83.77"/>
+<text text-anchor="middle" x="266.18" y="-68.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;iso_fortran_env -->
 <g id="module~~iapws__capi_g704~~UsesGraph_edge2" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M371.64,-74C363.37,-74 354.79,-74 346.45,-74"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="346.42,-70.5 336.42,-74 346.42,-77.5 346.42,-70.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M344.65,-72.39C336.79,-72.39 328.63,-72.39 320.69,-72.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="320.78,-68.89 310.78,-72.39 320.78,-75.89 320.78,-68.89"/>
 </g>
 <!-- module~iapws__g704 -->
 <g id="module~~iapws__capi_g704~~UsesGraph_node4" class="node">
 <title>module~iapws__g704</title>
 <g id="a_module~~iapws__capi_g704~~UsesGraph_node4"><a xlink:href="../module/iapws__g704.html" xlink:title="iapws__g704">
-<polygon fill="#337ab7" stroke="#337ab7" points="329,-44 249,-44 249,-20 329,-20 329,-44"/>
-<text text-anchor="middle" x="289" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__g704</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="303.44,-42.77 228.92,-42.77 228.92,-20 303.44,-20 303.44,-42.77"/>
+<text text-anchor="middle" x="266.18" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__g704</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;module~iapws__g704 -->
 <g id="module~~iapws__capi_g704~~UsesGraph_edge3" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;module~iapws__g704</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M386.31,-61.96C371.35,-57.31 354.05,-51.93 338.28,-47.02"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="339.28,-43.67 328.69,-44.04 337.2,-50.35 339.28,-43.67"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M357.37,-60.53C343.95,-56.19 328.58,-51.23 314.38,-46.64"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="315.83,-43.43 305.24,-43.68 313.68,-50.09 315.83,-43.43"/>
 </g>
 <!-- ieee_arithmetic -->
 <g id="module~~iapws__capi_g704~~UsesGraph_node5" class="node">
 <title>ieee_arithmetic</title>
 <g id="a_module~~iapws__capi_g704~~UsesGraph_node5"><a xlink:href="http://fortranwiki.org/fortran/show/ieee_arithmetic" xlink:title="ieee_arithmetic">
-<polygon fill="#337ab7" stroke="#337ab7" points="206,-86 110,-86 110,-62 206,-62 206,-86"/>
-<text text-anchor="middle" x="158" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="187.29,-83.77 103.02,-83.77 103.02,-61 187.29,-61 187.29,-83.77"/>
+<text text-anchor="middle" x="145.16" y="-68.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__g704&#45;&gt;ieee_arithmetic -->
 <g id="module~~iapws__capi_g704~~UsesGraph_edge4" class="edge">
 <title>module~iapws__g704&#45;&gt;ieee_arithmetic</title>
-<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M251.03,-44.04C236.86,-48.65 220.51,-53.97 205.56,-58.84"/>
-<polygon fill="#0000ff" stroke="#0000ff" points="204.4,-55.54 195.97,-61.96 206.56,-62.19 204.4,-55.54"/>
+<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M230.75,-43.24C218.41,-47.49 204.32,-52.35 191.21,-56.86"/>
+<polygon fill="#0000ff" stroke="#0000ff" points="190.25,-53.49 181.93,-60.06 192.53,-60.11 190.25,-53.49"/>
 </g>
 <!-- module~iapws__r283 -->
 <g id="module~~iapws__capi_g704~~UsesGraph_node6" class="node">
 <title>module~iapws__r283</title>
 <g id="a_module~~iapws__capi_g704~~UsesGraph_node6"><a xlink:href="../module/iapws__r283.html" xlink:title="iapws__r283">
-<polygon fill="#337ab7" stroke="#337ab7" points="197,-44 119,-44 119,-20 197,-20 197,-44"/>
-<text text-anchor="middle" x="158" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="181.29,-42.77 109.02,-42.77 109.02,-20 181.29,-20 181.29,-42.77"/>
+<text text-anchor="middle" x="145.16" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__g704&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__capi_g704~~UsesGraph_edge5" class="edge">
 <title>module~iapws__g704&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M248.95,-32C235.83,-32 221.04,-32 207.29,-32"/>
-<polygon fill="#0000ff" stroke="#0000ff" points="207.04,-28.5 197.04,-32 207.04,-35.5 207.04,-28.5"/>
+<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M228.49,-31.39C217.33,-31.39 204.89,-31.39 193.15,-31.39"/>
+<polygon fill="#0000ff" stroke="#0000ff" points="193.21,-27.89 183.21,-31.39 193.21,-34.89 193.21,-27.89"/>
 </g>
 <!-- stdlib_kinds -->
 <g id="module~~iapws__capi_g704~~UsesGraph_node7" class="node">
 <title>stdlib_kinds</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="74,-24 0,-24 0,0 74,0 74,-24"/>
-<text text-anchor="middle" x="37" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="67.02,-22.77 0,-22.77 0,0 67.02,0 67.02,-22.77"/>
+<text text-anchor="middle" x="33.51" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
 </g>
 <!-- module~iapws__g704&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__capi_g704~~UsesGraph_edge6" class="edge">
 <title>module~iapws__g704&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M249.18,-19.93C235.65,-16.3 220.29,-12.8 206,-11 163.67,-5.67 152.67,-10.7 110,-11 101.73,-11.06 92.94,-11.15 84.43,-11.26"/>
-<polygon fill="#0000ff" stroke="#0000ff" points="84.21,-7.76 74.26,-11.4 84.3,-14.76 84.21,-7.76"/>
+<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M228.7,-20C215.76,-16.5 201,-13.12 187.29,-11.39 150.89,-6.79 109.22,-7.16 78.6,-8.47"/>
+<polygon fill="#0000ff" stroke="#0000ff" points="78.77,-4.96 68.95,-8.94 79.11,-11.95 78.77,-4.96"/>
 </g>
 <!-- module~iapws__r283&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__capi_g704~~UsesGraph_edge7" class="edge">
 <title>module~iapws__r283&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M118.69,-25.56C107.77,-23.73 95.75,-21.71 84.4,-19.8"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="84.65,-16.29 74.21,-18.09 83.49,-23.2 84.65,-16.29"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M108.56,-24.89C98.92,-23.13 88.39,-21.21 78.36,-19.38"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="79.29,-15.99 68.82,-17.64 78.03,-22.88 79.29,-15.99"/>
 </g>
 </g>
 </svg>
@@ -297,49 +297,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -367,49 +367,49 @@ <h3 class="card-header card-title bg-light">Used by</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__capi_g704~~UsedByGraph Pages: 1 -->
-<svg id="moduleiapws__capi_g704UsedByGraph" width="318pt" height="32pt"
- viewBox="0.00 0.00 318.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__capi_g704~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="moduleiapws__capi_g704UsedByGraph" width="304pt" height="31pt"
+ viewBox="0.00 0.00 304.04 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__capi_g704~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>module~~iapws__capi_g704~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 314,-28 314,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 300.04,-26.77 300.04,4 -4,4"/>
 <!-- module~iapws__capi_g704 -->
 <g id="module~~iapws__capi_g704~~UsedByGraph_node1" class="node">
 <title>module~iapws__capi_g704</title>
-<polygon fill="none" stroke="black" points="108,-24 0,-24 0,0 108,0 108,-24"/>
-<text text-anchor="middle" x="54" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_g704</text>
+<polygon fill="none" stroke="black" points="100.02,-22.77 0,-22.77 0,0 100.02,0 100.02,-22.77"/>
+<text text-anchor="middle" x="50.01" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_g704</text>
 </g>
 <!-- module~iapws__capi -->
 <g id="module~~iapws__capi_g704~~UsedByGraph_node2" class="node">
 <title>module~iapws__capi</title>
 <g id="a_module~~iapws__capi_g704~~UsedByGraph_node2"><a xlink:href="../module/iapws__capi.html" xlink:title="iapws__capi">
-<polygon fill="#337ab7" stroke="#337ab7" points="220,-24 144,-24 144,0 220,0 220,-24"/>
-<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="206.04,-22.77 136.02,-22.77 136.02,0 206.04,0 206.04,-22.77"/>
+<text text-anchor="middle" x="171.03" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_g704 -->
 <g id="module~~iapws__capi_g704~~UsedByGraph_edge1" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_g704</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M143.88,-12C135.84,-12 127.13,-12 118.4,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="118.2,-8.5 108.2,-12 118.2,-15.5 118.2,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M135.6,-11.39C128.14,-11.39 120.03,-11.39 111.88,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="111.92,-7.89 101.92,-11.39 111.92,-14.89 111.92,-7.89"/>
 </g>
 <!-- module~iapws -->
 <g id="module~~iapws__capi_g704~~UsedByGraph_node3" class="node">
 <title>module~iapws</title>
 <g id="a_module~~iapws__capi_g704~~UsedByGraph_node3"><a xlink:href="../module/iapws.html" xlink:title="iapws">
-<polygon fill="#337ab7" stroke="#337ab7" points="310,-24 256,-24 256,0 310,0 310,-24"/>
-<text text-anchor="middle" x="283" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="296.04,-22.77 242.04,-22.77 242.04,0 296.04,0 296.04,-22.77"/>
+<text text-anchor="middle" x="269.04" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__capi -->
 <g id="module~~iapws__capi_g704~~UsedByGraph_edge2" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__capi</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M255.99,-12C248.08,-12 239.14,-12 230.28,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="230,-8.5 220,-12 230,-15.5 230,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M241.55,-11.39C234.16,-11.39 225.9,-11.39 217.74,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="217.87,-7.89 207.87,-11.39 217.87,-14.89 217.87,-7.89"/>
 </g>
 </g>
 </svg>
@@ -428,49 +428,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -520,7 +520,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~9"></span>
+              <span class="anchor" id="variable-heavywater~4"></span>
               integer(kind=c_int),
             </td>
 <td>intent(in),</td>
@@ -565,7 +565,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~8"></span>
+              <span class="anchor" id="variable-heavywater~3"></span>
               integer(kind=c_int),
             </td>
 <td>intent(in),</td>
@@ -615,7 +615,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-t~12"></span>
+              <span class="anchor" id="variable-t~2"></span>
               real(kind=c_double),
             </td>
 <td>intent(in)</td>
@@ -630,7 +630,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-gas~10"></span>
+              <span class="anchor" id="variable-gas~3"></span>
               type(c_ptr),
             </td>
 <td>intent(in),</td>
@@ -645,7 +645,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~7"></span>
+              <span class="anchor" id="variable-heavywater~2"></span>
               integer(kind=c_int),
             </td>
 <td>intent(in),</td>
@@ -660,7 +660,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~5"></span>
+              <span class="anchor" id="variable-k~2"></span>
               real(kind=c_double),
             </td>
 <td>intent(inout)</td>
@@ -730,7 +730,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-t~11"></span>
+              <span class="anchor" id="variable-t"></span>
               real(kind=c_double),
             </td>
 <td>intent(in)</td>
@@ -745,7 +745,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-gas~9"></span>
+              <span class="anchor" id="variable-gas~2"></span>
               type(c_ptr),
             </td>
 <td>intent(in),</td>
@@ -760,7 +760,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~6"></span>
+              <span class="anchor" id="variable-heavywater"></span>
               integer(kind=c_int),
             </td>
 <td>intent(in),</td>
@@ -775,7 +775,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~4"></span>
+              <span class="anchor" id="variable-k"></span>
               real(kind=c_double),
             </td>
 <td>intent(inout)</td>
@@ -848,7 +848,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/iapws__capi_r783.html b/docs/module/iapws__capi_r783.html
index 289d2a9..0754063 100644
--- a/docs/module/iapws__capi_r783.html
+++ b/docs/module/iapws__capi_r783.html
@@ -164,61 +164,61 @@ <h3 class="card-header card-title bg-light">Uses</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__capi_r783~~UsesGraph Pages: 1 -->
-<svg id="moduleiapws__capi_r783UsesGraph" width="344pt" height="74pt"
- viewBox="0.00 0.00 344.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__capi_r783~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<svg id="moduleiapws__capi_r783UsesGraph" width="322pt" height="72pt"
+ viewBox="0.00 0.00 321.56 71.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__capi_r783~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 67.77)">
 <title>module~~iapws__capi_r783~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 340,-70 340,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-67.77 317.56,-67.77 317.56,4 -4,4"/>
 <!-- module~iapws__capi_r783 -->
 <g id="module~~iapws__capi_r783~~UsesGraph_node1" class="node">
 <title>module~iapws__capi_r783</title>
-<polygon fill="none" stroke="black" points="336,-45 230,-45 230,-21 336,-21 336,-45"/>
-<text text-anchor="middle" x="283" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_r783</text>
+<polygon fill="none" stroke="black" points="313.56,-42.77 215.79,-42.77 215.79,-20 313.56,-20 313.56,-42.77"/>
+<text text-anchor="middle" x="264.68" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_r783</text>
 </g>
 <!-- iso_c_binding -->
 <g id="module~~iapws__capi_r783~~UsesGraph_node2" class="node">
 <title>iso_c_binding</title>
 <g id="a_module~~iapws__capi_r783~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="194,-66 110,-66 110,-42 194,-42 194,-66"/>
-<text text-anchor="middle" x="152" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="179.79,-63.77 103.02,-63.77 103.02,-41 179.79,-41 179.79,-63.77"/>
+<text text-anchor="middle" x="141.41" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_r783&#45;&gt;iso_c_binding -->
 <g id="module~~iapws__capi_r783~~UsesGraph_edge1" class="edge">
 <title>module~iapws__capi_r783&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M229.9,-41.48C221.45,-42.86 212.7,-44.28 204.27,-45.65"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="203.49,-42.23 194.19,-47.3 204.62,-49.14 203.49,-42.23"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M215.4,-39.75C207.5,-41.11 199.31,-42.53 191.39,-43.9"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="190.8,-40.45 181.55,-45.61 192,-47.35 190.8,-40.45"/>
 </g>
 <!-- module~iapws__r283 -->
 <g id="module~~iapws__capi_r783~~UsesGraph_node3" class="node">
 <title>module~iapws__r283</title>
 <g id="a_module~~iapws__capi_r783~~UsesGraph_node3"><a xlink:href="../module/iapws__r283.html" xlink:title="iapws__r283">
-<polygon fill="#337ab7" stroke="#337ab7" points="191,-24 113,-24 113,0 191,0 191,-24"/>
-<text text-anchor="middle" x="152" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="177.54,-22.77 105.27,-22.77 105.27,0 177.54,0 177.54,-22.77"/>
+<text text-anchor="middle" x="141.41" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_r783&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__capi_r783~~UsesGraph_edge2" class="edge">
 <title>module~iapws__capi_r783&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M229.9,-24.52C220.35,-22.96 210.42,-21.35 201,-19.81"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="201.44,-16.34 191.01,-18.19 200.32,-23.25 201.44,-16.34"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M215.4,-23.42C206.67,-21.98 197.59,-20.49 188.91,-19.06"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="189.74,-15.64 179.3,-17.47 188.6,-22.55 189.74,-15.64"/>
 </g>
 <!-- stdlib_kinds -->
 <g id="module~~iapws__capi_r783~~UsesGraph_node4" class="node">
 <title>stdlib_kinds</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="74,-24 0,-24 0,0 74,0 74,-24"/>
-<text text-anchor="middle" x="37" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="67.02,-22.77 0,-22.77 0,0 67.02,0 67.02,-22.77"/>
+<text text-anchor="middle" x="33.51" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
 </g>
 <!-- module~iapws__r283&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__capi_r783~~UsesGraph_edge3" class="edge">
 <title>module~iapws__r283&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M112.74,-12C103.62,-12 93.79,-12 84.35,-12"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="84.31,-8.5 74.31,-12 84.31,-15.5 84.31,-8.5"/>
+<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M104.85,-11.39C96.41,-11.39 87.31,-11.39 78.54,-11.39"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="78.81,-7.89 68.81,-11.39 78.81,-14.89 78.81,-7.89"/>
 </g>
 </g>
 </svg>
@@ -237,49 +237,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -307,49 +307,49 @@ <h3 class="card-header card-title bg-light">Used by</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__capi_r783~~UsedByGraph Pages: 1 -->
-<svg id="moduleiapws__capi_r783UsedByGraph" width="316pt" height="32pt"
- viewBox="0.00 0.00 316.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__capi_r783~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="moduleiapws__capi_r783UsedByGraph" width="302pt" height="31pt"
+ viewBox="0.00 0.00 301.79 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__capi_r783~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>module~~iapws__capi_r783~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 312,-28 312,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 297.79,-26.77 297.79,4 -4,4"/>
 <!-- module~iapws__capi_r783 -->
 <g id="module~~iapws__capi_r783~~UsedByGraph_node1" class="node">
 <title>module~iapws__capi_r783</title>
-<polygon fill="none" stroke="black" points="106,-24 0,-24 0,0 106,0 106,-24"/>
-<text text-anchor="middle" x="53" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_r783</text>
+<polygon fill="none" stroke="black" points="97.77,-22.77 0,-22.77 0,0 97.77,0 97.77,-22.77"/>
+<text text-anchor="middle" x="48.88" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_r783</text>
 </g>
 <!-- module~iapws__capi -->
 <g id="module~~iapws__capi_r783~~UsedByGraph_node2" class="node">
 <title>module~iapws__capi</title>
 <g id="a_module~~iapws__capi_r783~~UsedByGraph_node2"><a xlink:href="../module/iapws__capi.html" xlink:title="iapws__capi">
-<polygon fill="#337ab7" stroke="#337ab7" points="218,-24 142,-24 142,0 218,0 218,-24"/>
-<text text-anchor="middle" x="180" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="203.79,-22.77 133.77,-22.77 133.77,0 203.79,0 203.79,-22.77"/>
+<text text-anchor="middle" x="168.78" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_r783 -->
 <g id="module~~iapws__capi_r783~~UsedByGraph_edge1" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_r783</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M141.83,-12C133.77,-12 125.02,-12 116.28,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="116.06,-8.5 106.06,-12 116.06,-15.5 116.06,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M133.36,-11.39C125.88,-11.39 117.75,-11.39 109.61,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="109.66,-7.89 99.66,-11.39 109.66,-14.89 109.66,-7.89"/>
 </g>
 <!-- module~iapws -->
 <g id="module~~iapws__capi_r783~~UsedByGraph_node3" class="node">
 <title>module~iapws</title>
 <g id="a_module~~iapws__capi_r783~~UsedByGraph_node3"><a xlink:href="../module/iapws.html" xlink:title="iapws">
-<polygon fill="#337ab7" stroke="#337ab7" points="308,-24 254,-24 254,0 308,0 308,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="293.79,-22.77 239.79,-22.77 239.79,0 293.79,0 293.79,-22.77"/>
+<text text-anchor="middle" x="266.79" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__capi -->
 <g id="module~~iapws__capi_r783~~UsedByGraph_edge2" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__capi</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M253.99,-12C246.08,-12 237.14,-12 228.28,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="228,-8.5 218,-12 228,-15.5 228,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M239.3,-11.39C231.91,-11.39 223.65,-11.39 215.49,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="215.62,-7.89 205.62,-11.39 215.62,-14.89 215.62,-7.89"/>
 </g>
 </g>
 </svg>
@@ -368,49 +368,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -579,7 +579,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/iapws__capi_r797.html b/docs/module/iapws__capi_r797.html
index fb595dd..f4c81f8 100644
--- a/docs/module/iapws__capi_r797.html
+++ b/docs/module/iapws__capi_r797.html
@@ -152,8 +152,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='http://fortranwiki.org/fortran/show/iso_c_binding'>iso_c_binding</a></li>
                   <li class="list-inline-item">stdlib_kinds</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='iapws__r797.html'>iapws__r797</a></li>
               </ul>
             </li>
@@ -161,103 +161,103 @@ <h3 class="card-header card-title bg-light">Uses</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__capi_r797~~UsesGraph Pages: 1 -->
-<svg id="moduleiapws__capi_r797UsesGraph" width="476pt" height="108pt"
- viewBox="0.00 0.00 476.00 107.88" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__capi_r797~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 103.88)">
+<svg id="moduleiapws__capi_r797UsesGraph" width="442pt" height="104pt"
+ viewBox="0.00 0.00 441.83 103.92" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__capi_r797~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 99.92)">
 <title>module~~iapws__capi_r797~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-103.88 472,-103.88 472,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-99.92 437.83,-99.92 437.83,4 -4,4"/>
 <!-- module~iapws__capi_r797 -->
 <g id="module~~iapws__capi_r797~~UsesGraph_node1" class="node">
 <title>module~iapws__capi_r797</title>
-<polygon fill="none" stroke="black" points="468,-57.88 362,-57.88 362,-33.88 468,-33.88 468,-57.88"/>
-<text text-anchor="middle" x="415" y="-43.48" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_r797</text>
+<polygon fill="none" stroke="black" points="433.83,-54.92 336.06,-54.92 336.06,-32.15 433.83,-32.15 433.83,-54.92"/>
+<text text-anchor="middle" x="384.94" y="-39.18" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_r797</text>
 </g>
 <!-- iso_c_binding -->
 <g id="module~~iapws__capi_r797~~UsesGraph_node2" class="node">
 <title>iso_c_binding</title>
 <g id="a_module~~iapws__capi_r797~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="326,-99.88 242,-99.88 242,-75.88 326,-75.88 326,-99.88"/>
-<text text-anchor="middle" x="284" y="-85.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="300.06,-95.92 223.29,-95.92 223.29,-73.15 300.06,-73.15 300.06,-95.92"/>
+<text text-anchor="middle" x="261.68" y="-80.18" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_r797&#45;&gt;iso_c_binding -->
 <g id="module~~iapws__capi_r797~~UsesGraph_edge1" class="edge">
 <title>module~iapws__capi_r797&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M377.03,-57.91C362.86,-62.53 346.51,-67.85 331.56,-72.72"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="330.4,-69.42 321.97,-75.84 332.56,-76.07 330.4,-69.42"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M348.87,-55.39C336.17,-59.68 321.65,-64.59 308.19,-69.15"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="307.46,-65.7 299.11,-72.22 309.7,-72.33 307.46,-65.7"/>
 </g>
 <!-- module~iapws__r797 -->
 <g id="module~~iapws__capi_r797~~UsesGraph_node3" class="node">
 <title>module~iapws__r797</title>
 <g id="a_module~~iapws__capi_r797~~UsesGraph_node3"><a xlink:href="../module/iapws__r797.html" xlink:title="iapws__r797">
-<polygon fill="#337ab7" stroke="#337ab7" points="323,-57.88 245,-57.88 245,-33.88 323,-33.88 323,-57.88"/>
-<text text-anchor="middle" x="284" y="-43.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r797</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="297.81,-54.92 225.54,-54.92 225.54,-32.15 297.81,-32.15 297.81,-54.92"/>
+<text text-anchor="middle" x="261.68" y="-39.18" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r797</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_r797&#45;&gt;module~iapws__r797 -->
 <g id="module~~iapws__capi_r797~~UsesGraph_edge2" class="edge">
 <title>module~iapws__capi_r797&#45;&gt;module~iapws__r797</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M361.9,-45.88C352.45,-45.88 342.63,-45.88 333.3,-45.88"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="333.01,-42.38 323.01,-45.88 333.01,-49.38 333.01,-42.38"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M335.67,-43.53C327.04,-43.53 318.06,-43.53 309.48,-43.53"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="309.59,-40.03 299.59,-43.53 309.59,-47.03 309.59,-40.03"/>
 </g>
 <!-- stdlib_kinds -->
 <g id="module~~iapws__capi_r797~~UsesGraph_node4" class="node">
 <title>stdlib_kinds</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="74,-36.88 0,-36.88 0,-12.88 74,-12.88 74,-36.88"/>
-<text text-anchor="middle" x="37" y="-22.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="67.02,-34.92 0,-34.92 0,-12.15 67.02,-12.15 67.02,-34.92"/>
+<text text-anchor="middle" x="33.51" y="-19.18" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
 </g>
 <!-- module~iapws__capi_r797&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__capi_r797~~UsesGraph_edge3" class="edge">
 <title>module~iapws__capi_r797&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M376.07,-33.8C318.53,-17.03 205.73,9.8 110,-3.88 100.72,-5.2 90.97,-7.44 81.75,-9.98"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="80.61,-6.66 71.99,-12.82 82.57,-13.39 80.61,-6.66"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M347.58,-31.73C294.03,-15.86 190.8,9.02 103.02,-3.53 94.84,-4.7 86.27,-6.62 78.08,-8.82"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="77.3,-5.4 68.65,-11.52 79.23,-12.13 77.3,-5.4"/>
 </g>
 <!-- module~iapws__r797&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__capi_r797~~UsesGraph_edge6" class="edge">
 <title>module~iapws__r797&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M258.6,-58.1C253.11,-60.93 247.33,-63.96 242,-66.88 225.75,-75.77 223.88,-83.05 206,-87.88 164.81,-99.01 149.94,-102.89 110,-87.88 87.17,-79.3 66.85,-59.84 53.66,-44.8"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="56.22,-42.4 47.1,-37 50.86,-46.91 56.22,-42.4"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M239.73,-55.32C218.29,-67.37 188.02,-84.34 187.29,-84.53 151.05,-93.97 138.02,-97.86 103.02,-84.53 81.78,-76.45 62.92,-58.41 50.4,-44.04"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="53.17,-41.89 44.09,-36.43 47.78,-46.36 53.17,-41.89"/>
 </g>
 <!-- ieee_arithmetic -->
 <g id="module~~iapws__capi_r797~~UsesGraph_node5" class="node">
 <title>ieee_arithmetic</title>
 <g id="a_module~~iapws__capi_r797~~UsesGraph_node5"><a xlink:href="http://fortranwiki.org/fortran/show/ieee_arithmetic" xlink:title="ieee_arithmetic">
-<polygon fill="#337ab7" stroke="#337ab7" points="206,-78.88 110,-78.88 110,-54.88 206,-54.88 206,-78.88"/>
-<text text-anchor="middle" x="158" y="-64.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="187.29,-75.92 103.02,-75.92 103.02,-53.15 187.29,-53.15 187.29,-75.92"/>
+<text text-anchor="middle" x="145.16" y="-60.18" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__r797&#45;&gt;ieee_arithmetic -->
 <g id="module~~iapws__capi_r797~~UsesGraph_edge4" class="edge">
 <title>module~iapws__r797&#45;&gt;ieee_arithmetic</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M244.78,-52.35C235.7,-53.89 225.81,-55.56 216.09,-57.21"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="215.33,-53.79 206.05,-58.91 216.5,-60.69 215.33,-53.79"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M225.07,-50.06C216.76,-51.59 207.73,-53.24 198.86,-54.87"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="198.45,-51.38 189.25,-56.63 199.71,-58.27 198.45,-51.38"/>
 </g>
 <!-- module~iapws__r283 -->
 <g id="module~~iapws__capi_r797~~UsesGraph_node6" class="node">
 <title>module~iapws__r283</title>
 <g id="a_module~~iapws__capi_r797~~UsesGraph_node6"><a xlink:href="../module/iapws__r283.html" xlink:title="iapws__r283">
-<polygon fill="#337ab7" stroke="#337ab7" points="197,-36.88 119,-36.88 119,-12.88 197,-12.88 197,-36.88"/>
-<text text-anchor="middle" x="158" y="-22.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="181.29,-34.92 109.02,-34.92 109.02,-12.15 181.29,-12.15 181.29,-34.92"/>
+<text text-anchor="middle" x="145.16" y="-19.18" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__r797&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__capi_r797~~UsesGraph_edge5" class="edge">
 <title>module~iapws__r797&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M244.78,-39.41C233,-37.41 219.86,-35.19 207.48,-33.09"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="207.75,-29.59 197.3,-31.37 206.58,-36.49 207.75,-29.59"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M225.07,-37.31C214.94,-35.55 203.76,-33.59 193.07,-31.73"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="193.68,-28.28 183.23,-30.01 192.48,-35.18 193.68,-28.28"/>
 </g>
 <!-- module~iapws__r283&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__capi_r797~~UsesGraph_edge7" class="edge">
 <title>module~iapws__r283&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M118.69,-24.88C107.77,-24.88 95.75,-24.88 84.4,-24.88"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="84.21,-21.38 74.21,-24.88 84.21,-28.38 84.21,-21.38"/>
+<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M108.56,-23.53C99.03,-23.53 88.61,-23.53 78.68,-23.53"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="78.84,-20.03 68.84,-23.53 78.84,-27.03 78.84,-20.03"/>
 </g>
 </g>
 </svg>
@@ -276,49 +276,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -385,7 +385,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ps~5"></span>
+              <span class="anchor" id="variable-ps~2"></span>
               real(kind=c_double),
             </td>
 <td>intent(in)</td>
@@ -400,7 +400,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ts~5"></span>
+              <span class="anchor" id="variable-ts~2"></span>
               real(kind=c_double),
             </td>
 <td>intent(out)</td>
@@ -455,7 +455,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ts~4"></span>
+              <span class="anchor" id="variable-ts"></span>
               real(kind=c_double),
             </td>
 <td>intent(in)</td>
@@ -470,7 +470,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ps~4"></span>
+              <span class="anchor" id="variable-ps"></span>
               real(kind=c_double),
             </td>
 <td>intent(out)</td>
@@ -513,7 +513,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/iapws__capi_version.html b/docs/module/iapws__capi_version.html
index 7ad4b7e..ded2763 100644
--- a/docs/module/iapws__capi_version.html
+++ b/docs/module/iapws__capi_version.html
@@ -152,57 +152,57 @@ <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='http://fortranwiki.org/fortran/show/iso_c_binding'>iso_c_binding</a></li>
                   <li class="list-inline-item"><a href='iapws__version.html'>iapws__version</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">
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__capi_version~~UsesGraph Pages: 1 -->
-<svg id="moduleiapws__capi_versionUsesGraph" width="256pt" height="74pt"
- viewBox="0.00 0.00 256.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__capi_version~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<svg id="moduleiapws__capi_versionUsesGraph" width="240pt" height="72pt"
+ viewBox="0.00 0.00 239.54 71.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__capi_version~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 67.77)">
 <title>module~~iapws__capi_version~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 252,-70 252,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-67.77 235.54,-67.77 235.54,4 -4,4"/>
 <!-- module~iapws__capi_version -->
 <g id="module~~iapws__capi_version~~UsesGraph_node1" class="node">
 <title>module~iapws__capi_version</title>
-<polygon fill="none" stroke="black" points="248,-45 128,-45 128,-21 248,-21 248,-45"/>
-<text text-anchor="middle" x="188" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_version</text>
+<polygon fill="none" stroke="black" points="231.54,-42.77 121.02,-42.77 121.02,-20 231.54,-20 231.54,-42.77"/>
+<text text-anchor="middle" x="176.28" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_version</text>
 </g>
 <!-- iso_c_binding -->
 <g id="module~~iapws__capi_version~~UsesGraph_node2" class="node">
 <title>iso_c_binding</title>
 <g id="a_module~~iapws__capi_version~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/iso_c_binding" xlink:title="iso_c_binding">
-<polygon fill="#337ab7" stroke="#337ab7" points="88,-66 4,-66 4,-42 88,-42 88,-66"/>
-<text text-anchor="middle" x="46" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="80.89,-63.77 4.12,-63.77 4.12,-41 80.89,-41 80.89,-63.77"/>
+<text text-anchor="middle" x="42.51" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_version&#45;&gt;iso_c_binding -->
 <g id="module~~iapws__capi_version~~UsesGraph_edge1" class="edge">
 <title>module~iapws__capi_version&#45;&gt;iso_c_binding</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M127.63,-41.91C117.89,-43.37 107.86,-44.87 98.34,-46.3"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="97.6,-42.87 88.23,-47.82 98.64,-49.79 97.6,-42.87"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M120.54,-40.11C111.2,-41.6 101.54,-43.14 92.36,-44.6"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="91.86,-41.14 82.54,-46.17 92.96,-48.05 91.86,-41.14"/>
 </g>
 <!-- module~iapws__version -->
 <g id="module~~iapws__capi_version~~UsesGraph_node3" class="node">
 <title>module~iapws__version</title>
 <g id="a_module~~iapws__capi_version~~UsesGraph_node3"><a xlink:href="../module/iapws__version.html" xlink:title="iapws__version">
-<polygon fill="#337ab7" stroke="#337ab7" points="92,-24 0,-24 0,0 92,0 92,-24"/>
-<text text-anchor="middle" x="46" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__version</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="85.02,-22.77 0,-22.77 0,0 85.02,0 85.02,-22.77"/>
+<text text-anchor="middle" x="42.51" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__version</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_version&#45;&gt;module~iapws__version -->
 <g id="module~~iapws__capi_version~~UsesGraph_edge2" class="edge">
 <title>module~iapws__capi_version&#45;&gt;module~iapws__version</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M127.63,-24.09C119.15,-22.82 110.46,-21.52 102.07,-20.26"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="102.43,-16.78 92.02,-18.75 101.39,-23.7 102.43,-16.78"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M120.54,-23.08C112.66,-21.88 104.55,-20.65 96.69,-19.46"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="97.33,-16.01 86.92,-17.97 96.28,-22.93 97.33,-16.01"/>
 </g>
 </g>
 </svg>
@@ -221,49 +221,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -291,49 +291,49 @@ <h3 class="card-header card-title bg-light">Used by</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__capi_version~~UsedByGraph Pages: 1 -->
-<svg id="moduleiapws__capi_versionUsedByGraph" width="330pt" height="32pt"
- viewBox="0.00 0.00 330.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__capi_version~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="moduleiapws__capi_versionUsedByGraph" width="315pt" height="31pt"
+ viewBox="0.00 0.00 314.54 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__capi_version~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>module~~iapws__capi_version~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 326,-28 326,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 310.54,-26.77 310.54,4 -4,4"/>
 <!-- module~iapws__capi_version -->
 <g id="module~~iapws__capi_version~~UsedByGraph_node1" class="node">
 <title>module~iapws__capi_version</title>
-<polygon fill="none" stroke="black" points="120,-24 0,-24 0,0 120,0 120,-24"/>
-<text text-anchor="middle" x="60" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_version</text>
+<polygon fill="none" stroke="black" points="110.52,-22.77 0,-22.77 0,0 110.52,0 110.52,-22.77"/>
+<text text-anchor="middle" x="55.26" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__capi_version</text>
 </g>
 <!-- module~iapws__capi -->
 <g id="module~~iapws__capi_version~~UsedByGraph_node2" class="node">
 <title>module~iapws__capi</title>
 <g id="a_module~~iapws__capi_version~~UsedByGraph_node2"><a xlink:href="../module/iapws__capi.html" xlink:title="iapws__capi">
-<polygon fill="#337ab7" stroke="#337ab7" points="232,-24 156,-24 156,0 232,0 232,-24"/>
-<text text-anchor="middle" x="194" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="216.54,-22.77 146.52,-22.77 146.52,0 216.54,0 216.54,-22.77"/>
+<text text-anchor="middle" x="181.53" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_version -->
 <g id="module~~iapws__capi_version~~UsedByGraph_edge1" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_version</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M155.88,-12C147.79,-12 138.98,-12 130.1,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="130.07,-8.5 120.07,-12 130.07,-15.5 130.07,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M146.24,-11.39C138.74,-11.39 130.54,-11.39 122.26,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="122.48,-7.89 112.48,-11.39 122.48,-14.89 122.48,-7.89"/>
 </g>
 <!-- module~iapws -->
 <g id="module~~iapws__capi_version~~UsedByGraph_node3" class="node">
 <title>module~iapws</title>
 <g id="a_module~~iapws__capi_version~~UsedByGraph_node3"><a xlink:href="../module/iapws.html" xlink:title="iapws">
-<polygon fill="#337ab7" stroke="#337ab7" points="322,-24 268,-24 268,0 322,0 322,-24"/>
-<text text-anchor="middle" x="295" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="306.54,-22.77 252.54,-22.77 252.54,0 306.54,0 306.54,-22.77"/>
+<text text-anchor="middle" x="279.54" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__capi -->
 <g id="module~~iapws__capi_version~~UsedByGraph_edge2" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__capi</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M267.99,-12C260.08,-12 251.14,-12 242.28,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="242,-8.5 232,-12 242,-15.5 242,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M252.05,-11.39C244.66,-11.39 236.4,-11.39 228.24,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="228.37,-7.89 218.37,-11.39 228.37,-14.89 228.37,-7.89"/>
 </g>
 </g>
 </svg>
@@ -352,49 +352,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -466,7 +466,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/iapws__g704.html b/docs/module/iapws__g704.html
index 2410e56..260d0cf 100644
--- a/docs/module/iapws__g704.html
+++ b/docs/module/iapws__g704.html
@@ -178,8 +178,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='iapws__r283.html'>iapws__r283</a></li>
                   <li class="list-inline-item">stdlib_kinds</li>
+                  <li class="list-inline-item"><a href='iapws__r283.html'>iapws__r283</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/ieee_arithmetic'>ieee_arithmetic</a></li>
               </ul>
             </li>
@@ -187,67 +187,67 @@ <h3 class="card-header card-title bg-light">Uses</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__g704~~UsesGraph Pages: 1 -->
-<svg id="moduleiapws__g704UsesGraph" width="330pt" height="94pt"
- viewBox="0.00 0.00 330.00 94.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__g704~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 90)">
+<svg id="moduleiapws__g704UsesGraph" width="306pt" height="92pt"
+ viewBox="0.00 0.00 305.81 91.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__g704~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 87.77)">
 <title>module~~iapws__g704~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-90 326,-90 326,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-87.77 301.81,-87.77 301.81,4 -4,4"/>
 <!-- module~iapws__g704 -->
 <g id="module~~iapws__g704~~UsesGraph_node1" class="node">
 <title>module~iapws__g704</title>
-<polygon fill="none" stroke="black" points="322,-44 242,-44 242,-20 322,-20 322,-44"/>
-<text text-anchor="middle" x="282" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__g704</text>
+<polygon fill="none" stroke="black" points="297.81,-42.77 223.29,-42.77 223.29,-20 297.81,-20 297.81,-42.77"/>
+<text text-anchor="middle" x="260.55" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__g704</text>
 </g>
 <!-- ieee_arithmetic -->
 <g id="module~~iapws__g704~~UsesGraph_node2" class="node">
 <title>ieee_arithmetic</title>
 <g id="a_module~~iapws__g704~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/ieee_arithmetic" xlink:title="ieee_arithmetic">
-<polygon fill="#337ab7" stroke="#337ab7" points="206,-86 110,-86 110,-62 206,-62 206,-86"/>
-<text text-anchor="middle" x="158" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="187.29,-83.77 103.02,-83.77 103.02,-61 187.29,-61 187.29,-83.77"/>
+<text text-anchor="middle" x="145.16" y="-68.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__g704&#45;&gt;ieee_arithmetic -->
 <g id="module~~iapws__g704~~UsesGraph_edge1" class="edge">
 <title>module~iapws__g704&#45;&gt;ieee_arithmetic</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M246.04,-44.04C232.77,-48.6 217.47,-53.87 203.44,-58.7"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="202.28,-55.4 193.97,-61.96 204.56,-62.02 202.28,-55.4"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M226.75,-43.24C215.12,-47.45 201.84,-52.25 189.46,-56.73"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="188.52,-53.35 180.3,-60.04 190.9,-59.93 188.52,-53.35"/>
 </g>
 <!-- module~iapws__r283 -->
 <g id="module~~iapws__g704~~UsesGraph_node3" class="node">
 <title>module~iapws__r283</title>
 <g id="a_module~~iapws__g704~~UsesGraph_node3"><a xlink:href="../module/iapws__r283.html" xlink:title="iapws__r283">
-<polygon fill="#337ab7" stroke="#337ab7" points="197,-44 119,-44 119,-20 197,-20 197,-44"/>
-<text text-anchor="middle" x="158" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="181.29,-42.77 109.02,-42.77 109.02,-20 181.29,-20 181.29,-42.77"/>
+<text text-anchor="middle" x="145.16" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__g704&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__g704~~UsesGraph_edge2" class="edge">
 <title>module~iapws__g704&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M241.73,-32C230.85,-32 218.91,-32 207.57,-32"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="207.37,-28.5 197.37,-32 207.37,-35.5 207.37,-28.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M223.05,-31.39C213.36,-31.39 202.76,-31.39 192.62,-31.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="192.94,-27.89 182.94,-31.39 192.94,-34.89 192.94,-27.89"/>
 </g>
 <!-- stdlib_kinds -->
 <g id="module~~iapws__g704~~UsesGraph_node4" class="node">
 <title>stdlib_kinds</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="74,-24 0,-24 0,0 74,0 74,-24"/>
-<text text-anchor="middle" x="37" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="67.02,-22.77 0,-22.77 0,0 67.02,0 67.02,-22.77"/>
+<text text-anchor="middle" x="33.51" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
 </g>
 <!-- module~iapws__g704&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__g704~~UsesGraph_edge3" class="edge">
 <title>module~iapws__g704&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M245.56,-19.94C233.2,-16.3 219.13,-12.8 206,-11 165.15,-5.39 118.18,-6.28 84.31,-8.2"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="84.01,-4.72 74.24,-8.83 84.44,-11.7 84.01,-4.72"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M224.3,-19.58C212.65,-16.23 199.54,-13.05 187.29,-11.39 150.93,-6.45 109.26,-6.84 78.63,-8.25"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="78.78,-4.74 68.98,-8.76 79.15,-11.73 78.78,-4.74"/>
 </g>
 <!-- module~iapws__r283&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__g704~~UsesGraph_edge4" class="edge">
 <title>module~iapws__r283&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M118.69,-25.56C107.77,-23.73 95.75,-21.71 84.4,-19.8"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="84.65,-16.29 74.21,-18.09 83.49,-23.2 84.65,-16.29"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M108.56,-24.89C98.92,-23.13 88.39,-21.21 78.36,-19.38"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="79.29,-15.99 68.82,-17.64 78.03,-22.88 79.29,-15.99"/>
 </g>
 </g>
 </svg>
@@ -266,49 +266,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -336,70 +336,70 @@ <h3 class="card-header card-title bg-light">Used by</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__g704~~UsedByGraph Pages: 1 -->
-<svg id="moduleiapws__g704UsedByGraph" width="434pt" height="52pt"
- viewBox="0.00 0.00 434.00 52.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__g704~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 48)">
+<svg id="moduleiapws__g704UsedByGraph" width="415pt" height="50pt"
+ viewBox="0.00 0.00 414.56 49.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__g704~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 45.77)">
 <title>module~~iapws__g704~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 430,-48 430,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-45.77 410.56,-45.77 410.56,4 -4,4"/>
 <!-- module~iapws__g704 -->
 <g id="module~~iapws__g704~~UsedByGraph_node1" class="node">
 <title>module~iapws__g704</title>
-<polygon fill="none" stroke="black" points="80,-44 0,-44 0,-20 80,-20 80,-44"/>
-<text text-anchor="middle" x="40" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__g704</text>
+<polygon fill="none" stroke="black" points="74.52,-41.77 0,-41.77 0,-19 74.52,-19 74.52,-41.77"/>
+<text text-anchor="middle" x="37.26" y="-26.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__g704</text>
 </g>
 <!-- module~iapws -->
 <g id="module~~iapws__g704~~UsedByGraph_node2" class="node">
 <title>module~iapws</title>
 <g id="a_module~~iapws__g704~~UsedByGraph_node2"><a xlink:href="../module/iapws.html" xlink:title="iapws">
-<polygon fill="#337ab7" stroke="#337ab7" points="426,-44 372,-44 372,-20 426,-20 426,-44"/>
-<text text-anchor="middle" x="399" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="406.56,-41.77 352.56,-41.77 352.56,-19 406.56,-19 406.56,-41.77"/>
+<text text-anchor="middle" x="379.56" y="-26.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__g704 -->
 <g id="module~~iapws__g704~~UsedByGraph_edge1" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__g704</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M371.76,-32.52C360.72,-32.71 347.73,-32.91 336,-33 238.23,-33.79 213.78,-33.65 116,-33 107.76,-32.95 99.01,-32.86 90.51,-32.75"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="90.36,-29.25 80.31,-32.62 90.27,-36.25 90.36,-29.25"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M352.32,-30.9C341.28,-31.1 328.29,-31.29 316.56,-31.39 224.99,-32.12 202.09,-32.02 110.52,-31.39 102.76,-31.33 94.54,-31.25 86.53,-31.15"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="86.58,-27.65 76.53,-31.01 86.49,-34.65 86.58,-27.65"/>
 </g>
 <!-- module~iapws__capi -->
 <g id="module~~iapws__g704~~UsedByGraph_node4" class="node">
 <title>module~iapws__capi</title>
 <g id="a_module~~iapws__g704~~UsedByGraph_node4"><a xlink:href="../module/iapws__capi.html" xlink:title="iapws__capi">
-<polygon fill="#337ab7" stroke="#337ab7" points="336,-24 260,-24 260,0 336,0 336,-24"/>
-<text text-anchor="middle" x="298" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="316.56,-22.77 246.54,-22.77 246.54,0 316.56,0 316.56,-22.77"/>
+<text text-anchor="middle" x="281.55" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__capi -->
 <g id="module~~iapws__g704~~UsedByGraph_edge4" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__capi</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M371.99,-26.75C364,-25.13 354.94,-23.3 346,-21.49"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="346.5,-18.03 336,-19.48 345.11,-24.89 346.5,-18.03"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M352.07,-25.14C344.59,-23.66 336.23,-22.01 327.98,-20.37"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="328.85,-16.98 318.36,-18.47 327.49,-23.85 328.85,-16.98"/>
 </g>
 <!-- module~iapws__capi_g704 -->
 <g id="module~~iapws__g704~~UsedByGraph_node3" class="node">
 <title>module~iapws__capi_g704</title>
 <g id="a_module~~iapws__g704~~UsedByGraph_node3"><a xlink:href="../module/iapws__capi_g704.html" xlink:title="iapws__capi_g704">
-<polygon fill="#337ab7" stroke="#337ab7" points="224,-24 116,-24 116,0 224,0 224,-24"/>
-<text text-anchor="middle" x="170" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_g704</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="210.54,-22.77 110.52,-22.77 110.52,0 210.54,0 210.54,-22.77"/>
+<text text-anchor="middle" x="160.53" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_g704</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;module~iapws__g704 -->
 <g id="module~~iapws__g704~~UsedByGraph_edge2" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;module~iapws__g704</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M115.83,-20.31C107.33,-21.64 98.57,-23 90.17,-24.32"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="89.49,-20.88 80.15,-25.88 90.57,-27.8 89.49,-20.88"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M110.2,-19.11C102.27,-20.36 94.08,-21.64 86.18,-22.88"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="85.72,-19.41 76.39,-24.41 86.81,-26.32 85.72,-19.41"/>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_g704 -->
 <g id="module~~iapws__g704~~UsedByGraph_edge3" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_g704</title>
-<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M259.88,-12C251.84,-12 243.13,-12 234.4,-12"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="234.2,-8.5 224.2,-12 234.2,-15.5 234.2,-8.5"/>
+<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M246.12,-11.39C238.66,-11.39 230.55,-11.39 222.4,-11.39"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="222.44,-7.89 212.44,-11.39 222.44,-14.89 222.44,-7.89"/>
 </g>
 </g>
 </svg>
@@ -418,49 +418,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -514,7 +514,7 @@ <h4>Components</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-gas"></span>
+              <span class="anchor" id="variable-gas~4"></span>
               character(len=:),
             </td>
               <td>public,</td>
@@ -563,7 +563,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~4"></span>
+              <span class="anchor" id="variable-heavywater~9"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -608,7 +608,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~5"></span>
+              <span class="anchor" id="variable-heavywater~10"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -653,7 +653,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~3"></span>
+              <span class="anchor" id="variable-heavywater~8"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -703,7 +703,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-t~10"></span>
+              <span class="anchor" id="variable-t~15"></span>
               real(kind=dp),
             </td>
 <td>intent(in)</td>
@@ -718,7 +718,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-gas~7"></span>
+              <span class="anchor" id="variable-gas~10"></span>
               character(len=*),
             </td>
 <td>intent(in)</td>
@@ -733,7 +733,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~2"></span>
+              <span class="anchor" id="variable-heavywater~7"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -748,7 +748,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~2"></span>
+              <span class="anchor" id="variable-k~4"></span>
               real(kind=dp),
             </td>
 <td>intent(out)</td>
@@ -788,7 +788,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-t~9"></span>
+              <span class="anchor" id="variable-t~14"></span>
               real(kind=dp),
             </td>
 <td>intent(in)</td>
@@ -803,7 +803,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-gas~6"></span>
+              <span class="anchor" id="variable-gas~9"></span>
               character(len=*),
             </td>
 <td>intent(in)</td>
@@ -818,7 +818,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater"></span>
+              <span class="anchor" id="variable-heavywater~6"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -833,7 +833,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k"></span>
+              <span class="anchor" id="variable-k~3"></span>
               real(kind=dp),
             </td>
 <td>intent(out)</td>
@@ -876,7 +876,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/iapws__r283.html b/docs/module/iapws__r283.html
index 9fa25d4..78dda9d 100644
--- a/docs/module/iapws__r283.html
+++ b/docs/module/iapws__r283.html
@@ -163,31 +163,31 @@ <h3 class="card-header card-title bg-light">Uses</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__r283~~UsesGraph Pages: 1 -->
-<svg id="moduleiapws__r283UsesGraph" width="196pt" height="32pt"
- viewBox="0.00 0.00 196.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__r283~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="moduleiapws__r283UsesGraph" width="183pt" height="31pt"
+ viewBox="0.00 0.00 183.29 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__r283~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>module~~iapws__r283~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 192,-28 192,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 179.29,-26.77 179.29,4 -4,4"/>
 <!-- module~iapws__r283 -->
 <g id="module~~iapws__r283~~UsesGraph_node1" class="node">
 <title>module~iapws__r283</title>
-<polygon fill="none" stroke="black" points="188,-24 110,-24 110,0 188,0 188,-24"/>
-<text text-anchor="middle" x="149" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__r283</text>
+<polygon fill="none" stroke="black" points="175.29,-22.77 103.02,-22.77 103.02,0 175.29,0 175.29,-22.77"/>
+<text text-anchor="middle" x="139.16" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__r283</text>
 </g>
 <!-- stdlib_kinds -->
 <g id="module~~iapws__r283~~UsesGraph_node2" class="node">
 <title>stdlib_kinds</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="74,-24 0,-24 0,0 74,0 74,-24"/>
-<text text-anchor="middle" x="37" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="67.02,-22.77 0,-22.77 0,0 67.02,0 67.02,-22.77"/>
+<text text-anchor="middle" x="33.51" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
 </g>
 <!-- module~iapws__r283&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__r283~~UsesGraph_edge1" class="edge">
 <title>module~iapws__r283&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M109.84,-12C101.63,-12 92.87,-12 84.39,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="84.25,-8.5 74.25,-12 84.25,-15.5 84.25,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M102.78,-11.39C95.05,-11.39 86.79,-11.39 78.77,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="78.8,-7.89 68.8,-11.39 78.8,-14.89 78.8,-7.89"/>
 </g>
 </g>
 </svg>
@@ -206,49 +206,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -276,149 +276,149 @@ <h3 class="card-header card-title bg-light">Used by</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__r283~~UsedByGraph Pages: 1 -->
-<svg id="moduleiapws__r283UsedByGraph" width="628pt" height="134pt"
- viewBox="0.00 0.00 628.00 134.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__r283~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 130)">
+<svg id="moduleiapws__r283UsedByGraph" width="592pt" height="131pt"
+ viewBox="0.00 0.00 592.10 130.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__r283~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 126.77)">
 <title>module~~iapws__r283~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-130 624,-130 624,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-126.77 588.1,-126.77 588.1,4 -4,4"/>
 <!-- module~iapws__r283 -->
 <g id="module~~iapws__r283~~UsedByGraph_node1" class="node">
 <title>module~iapws__r283</title>
-<polygon fill="none" stroke="black" points="78,-66 0,-66 0,-42 78,-42 78,-66"/>
-<text text-anchor="middle" x="39" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__r283</text>
+<polygon fill="none" stroke="black" points="72.27,-63.77 0,-63.77 0,-41 72.27,-41 72.27,-63.77"/>
+<text text-anchor="middle" x="36.13" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__r283</text>
 </g>
 <!-- module~iapws -->
 <g id="module~~iapws__r283~~UsedByGraph_node2" class="node">
 <title>module~iapws</title>
 <g id="a_module~~iapws__r283~~UsedByGraph_node2"><a xlink:href="../module/iapws.html" xlink:title="iapws">
-<polygon fill="#337ab7" stroke="#337ab7" points="594,-66 540,-66 540,-42 594,-42 594,-66"/>
-<text text-anchor="middle" x="567" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="562.21,-63.77 508.21,-63.77 508.21,-41 562.21,-41 562.21,-63.77"/>
+<text text-anchor="middle" x="535.21" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__r283~~UsedByGraph_edge1" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M539.9,-54.97C493.69,-56.44 394.49,-58.52 311,-53"/>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M309,-53C244.18,-47.95 232.75,-8.12 168,-14"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M291.05,-51.39C229.76,-47.2 219.32,-7.67 158.16,-13.39"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M507.77,-53.38C463.34,-54.8 370.95,-56.7 293.05,-51.39"/>
 </g>
 <!-- module~iapws__g704 -->
 <g id="module~~iapws__r283~~UsedByGraph_node4" class="node">
 <title>module~iapws__g704</title>
 <g id="a_module~~iapws__r283~~UsedByGraph_node4"><a xlink:href="../module/iapws__g704.html" xlink:title="iapws__g704">
-<polygon fill="#337ab7" stroke="#337ab7" points="207,-66 127,-66 127,-42 207,-42 207,-66"/>
-<text text-anchor="middle" x="167" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__g704</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="194.41,-63.77 119.9,-63.77 119.9,-41 194.41,-41 194.41,-63.77"/>
+<text text-anchor="middle" x="157.16" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__g704</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__g704 -->
 <g id="module~~iapws__r283~~UsedByGraph_edge6" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__g704</title>
-<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M309,-53C278.57,-50.99 244.36,-51.17 217.26,-51.89"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="217.14,-48.39 207.25,-52.19 217.35,-55.39 217.14,-48.39"/>
+<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M291.05,-51.39C263.03,-49.47 231.61,-49.6 206.36,-50.27"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="206.27,-46.77 196.38,-50.57 206.48,-53.77 206.27,-46.77"/>
 </g>
 <!-- module~iapws__r797 -->
 <g id="module~~iapws__r283~~UsedByGraph_node5" class="node">
 <title>module~iapws__r797</title>
 <g id="a_module~~iapws__r283~~UsedByGraph_node5"><a xlink:href="../module/iapws__r797.html" xlink:title="iapws__r797">
-<polygon fill="#337ab7" stroke="#337ab7" points="478,-25 400,-25 400,-1 478,-1 478,-25"/>
-<text text-anchor="middle" x="439" y="-10.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r797</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="450.33,-23.77 378.06,-23.77 378.06,-1 450.33,-1 450.33,-23.77"/>
+<text text-anchor="middle" x="414.19" y="-8.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r797</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__r797 -->
 <g id="module~~iapws__r283~~UsedByGraph_edge8" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__r797</title>
-<path fill="none" stroke="#7f00ff" stroke-dasharray="5,2" d="M539.89,-45.5C524.57,-40.52 504.74,-34.07 486.8,-28.23"/>
-<polygon fill="#7f00ff" stroke="#7f00ff" points="487.66,-24.83 477.06,-25.06 485.49,-31.48 487.66,-24.83"/>
+<path fill="none" stroke="#7f00ff" stroke-dasharray="5,2" d="M507.8,-43.51C494,-38.87 476.72,-33.06 460.83,-27.72"/>
+<polygon fill="#7f00ff" stroke="#7f00ff" points="462.15,-24.47 451.56,-24.6 459.92,-31.11 462.15,-24.47"/>
 </g>
 <!-- module~iapws__capi -->
 <g id="module~~iapws__r283~~UsedByGraph_node6" class="node">
 <title>module~iapws__capi</title>
 <g id="a_module~~iapws__r283~~UsedByGraph_node6"><a xlink:href="../module/iapws__capi.html" xlink:title="iapws__capi">
-<polygon fill="#337ab7" stroke="#337ab7" points="477,-105 401,-105 401,-81 477,-81 477,-105"/>
-<text text-anchor="middle" x="439" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="449.2,-101.77 379.18,-101.77 379.18,-79 449.2,-79 449.2,-101.77"/>
+<text text-anchor="middle" x="414.19" y="-86.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__capi -->
 <g id="module~~iapws__r283~~UsedByGraph_edge10" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__capi</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M539.89,-62.08C524.57,-66.82 504.74,-72.96 486.8,-78.51"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="485.58,-75.23 477.06,-81.53 487.65,-81.91 485.58,-75.23"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M507.8,-60.82C493.89,-65.26 476.44,-70.83 460.45,-75.94"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="459.58,-72.54 451.12,-78.92 461.71,-79.21 459.58,-72.54"/>
 </g>
 <!-- module~iapws__capi_r783 -->
 <g id="module~~iapws__r283~~UsedByGraph_node3" class="node">
 <title>module~iapws__capi_r783</title>
 <g id="a_module~~iapws__r283~~UsedByGraph_node3"><a xlink:href="../module/iapws__capi_r783.html" xlink:title="iapws__capi_r783">
-<polygon fill="#337ab7" stroke="#337ab7" points="220,-126 114,-126 114,-102 220,-102 220,-126"/>
-<text text-anchor="middle" x="167" y="-111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r783</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="206.04,-122.77 108.27,-122.77 108.27,-100 206.04,-100 206.04,-122.77"/>
+<text text-anchor="middle" x="157.16" y="-107.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r783</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_r783&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__r283~~UsedByGraph_edge2" class="edge">
 <title>module~iapws__capi_r783&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M140.5,-101.86C121.54,-92.83 95.47,-80.41 74.62,-70.49"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="75.99,-67.26 65.46,-66.12 72.98,-73.58 75.99,-67.26"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M132.36,-99.59C114.76,-90.86 90.55,-78.87 70.95,-69.15"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="72.76,-66.14 62.25,-64.83 69.65,-72.41 72.76,-66.14"/>
 </g>
 <!-- module~iapws__g704&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__r283~~UsedByGraph_edge3" class="edge">
 <title>module~iapws__g704&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M126.82,-54C114.75,-54 101.3,-54 88.66,-54"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="88.29,-50.5 78.29,-54 88.29,-57.5 88.29,-50.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M119.47,-52.39C108.31,-52.39 95.87,-52.39 84.13,-52.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="84.19,-48.89 74.19,-52.39 84.19,-55.89 84.19,-48.89"/>
 </g>
 <!-- module~iapws__r797&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__r283~~UsedByGraph_edge4" class="edge">
 <title>module~iapws__r797&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M399.91,-11.23C347.55,-9.23 250.45,-7.08 168,-14"/>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M166,-14C134.52,-16.86 100.45,-28.22 75.68,-38.1"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="74.26,-34.9 66.34,-41.94 76.92,-41.38 74.26,-34.9"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M156.16,-13.39C126.98,-15.9 95.56,-26.56 72.34,-36.1"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="71.19,-32.79 63.35,-39.92 73.92,-39.23 71.19,-32.79"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M377.63,-10.69C328.27,-8.76 236.24,-6.66 158.15,-13.39"/>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_r783 -->
 <g id="module~~iapws__r283~~UsedByGraph_edge5" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_r783</title>
-<path fill="none" stroke="#7fff00" stroke-dasharray="5,2" d="M403.04,-105.06C390.85,-108.7 376.96,-112.2 364,-114 319.6,-120.18 269,-120 230.33,-118.37"/>
-<polygon fill="#7fff00" stroke="#7fff00" points="230.42,-114.87 220.27,-117.9 230.09,-121.86 230.42,-114.87"/>
+<path fill="none" stroke="#7fff00" stroke-dasharray="5,2" d="M378.86,-102.05C367.31,-105.43 354.26,-108.67 342.06,-110.39 300.83,-116.18 253.9,-116.34 217.76,-115.09"/>
+<polygon fill="#7fff00" stroke="#7fff00" points="218.07,-111.6 207.94,-114.7 217.79,-118.59 218.07,-111.6"/>
 </g>
 <!-- module~iapws__capi_g704 -->
 <g id="module~~iapws__r283~~UsedByGraph_node7" class="node">
 <title>module~iapws__capi_g704</title>
 <g id="a_module~~iapws__r283~~UsedByGraph_node7"><a xlink:href="../module/iapws__capi_g704.html" xlink:title="iapws__capi_g704">
-<polygon fill="#337ab7" stroke="#337ab7" points="364,-105 256,-105 256,-81 364,-81 364,-105"/>
-<text text-anchor="middle" x="310" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_g704</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="342.06,-101.77 242.04,-101.77 242.04,-79 342.06,-79 342.06,-101.77"/>
+<text text-anchor="middle" x="292.05" y="-86.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_g704</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_g704 -->
 <g id="module~~iapws__r283~~UsedByGraph_edge11" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_g704</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M400.92,-93C392.63,-93 383.6,-93 374.56,-93"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="374.4,-89.5 364.4,-93 374.4,-96.5 374.4,-89.5"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M378.77,-90.39C370.86,-90.39 362.22,-90.39 353.57,-90.39"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="353.77,-86.89 343.77,-90.39 353.77,-93.89 353.77,-86.89"/>
 </g>
 <!-- module~iapws__capi_g704&#45;&gt;module~iapws__g704 -->
 <g id="module~~iapws__r283~~UsedByGraph_edge7" class="edge">
 <title>module~iapws__capi_g704&#45;&gt;module~iapws__g704</title>
-<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M265.54,-80.98C250.28,-76.76 233.02,-71.98 217.3,-67.64"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="217.81,-64.15 207.24,-64.85 215.94,-70.89 217.81,-64.15"/>
+<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M249.73,-78.57C235.64,-74.54 219.79,-70.01 205.28,-65.86"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="206.53,-62.58 195.96,-63.19 204.61,-69.31 206.53,-62.58"/>
 </g>
 <!-- module~iapws__capi_r797 -->
 <g id="module~~iapws__r283~~UsedByGraph_node8" class="node">
 <title>module~iapws__capi_r797</title>
 <g id="a_module~~iapws__r283~~UsedByGraph_node8"><a xlink:href="../module/iapws__capi_r797.html" xlink:title="iapws__capi_r797">
-<polygon fill="#337ab7" stroke="#337ab7" points="620,-24 514,-24 514,0 620,0 620,-24"/>
-<text text-anchor="middle" x="567" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r797</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="584.1,-22.77 486.33,-22.77 486.33,0 584.1,0 584.1,-22.77"/>
+<text text-anchor="middle" x="535.21" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r797</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_r797&#45;&gt;module~iapws__r797 -->
 <g id="module~~iapws__r283~~UsedByGraph_edge9" class="edge">
 <title>module~iapws__capi_r797&#45;&gt;module~iapws__r797</title>
-<path fill="none" stroke="#7f00ff" stroke-dasharray="5,2" d="M513.66,-12.42C505.29,-12.48 496.67,-12.55 488.4,-12.62"/>
-<polygon fill="#7f00ff" stroke="#7f00ff" points="488.13,-9.12 478.16,-12.7 488.18,-16.12 488.13,-9.12"/>
+<path fill="none" stroke="#7f00ff" stroke-dasharray="5,2" d="M486.15,-11.79C478.17,-11.86 469.91,-11.93 461.97,-11.99"/>
+<polygon fill="#7f00ff" stroke="#7f00ff" points="462.11,-8.49 452.14,-12.07 462.17,-15.49 462.11,-8.49"/>
 </g>
 </g>
 </svg>
@@ -437,49 +437,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -648,7 +648,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/iapws__r797.html b/docs/module/iapws__r797.html
index 2a4c2d2..5cf1dc3 100644
--- a/docs/module/iapws__r797.html
+++ b/docs/module/iapws__r797.html
@@ -163,8 +163,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='iapws__r283.html'>iapws__r283</a></li>
                   <li class="list-inline-item">stdlib_kinds</li>
+                  <li class="list-inline-item"><a href='iapws__r283.html'>iapws__r283</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/ieee_arithmetic'>ieee_arithmetic</a></li>
               </ul>
             </li>
@@ -172,67 +172,67 @@ <h3 class="card-header card-title bg-light">Uses</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__r797~~UsesGraph Pages: 1 -->
-<svg id="moduleiapws__r797UsesGraph" width="328pt" height="94pt"
- viewBox="0.00 0.00 328.00 94.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__r797~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 90)">
+<svg id="moduleiapws__r797UsesGraph" width="304pt" height="92pt"
+ viewBox="0.00 0.00 303.56 91.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__r797~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 87.77)">
 <title>module~~iapws__r797~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-90 324,-90 324,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-87.77 299.56,-87.77 299.56,4 -4,4"/>
 <!-- module~iapws__r797 -->
 <g id="module~~iapws__r797~~UsesGraph_node1" class="node">
 <title>module~iapws__r797</title>
-<polygon fill="none" stroke="black" points="320,-44 242,-44 242,-20 320,-20 320,-44"/>
-<text text-anchor="middle" x="281" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__r797</text>
+<polygon fill="none" stroke="black" points="295.56,-42.77 223.29,-42.77 223.29,-20 295.56,-20 295.56,-42.77"/>
+<text text-anchor="middle" x="259.43" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__r797</text>
 </g>
 <!-- ieee_arithmetic -->
 <g id="module~~iapws__r797~~UsesGraph_node2" class="node">
 <title>ieee_arithmetic</title>
 <g id="a_module~~iapws__r797~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/ieee_arithmetic" xlink:title="ieee_arithmetic">
-<polygon fill="#337ab7" stroke="#337ab7" points="206,-86 110,-86 110,-62 206,-62 206,-86"/>
-<text text-anchor="middle" x="158" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="187.29,-83.77 103.02,-83.77 103.02,-61 187.29,-61 187.29,-83.77"/>
+<text text-anchor="middle" x="145.16" y="-68.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_arithmetic</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__r797&#45;&gt;ieee_arithmetic -->
 <g id="module~~iapws__r797~~UsesGraph_edge1" class="edge">
 <title>module~iapws__r797&#45;&gt;ieee_arithmetic</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M245.33,-44.04C232.29,-48.56 217.28,-53.77 203.48,-58.56"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="201.98,-55.38 193.68,-61.96 204.27,-61.99 201.98,-55.38"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M225.95,-43.24C214.43,-47.45 201.28,-52.25 189.03,-56.73"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="188.17,-53.32 179.98,-60.03 190.57,-59.89 188.17,-53.32"/>
 </g>
 <!-- module~iapws__r283 -->
 <g id="module~~iapws__r797~~UsesGraph_node3" class="node">
 <title>module~iapws__r283</title>
 <g id="a_module~~iapws__r797~~UsesGraph_node3"><a xlink:href="../module/iapws__r283.html" xlink:title="iapws__r283">
-<polygon fill="#337ab7" stroke="#337ab7" points="197,-44 119,-44 119,-20 197,-20 197,-44"/>
-<text text-anchor="middle" x="158" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="181.29,-42.77 109.02,-42.77 109.02,-20 181.29,-20 181.29,-42.77"/>
+<text text-anchor="middle" x="145.16" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__r283</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__r797&#45;&gt;module~iapws__r283 -->
 <g id="module~~iapws__r797~~UsesGraph_edge2" class="edge">
 <title>module~iapws__r797&#45;&gt;module~iapws__r283</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M241.71,-32C230.79,-32 218.75,-32 207.32,-32"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="207.04,-28.5 197.04,-32 207.04,-35.5 207.04,-28.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M222.9,-31.39C213.39,-31.39 202.96,-31.39 192.94,-31.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="192.96,-27.89 182.96,-31.39 192.96,-34.89 192.96,-27.89"/>
 </g>
 <!-- stdlib_kinds -->
 <g id="module~~iapws__r797~~UsesGraph_node4" class="node">
 <title>stdlib_kinds</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="74,-24 0,-24 0,0 74,0 74,-24"/>
-<text text-anchor="middle" x="37" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="67.02,-22.77 0,-22.77 0,0 67.02,0 67.02,-22.77"/>
+<text text-anchor="middle" x="33.51" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">stdlib_kinds</text>
 </g>
 <!-- module~iapws__r797&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__r797~~UsesGraph_edge3" class="edge">
 <title>module~iapws__r797&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M245.04,-19.94C232.85,-16.3 218.96,-12.8 206,-11 165.16,-5.32 118.19,-6.22 84.32,-8.16"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="84.01,-4.67 74.25,-8.79 84.45,-11.66 84.01,-4.67"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M223.73,-19.58C212.27,-16.23 199.36,-13.05 187.29,-11.39 150.94,-6.37 109.27,-6.78 78.64,-8.21"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="78.78,-4.7 68.98,-8.72 79.15,-11.69 78.78,-4.7"/>
 </g>
 <!-- module~iapws__r283&#45;&gt;stdlib_kinds -->
 <g id="module~~iapws__r797~~UsesGraph_edge4" class="edge">
 <title>module~iapws__r283&#45;&gt;stdlib_kinds</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M118.69,-25.56C107.77,-23.73 95.75,-21.71 84.4,-19.8"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="84.65,-16.29 74.21,-18.09 83.49,-23.2 84.65,-16.29"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M108.56,-24.89C98.92,-23.13 88.39,-21.21 78.36,-19.38"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="79.29,-15.99 68.82,-17.64 78.03,-22.88 79.29,-15.99"/>
 </g>
 </g>
 </svg>
@@ -251,49 +251,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -321,49 +321,49 @@ <h3 class="card-header card-title bg-light">Used by</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__r797~~UsedByGraph Pages: 1 -->
-<svg id="moduleiapws__r797UsedByGraph" width="228pt" height="74pt"
- viewBox="0.00 0.00 228.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__r797~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<svg id="moduleiapws__r797UsedByGraph" width="214pt" height="72pt"
+ viewBox="0.00 0.00 214.04 71.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__r797~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 67.77)">
 <title>module~~iapws__r797~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 224,-70 224,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-67.77 210.04,-67.77 210.04,4 -4,4"/>
 <!-- module~iapws__r797 -->
 <g id="module~~iapws__r797~~UsedByGraph_node1" class="node">
 <title>module~iapws__r797</title>
-<polygon fill="none" stroke="black" points="78,-45 0,-45 0,-21 78,-21 78,-45"/>
-<text text-anchor="middle" x="39" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__r797</text>
+<polygon fill="none" stroke="black" points="72.27,-42.77 0,-42.77 0,-20 72.27,-20 72.27,-42.77"/>
+<text text-anchor="middle" x="36.13" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__r797</text>
 </g>
 <!-- module~iapws -->
 <g id="module~~iapws__r797~~UsedByGraph_node2" class="node">
 <title>module~iapws</title>
 <g id="a_module~~iapws__r797~~UsedByGraph_node2"><a xlink:href="../module/iapws.html" xlink:title="iapws">
-<polygon fill="#337ab7" stroke="#337ab7" points="194,-66 140,-66 140,-42 194,-42 194,-66"/>
-<text text-anchor="middle" x="167" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="184.16,-63.77 130.16,-63.77 130.16,-41 184.16,-41 184.16,-63.77"/>
+<text text-anchor="middle" x="157.16" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__r797 -->
 <g id="module~~iapws__r797~~UsedByGraph_edge1" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__r797</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M139.89,-49.65C124.95,-47.16 105.73,-43.95 88.15,-41.02"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="88.47,-37.53 78.03,-39.34 87.32,-44.43 88.47,-37.53"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M129.74,-47.72C116.18,-45.33 99.27,-42.35 83.62,-39.59"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="84.45,-36.18 74,-37.89 83.24,-43.07 84.45,-36.18"/>
 </g>
 <!-- module~iapws__capi_r797 -->
 <g id="module~~iapws__r797~~UsedByGraph_node3" class="node">
 <title>module~iapws__capi_r797</title>
 <g id="a_module~~iapws__r797~~UsedByGraph_node3"><a xlink:href="../module/iapws__capi_r797.html" xlink:title="iapws__capi_r797">
-<polygon fill="#337ab7" stroke="#337ab7" points="220,-24 114,-24 114,0 220,0 220,-24"/>
-<text text-anchor="middle" x="167" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r797</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="206.04,-22.77 108.27,-22.77 108.27,0 206.04,0 206.04,-22.77"/>
+<text text-anchor="middle" x="157.16" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_r797</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_r797&#45;&gt;module~iapws__r797 -->
 <g id="module~~iapws__r797~~UsedByGraph_edge2" class="edge">
 <title>module~iapws__capi_r797&#45;&gt;module~iapws__r797</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M113.66,-20.72C105.2,-22.13 96.47,-23.59 88.12,-24.98"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="87.45,-21.54 78.16,-26.64 88.6,-28.45 87.45,-21.54"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M108.09,-19.46C100.11,-20.8 91.85,-22.19 83.91,-23.53"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="83.34,-20.07 74.06,-25.18 84.5,-26.97 83.34,-20.07"/>
 </g>
 </g>
 </svg>
@@ -382,49 +382,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -489,7 +489,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-t~15"></span>
+              <span class="anchor" id="variable-t~5"></span>
               real(kind=dp),
             </td>
 <td>intent(in)</td>
@@ -540,7 +540,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-ps~3"></span>
+              <span class="anchor" id="variable-ps~5"></span>
               real(kind=dp),
             </td>
 <td>intent(in)</td>
@@ -555,7 +555,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ts~3"></span>
+              <span class="anchor" id="variable-ts~5"></span>
               real(kind=dp),
             </td>
 <td>intent(out)</td>
@@ -596,7 +596,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-ts~2"></span>
+              <span class="anchor" id="variable-ts~4"></span>
               real(kind=dp),
             </td>
 <td>intent(in)</td>
@@ -611,7 +611,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ps~2"></span>
+              <span class="anchor" id="variable-ps~4"></span>
               real(kind=dp),
             </td>
 <td>intent(out)</td>
@@ -654,7 +654,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/module/iapws__version.html b/docs/module/iapws__version.html
index b642776..a8a2ba5 100644
--- a/docs/module/iapws__version.html
+++ b/docs/module/iapws__version.html
@@ -154,70 +154,70 @@ <h3 class="card-header card-title bg-light">Used by</h3>
               <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: module~~iapws__version~~UsedByGraph Pages: 1 -->
-<svg id="moduleiapws__versionUsedByGraph" width="458pt" height="52pt"
- viewBox="0.00 0.00 458.00 52.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~iapws__version~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 48)">
+<svg id="moduleiapws__versionUsedByGraph" width="436pt" height="50pt"
+ viewBox="0.00 0.00 435.56 49.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~iapws__version~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 45.77)">
 <title>module~~iapws__version~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 454,-48 454,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-45.77 431.56,-45.77 431.56,4 -4,4"/>
 <!-- module~iapws__version -->
 <g id="module~~iapws__version~~UsedByGraph_node1" class="node">
 <title>module~iapws__version</title>
-<polygon fill="none" stroke="black" points="92,-44 0,-44 0,-20 92,-20 92,-44"/>
-<text text-anchor="middle" x="46" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__version</text>
+<polygon fill="none" stroke="black" points="85.02,-41.77 0,-41.77 0,-19 85.02,-19 85.02,-41.77"/>
+<text text-anchor="middle" x="42.51" y="-26.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws__version</text>
 </g>
 <!-- module~iapws -->
 <g id="module~~iapws__version~~UsedByGraph_node2" class="node">
 <title>module~iapws</title>
 <g id="a_module~~iapws__version~~UsedByGraph_node2"><a xlink:href="../module/iapws.html" xlink:title="iapws">
-<polygon fill="#337ab7" stroke="#337ab7" points="450,-44 396,-44 396,-20 450,-20 450,-44"/>
-<text text-anchor="middle" x="423" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="427.56,-41.77 373.56,-41.77 373.56,-19 427.56,-19 427.56,-41.77"/>
+<text text-anchor="middle" x="400.56" y="-26.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__version -->
 <g id="module~~iapws__version~~UsedByGraph_edge1" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__version</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M395.76,-32.52C384.72,-32.71 371.73,-32.91 360,-33 256.89,-33.83 231.11,-33.64 128,-33 119.8,-32.95 111.14,-32.87 102.64,-32.78"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="102.45,-29.28 92.41,-32.66 102.37,-36.27 102.45,-29.28"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M373.32,-30.9C362.28,-31.1 349.29,-31.29 337.56,-31.39 241.32,-32.16 217.26,-32.01 121.02,-31.39 113.15,-31.33 104.84,-31.25 96.69,-31.16"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="96.9,-27.66 86.86,-31.04 96.81,-34.66 96.9,-27.66"/>
 </g>
 <!-- module~iapws__capi -->
 <g id="module~~iapws__version~~UsedByGraph_node4" class="node">
 <title>module~iapws__capi</title>
 <g id="a_module~~iapws__version~~UsedByGraph_node4"><a xlink:href="../module/iapws__capi.html" xlink:title="iapws__capi">
-<polygon fill="#337ab7" stroke="#337ab7" points="360,-24 284,-24 284,0 360,0 360,-24"/>
-<text text-anchor="middle" x="322" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="337.56,-22.77 267.54,-22.77 267.54,0 337.56,0 337.56,-22.77"/>
+<text text-anchor="middle" x="302.55" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi</text>
 </a>
 </g>
 </g>
 <!-- module~iapws&#45;&gt;module~iapws__capi -->
 <g id="module~~iapws__version~~UsedByGraph_edge4" class="edge">
 <title>module~iapws&#45;&gt;module~iapws__capi</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M395.99,-26.75C388,-25.13 378.94,-23.3 370,-21.49"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="370.5,-18.03 360,-19.48 369.11,-24.89 370.5,-18.03"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M373.07,-25.14C365.59,-23.66 357.23,-22.01 348.98,-20.37"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="349.85,-16.98 339.36,-18.47 348.49,-23.85 349.85,-16.98"/>
 </g>
 <!-- module~iapws__capi_version -->
 <g id="module~~iapws__version~~UsedByGraph_node3" class="node">
 <title>module~iapws__capi_version</title>
 <g id="a_module~~iapws__version~~UsedByGraph_node3"><a xlink:href="../module/iapws__capi_version.html" xlink:title="iapws__capi_version">
-<polygon fill="#337ab7" stroke="#337ab7" points="248,-24 128,-24 128,0 248,0 248,-24"/>
-<text text-anchor="middle" x="188" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_version</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="231.54,-22.77 121.02,-22.77 121.02,0 231.54,0 231.54,-22.77"/>
+<text text-anchor="middle" x="176.28" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws__capi_version</text>
 </a>
 </g>
 </g>
 <!-- module~iapws__capi_version&#45;&gt;module~iapws__version -->
 <g id="module~~iapws__version~~UsedByGraph_edge2" class="edge">
 <title>module~iapws__capi_version&#45;&gt;module~iapws__version</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M127.63,-20.48C119.15,-21.69 110.46,-22.93 102.07,-24.13"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="101.42,-20.69 92.02,-25.57 102.41,-27.62 101.42,-20.69"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M120.54,-19.28C112.66,-20.41 104.55,-21.58 96.69,-22.72"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="96.32,-19.23 86.92,-24.13 97.31,-26.16 96.32,-19.23"/>
 </g>
 <!-- module~iapws__capi&#45;&gt;module~iapws__capi_version -->
 <g id="module~~iapws__version~~UsedByGraph_edge3" class="edge">
 <title>module~iapws__capi&#45;&gt;module~iapws__capi_version</title>
-<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M283.88,-12C275.79,-12 266.98,-12 258.1,-12"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="258.07,-8.5 248.07,-12 258.07,-15.5 258.07,-8.5"/>
+<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M267.26,-11.39C259.76,-11.39 251.56,-11.39 243.28,-11.39"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="243.5,-7.89 233.5,-11.39 243.5,-14.89 243.5,-7.89"/>
 </g>
 </g>
 </svg>
@@ -236,49 +236,49 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="518pt" height="32pt"
- viewBox="0.00 0.00 517.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="485pt" height="31pt"
+ viewBox="0.00 0.00 485.13 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 513.5,-28 513.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 481.13,-26.77 481.13,4 -4,4"/>
 <!-- Module -->
 <g id="node1" class="node">
 <title>Module</title>
-<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
 </g>
 <!-- Submodule -->
 <g id="node2" class="node">
 <title>Submodule</title>
-<polygon fill="#5bc0de" stroke="#5bc0de" points="145.5,-24 72.5,-24 72.5,0 145.5,0 145.5,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="137.76,-22.77 72.24,-22.77 72.24,0 137.76,0 137.76,-22.77"/>
+<text text-anchor="middle" x="105" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
 </g>
 <!-- Subroutine -->
 <g id="node3" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-24 164,-24 164,0 234,0 234,-24"/>
-<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="218.63,-22.77 155.37,-22.77 155.37,0 218.63,0 218.63,-22.77"/>
+<text text-anchor="middle" x="187" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node4" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="310,-24 252,-24 252,0 310,0 310,-24"/>
-<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="291,-22.77 237,-22.77 237,0 291,0 291,-22.77"/>
+<text text-anchor="middle" x="264" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Program -->
 <g id="node5" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-24 328,-24 328,0 386,0 386,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-22.77 309,-22.77 309,0 363,0 363,-22.77"/>
+<text text-anchor="middle" x="336" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node6" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="509.5,-24 404.5,-24 404.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="477.13,-22.77 380.87,-22.77 380.87,0 477.13,0 477.13,-22.77"/>
+<text text-anchor="middle" x="429" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -351,7 +351,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/changelog.html b/docs/page/changelog.html
index 6ebf8e7..9ac33fb 100644
--- a/docs/page/changelog.html
+++ b/docs/page/changelog.html
@@ -208,7 +208,7 @@ <h1 id="version-010">Version 0.1.0</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/examples.html b/docs/page/examples.html
index 17ccf0a..001c2e1 100644
--- a/docs/page/examples.html
+++ b/docs/page/examples.html
@@ -341,7 +341,7 @@ <h1 id="python">Python</h1>
     <span class="n">fig</span> <span class="o">=</span> <span class="n">plt</span><span class="o">.</span><span class="n">figure</span><span class="p">()</span>
     <span class="n">ax</span> <span class="o">=</span> <span class="n">fig</span><span class="o">.</span><span class="n">add_subplot</span><span class="p">()</span>
     <span class="n">ax</span><span class="o">.</span><span class="n">grid</span><span class="p">(</span><span class="n">visible</span><span class="o">=</span><span class="kc">True</span><span class="p">,</span> <span class="n">ls</span><span class="o">=</span><span class="s1">&#39;:&#39;</span><span class="p">)</span>
-    <span class="n">ax</span><span class="o">.</span><span class="n">set_xlabel</span><span class="p">(</span><span class="s2">&quot;T /°C&quot;</span><span class="p">)</span>
+    <span class="n">ax</span><span class="o">.</span><span class="n">set_xlabel</span><span class="p">(</span><span class="s2">&quot;T /°K&quot;</span><span class="p">)</span>
     <span class="n">ax</span><span class="o">.</span><span class="n">set_ylabel</span><span class="p">(</span><span class="s2">&quot;ln (kh/1GPa)&quot;</span><span class="p">)</span>
     <span class="n">gases</span> <span class="o">=</span> <span class="n">pyiapws</span><span class="o">.</span><span class="n">g704</span><span class="o">.</span><span class="n">gases</span><span class="p">(</span><span class="n">HEAVYWATER</span><span class="p">)</span>
     <span class="k">for</span> <span class="n">gas</span> <span class="ow">in</span> <span class="n">gases</span><span class="p">:</span>
@@ -358,7 +358,7 @@ <h1 id="python">Python</h1>
     <span class="n">fig</span> <span class="o">=</span> <span class="n">plt</span><span class="o">.</span><span class="n">figure</span><span class="p">()</span>
     <span class="n">ax</span> <span class="o">=</span> <span class="n">fig</span><span class="o">.</span><span class="n">add_subplot</span><span class="p">()</span>
     <span class="n">ax</span><span class="o">.</span><span class="n">grid</span><span class="p">(</span><span class="n">visible</span><span class="o">=</span><span class="kc">True</span><span class="p">,</span> <span class="n">ls</span><span class="o">=</span><span class="s1">&#39;:&#39;</span><span class="p">)</span>
-    <span class="n">ax</span><span class="o">.</span><span class="n">set_xlabel</span><span class="p">(</span><span class="s2">&quot;T /°C&quot;</span><span class="p">)</span>
+    <span class="n">ax</span><span class="o">.</span><span class="n">set_xlabel</span><span class="p">(</span><span class="s2">&quot;T /°K&quot;</span><span class="p">)</span>
     <span class="n">ax</span><span class="o">.</span><span class="n">set_ylabel</span><span class="p">(</span><span class="s2">&quot;ln kd&quot;</span><span class="p">)</span>
     <span class="n">gases</span> <span class="o">=</span> <span class="n">pyiapws</span><span class="o">.</span><span class="n">g704</span><span class="o">.</span><span class="n">gases</span><span class="p">(</span><span class="n">HEAVYWATER</span><span class="p">)</span>
     <span class="k">for</span> <span class="n">gas</span> <span class="ow">in</span> <span class="n">gases</span><span class="p">:</span>
@@ -420,7 +420,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/index.html b/docs/page/index.html
index 5b9ff15..7689dcf 100644
--- a/docs/page/index.html
+++ b/docs/page/index.html
@@ -127,7 +127,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/license.html b/docs/page/license.html
index 6c45715..4fe3ad6 100644
--- a/docs/page/license.html
+++ b/docs/page/license.html
@@ -144,7 +144,7 @@ <h1>License</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/references.html b/docs/page/references.html
index c9cf6c7..91d3b6e 100644
--- a/docs/page/references.html
+++ b/docs/page/references.html
@@ -149,7 +149,7 @@ <h1>References</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/specs/capi.html b/docs/page/specs/capi.html
index 6b0f082..120c7aa 100644
--- a/docs/page/specs/capi.html
+++ b/docs/page/specs/capi.html
@@ -162,7 +162,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/specs/iapws_g704.html b/docs/page/specs/iapws_g704.html
index ee36e57..9446fd8 100644
--- a/docs/page/specs/iapws_g704.html
+++ b/docs/page/specs/iapws_g704.html
@@ -251,7 +251,7 @@ <h1 id="plots">Plots</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/specs/iapws_r283.html b/docs/page/specs/iapws_r283.html
index 7462c6e..048f765 100644
--- a/docs/page/specs/iapws_r283.html
+++ b/docs/page/specs/iapws_r283.html
@@ -156,7 +156,7 @@ <h1 id="in-heavywater">In heavywater</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/specs/iapws_r797.html b/docs/page/specs/iapws_r797.html
index 72c0c5e..575c805 100644
--- a/docs/page/specs/iapws_r797.html
+++ b/docs/page/specs/iapws_r797.html
@@ -239,7 +239,7 @@ <h2 id="plot">Plot</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/page/specs/index.html b/docs/page/specs/index.html
index b0f659c..9703b39 100644
--- a/docs/page/specs/index.html
+++ b/docs/page/specs/index.html
@@ -133,7 +133,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_gases.html b/docs/proc/capi_gases.html
index 9e06461..81f6f71 100644
--- a/docs/proc/capi_gases.html
+++ b/docs/proc/capi_gases.html
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~9"></span>
+              <span class="anchor" id="variable-heavywater~4"></span>
               integer(kind=c_int),
             </td>
 <td>intent(in),</td>
@@ -172,7 +172,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-list_gases~2"></span>
+          <span class="anchor" id="variable-list_gases"></span>
           type(c_ptr)
         </small>
       </h3>
@@ -186,34 +186,34 @@ <h3 class="card-title">Calls</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~capi_gases~~CallsGraph Pages: 1 -->
-<svg id="proccapi_gasesCallsGraph" width="169pt" height="32pt"
- viewBox="0.00 0.00 169.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~capi_gases~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="proccapi_gasesCallsGraph" width="164pt" height="31pt"
+ viewBox="0.00 0.00 163.52 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~capi_gases~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~capi_gases~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 165,-28 165,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 159.52,-26.77 159.52,4 -4,4"/>
 <!-- proc~capi_gases -->
 <g id="proc~~capi_gases~~CallsGraph_node1" class="node">
 <title>proc~capi_gases</title>
-<polygon fill="none" stroke="black" points="71,-24 0,-24 0,0 71,0 71,-24"/>
-<text text-anchor="middle" x="35.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_gases</text>
+<polygon fill="none" stroke="black" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_gases</text>
 </g>
 <!-- proc~gases -->
 <g id="proc~~capi_gases~~CallsGraph_node2" class="node">
 <title>proc~gases</title>
 <g id="a_proc~~capi_gases~~CallsGraph_node2"><a xlink:href="../proc/gases.html" xlink:title="gases">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="161,-24 107,-24 107,0 161,0 161,-24"/>
-<text text-anchor="middle" x="134" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gases</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="155.52,-22.77 101.52,-22.77 101.52,0 155.52,0 155.52,-22.77"/>
+<text text-anchor="middle" x="128.52" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gases</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_gases&#45;&gt;proc~gases -->
 <g id="proc~~capi_gases~~CallsGraph_edge1" class="edge">
 <title>proc~capi_gases&#45;&gt;proc~gases</title>
-<path fill="none" stroke="#ff0000" d="M71.07,-12C79.36,-12 88.23,-12 96.6,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="96.85,-15.5 106.85,-12 96.85,-8.5 96.85,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M65.76,-11.39C73.53,-11.39 81.91,-11.39 89.92,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="89.74,-14.89 99.74,-11.39 89.74,-7.89 89.74,-14.89"/>
 </g>
 </g>
 </svg>
@@ -232,55 +232,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -329,7 +329,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_get_version.html b/docs/proc/capi_get_version.html
index a0bca57..27d0dc3 100644
--- a/docs/proc/capi_get_version.html
+++ b/docs/proc/capi_get_version.html
@@ -161,34 +161,34 @@ <h3 class="card-title">Calls</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~capi_get_version~~CallsGraph Pages: 1 -->
-<svg id="proccapi_get_versionCallsGraph" width="220pt" height="32pt"
- viewBox="0.00 0.00 220.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~capi_get_version~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="proccapi_get_versionCallsGraph" width="204pt" height="31pt"
+ viewBox="0.00 0.00 203.54 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~capi_get_version~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~capi_get_version~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 216,-28 216,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 199.54,-26.77 199.54,4 -4,4"/>
 <!-- proc~capi_get_version -->
 <g id="proc~~capi_get_version~~CallsGraph_node1" class="node">
 <title>proc~capi_get_version</title>
-<polygon fill="none" stroke="black" points="102,-24 0,-24 0,0 102,0 102,-24"/>
-<text text-anchor="middle" x="51" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_get_version</text>
+<polygon fill="none" stroke="black" points="92.52,-22.77 0,-22.77 0,0 92.52,0 92.52,-22.77"/>
+<text text-anchor="middle" x="46.26" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_get_version</text>
 </g>
 <!-- proc~get_version -->
 <g id="proc~~capi_get_version~~CallsGraph_node2" class="node">
 <title>proc~get_version</title>
 <g id="a_proc~~capi_get_version~~CallsGraph_node2"><a xlink:href="../proc/get_version.html" xlink:title="get_version">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="212,-24 138,-24 138,0 212,0 212,-24"/>
-<text text-anchor="middle" x="175" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">get_version</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="195.54,-22.77 128.52,-22.77 128.52,0 195.54,0 195.54,-22.77"/>
+<text text-anchor="middle" x="162.03" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">get_version</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_get_version&#45;&gt;proc~get_version -->
 <g id="proc~~capi_get_version~~CallsGraph_edge1" class="edge">
 <title>proc~capi_get_version&#45;&gt;proc~get_version</title>
-<path fill="none" stroke="#ff0000" d="M102.33,-12C110.73,-12 119.4,-12 127.7,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="127.95,-15.5 137.95,-12 127.95,-8.5 127.95,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M92.88,-11.39C100.85,-11.39 109.14,-11.39 117.07,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="116.84,-14.89 126.84,-11.39 116.84,-7.89 116.84,-14.89"/>
 </g>
 </g>
 </svg>
@@ -207,55 +207,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_kd.html b/docs/proc/capi_kd.html
index 60c5099..d8c3c5b 100644
--- a/docs/proc/capi_kd.html
+++ b/docs/proc/capi_kd.html
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-t~12"></span>
+              <span class="anchor" id="variable-t~2"></span>
               real(kind=c_double),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-gas~10"></span>
+              <span class="anchor" id="variable-gas~3"></span>
               type(c_ptr),
             </td>
 <td>intent(in),</td>
@@ -184,7 +184,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~7"></span>
+              <span class="anchor" id="variable-heavywater~2"></span>
               integer(kind=c_int),
             </td>
 <td>intent(in),</td>
@@ -199,7 +199,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~5"></span>
+              <span class="anchor" id="variable-k~2"></span>
               real(kind=c_double),
             </td>
 <td>intent(inout)</td>
@@ -254,34 +254,34 @@ <h3 class="card-title">Calls</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~capi_kd~~CallsGraph Pages: 1 -->
-<svg id="proccapi_kdCallsGraph" width="152pt" height="32pt"
- viewBox="0.00 0.00 152.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~capi_kd~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="proccapi_kdCallsGraph" width="152pt" height="31pt"
+ viewBox="0.00 0.00 152.00 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~capi_kd~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~capi_kd~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 148,-28 148,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 148,-26.77 148,4 -4,4"/>
 <!-- proc~capi_kd -->
 <g id="proc~~capi_kd~~CallsGraph_node1" class="node">
 <title>proc~capi_kd</title>
-<polygon fill="none" stroke="black" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_kd</text>
+<polygon fill="none" stroke="black" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_kd</text>
 </g>
 <!-- proc~kd -->
 <g id="proc~~capi_kd~~CallsGraph_node2" class="node">
 <title>proc~kd</title>
 <g id="a_proc~~capi_kd~~CallsGraph_node2"><a xlink:href="../proc/kd.html" xlink:title="kd">
-<polygon fill="#d9534f" stroke="#d9534f" points="144,-24 90,-24 90,0 144,0 144,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kd</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="144,-22.77 90,-22.77 90,0 144,0 144,-22.77"/>
+<text text-anchor="middle" x="117" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kd</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_kd&#45;&gt;proc~kd -->
 <g id="proc~~capi_kd~~CallsGraph_edge1" class="edge">
 <title>proc~capi_kd&#45;&gt;proc~kd</title>
-<path fill="none" stroke="#ff0000" d="M54.4,-12C62.39,-12 71.31,-12 79.82,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="79.92,-15.5 89.92,-12 79.92,-8.5 79.92,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M54.4,-11.39C61.89,-11.39 70.18,-11.39 78.2,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="78.1,-14.89 88.1,-11.39 78.1,-7.89 78.1,-14.89"/>
 </g>
 </g>
 </svg>
@@ -300,55 +300,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -397,7 +397,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_kh.html b/docs/proc/capi_kh.html
index 3ad6105..64407c0 100644
--- a/docs/proc/capi_kh.html
+++ b/docs/proc/capi_kh.html
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-t~11"></span>
+              <span class="anchor" id="variable-t"></span>
               real(kind=c_double),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-gas~9"></span>
+              <span class="anchor" id="variable-gas~2"></span>
               type(c_ptr),
             </td>
 <td>intent(in),</td>
@@ -184,7 +184,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~6"></span>
+              <span class="anchor" id="variable-heavywater"></span>
               integer(kind=c_int),
             </td>
 <td>intent(in),</td>
@@ -199,7 +199,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~4"></span>
+              <span class="anchor" id="variable-k"></span>
               real(kind=c_double),
             </td>
 <td>intent(inout)</td>
@@ -254,34 +254,34 @@ <h3 class="card-title">Calls</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~capi_kh~~CallsGraph Pages: 1 -->
-<svg id="proccapi_khCallsGraph" width="152pt" height="32pt"
- viewBox="0.00 0.00 152.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~capi_kh~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="proccapi_khCallsGraph" width="152pt" height="31pt"
+ viewBox="0.00 0.00 152.00 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~capi_kh~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~capi_kh~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 148,-28 148,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 148,-26.77 148,4 -4,4"/>
 <!-- proc~capi_kh -->
 <g id="proc~~capi_kh~~CallsGraph_node1" class="node">
 <title>proc~capi_kh</title>
-<polygon fill="none" stroke="black" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_kh</text>
+<polygon fill="none" stroke="black" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_kh</text>
 </g>
 <!-- proc~kh -->
 <g id="proc~~capi_kh~~CallsGraph_node2" class="node">
 <title>proc~kh</title>
 <g id="a_proc~~capi_kh~~CallsGraph_node2"><a xlink:href="../proc/kh.html" xlink:title="kh">
-<polygon fill="#d9534f" stroke="#d9534f" points="144,-24 90,-24 90,0 144,0 144,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kh</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="144,-22.77 90,-22.77 90,0 144,0 144,-22.77"/>
+<text text-anchor="middle" x="117" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kh</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_kh&#45;&gt;proc~kh -->
 <g id="proc~~capi_kh~~CallsGraph_edge1" class="edge">
 <title>proc~capi_kh&#45;&gt;proc~kh</title>
-<path fill="none" stroke="#ff0000" d="M54.4,-12C62.39,-12 71.31,-12 79.82,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="79.92,-15.5 89.92,-12 79.92,-8.5 79.92,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M54.4,-11.39C61.89,-11.39 70.18,-11.39 78.2,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="78.1,-14.89 88.1,-11.39 78.1,-7.89 78.1,-14.89"/>
 </g>
 </g>
 </svg>
@@ -300,55 +300,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -397,7 +397,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_ngases.html b/docs/proc/capi_ngases.html
index fc0ff15..0e07156 100644
--- a/docs/proc/capi_ngases.html
+++ b/docs/proc/capi_ngases.html
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~8"></span>
+              <span class="anchor" id="variable-heavywater~3"></span>
               integer(kind=c_int),
             </td>
 <td>intent(in),</td>
@@ -172,7 +172,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-n~3"></span>
+          <span class="anchor" id="variable-n"></span>
           integer(kind=c_int)
         </small>
       </h3>
@@ -186,34 +186,34 @@ <h3 class="card-title">Calls</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~capi_ngases~~CallsGraph Pages: 1 -->
-<svg id="proccapi_ngasesCallsGraph" width="176pt" height="32pt"
- viewBox="0.00 0.00 176.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~capi_ngases~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="proccapi_ngasesCallsGraph" width="170pt" height="31pt"
+ viewBox="0.00 0.00 169.52 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~capi_ngases~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~capi_ngases~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 172,-28 172,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 165.52,-26.77 165.52,4 -4,4"/>
 <!-- proc~capi_ngases -->
 <g id="proc~~capi_ngases~~CallsGraph_node1" class="node">
 <title>proc~capi_ngases</title>
-<polygon fill="none" stroke="black" points="78,-24 0,-24 0,0 78,0 78,-24"/>
-<text text-anchor="middle" x="39" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_ngases</text>
+<polygon fill="none" stroke="black" points="71.52,-22.77 0,-22.77 0,0 71.52,0 71.52,-22.77"/>
+<text text-anchor="middle" x="35.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_ngases</text>
 </g>
 <!-- proc~ngases -->
 <g id="proc~~capi_ngases~~CallsGraph_node2" class="node">
 <title>proc~ngases</title>
 <g id="a_proc~~capi_ngases~~CallsGraph_node2"><a xlink:href="../proc/ngases.html" xlink:title="ngases">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="168,-24 114,-24 114,0 168,0 168,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ngases</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="161.52,-22.77 107.52,-22.77 107.52,0 161.52,0 161.52,-22.77"/>
+<text text-anchor="middle" x="134.52" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ngases</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_ngases&#45;&gt;proc~ngases -->
 <g id="proc~~capi_ngases~~CallsGraph_edge1" class="edge">
 <title>proc~capi_ngases&#45;&gt;proc~ngases</title>
-<path fill="none" stroke="#ff0000" d="M78.09,-12C86.47,-12 95.33,-12 103.64,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="103.8,-15.5 113.8,-12 103.8,-8.5 103.8,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M71.97,-11.39C79.72,-11.39 87.96,-11.39 95.8,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="95.78,-14.89 105.78,-11.39 95.78,-7.89 95.78,-14.89"/>
 </g>
 </g>
 </svg>
@@ -232,55 +232,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -329,7 +329,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_psat.html b/docs/proc/capi_psat.html
index 5e922dd..d310b17 100644
--- a/docs/proc/capi_psat.html
+++ b/docs/proc/capi_psat.html
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ts~4"></span>
+              <span class="anchor" id="variable-ts"></span>
               real(kind=c_double),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ps~4"></span>
+              <span class="anchor" id="variable-ps"></span>
               real(kind=c_double),
             </td>
 <td>intent(out)</td>
@@ -209,34 +209,34 @@ <h3 class="card-title">Calls</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~capi_psat~~CallsGraph Pages: 1 -->
-<svg id="proccapi_psatCallsGraph" width="161pt" height="32pt"
- viewBox="0.00 0.00 161.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~capi_psat~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="proccapi_psatCallsGraph" width="155pt" height="31pt"
+ viewBox="0.00 0.00 155.27 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~capi_psat~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~capi_psat~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 157,-28 157,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 151.27,-26.77 151.27,4 -4,4"/>
 <!-- proc~capi_psat -->
 <g id="proc~~capi_psat~~CallsGraph_node1" class="node">
 <title>proc~capi_psat</title>
-<polygon fill="none" stroke="black" points="63,-24 0,-24 0,0 63,0 63,-24"/>
-<text text-anchor="middle" x="31.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_psat</text>
+<polygon fill="none" stroke="black" points="57.27,-22.77 0,-22.77 0,0 57.27,0 57.27,-22.77"/>
+<text text-anchor="middle" x="28.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_psat</text>
 </g>
 <!-- proc~psat -->
 <g id="proc~~capi_psat~~CallsGraph_node2" class="node">
 <title>proc~psat</title>
 <g id="a_proc~~capi_psat~~CallsGraph_node2"><a xlink:href="../proc/psat.html" xlink:title="psat">
-<polygon fill="#d9534f" stroke="#d9534f" points="153,-24 99,-24 99,0 153,0 153,-24"/>
-<text text-anchor="middle" x="126" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">psat</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="147.27,-22.77 93.27,-22.77 93.27,0 147.27,0 147.27,-22.77"/>
+<text text-anchor="middle" x="120.27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">psat</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_psat&#45;&gt;proc~psat -->
 <g id="proc~~capi_psat~~CallsGraph_edge1" class="edge">
 <title>proc~capi_psat&#45;&gt;proc~psat</title>
-<path fill="none" stroke="#ff0000" d="M63.04,-12C71.27,-12 80.26,-12 88.77,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="88.83,-15.5 98.83,-12 88.83,-8.5 88.83,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M57.5,-11.39C65.1,-11.39 73.46,-11.39 81.51,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="81.43,-14.89 91.43,-11.39 81.43,-7.89 81.43,-14.89"/>
 </g>
 </g>
 </svg>
@@ -255,55 +255,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -352,7 +352,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/capi_tsat.html b/docs/proc/capi_tsat.html
index 1b56768..cb405d8 100644
--- a/docs/proc/capi_tsat.html
+++ b/docs/proc/capi_tsat.html
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ps~5"></span>
+              <span class="anchor" id="variable-ps~2"></span>
               real(kind=c_double),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ts~5"></span>
+              <span class="anchor" id="variable-ts~2"></span>
               real(kind=c_double),
             </td>
 <td>intent(out)</td>
@@ -209,34 +209,34 @@ <h3 class="card-title">Calls</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~capi_tsat~~CallsGraph Pages: 1 -->
-<svg id="proccapi_tsatCallsGraph" width="159pt" height="32pt"
- viewBox="0.00 0.00 159.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~capi_tsat~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="proccapi_tsatCallsGraph" width="155pt" height="31pt"
+ viewBox="0.00 0.00 154.52 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~capi_tsat~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~capi_tsat~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 155,-28 155,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 150.52,-26.77 150.52,4 -4,4"/>
 <!-- proc~capi_tsat -->
 <g id="proc~~capi_tsat~~CallsGraph_node1" class="node">
 <title>proc~capi_tsat</title>
-<polygon fill="none" stroke="black" points="61,-24 0,-24 0,0 61,0 61,-24"/>
-<text text-anchor="middle" x="30.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_Tsat</text>
+<polygon fill="none" stroke="black" points="56.52,-22.77 0,-22.77 0,0 56.52,0 56.52,-22.77"/>
+<text text-anchor="middle" x="28.26" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_Tsat</text>
 </g>
 <!-- proc~tsat -->
 <g id="proc~~capi_tsat~~CallsGraph_node2" class="node">
 <title>proc~tsat</title>
 <g id="a_proc~~capi_tsat~~CallsGraph_node2"><a xlink:href="../proc/tsat.html" xlink:title="Tsat">
-<polygon fill="#d9534f" stroke="#d9534f" points="151,-24 97,-24 97,0 151,0 151,-24"/>
-<text text-anchor="middle" x="124" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Tsat</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="146.52,-22.77 92.52,-22.77 92.52,0 146.52,0 146.52,-22.77"/>
+<text text-anchor="middle" x="119.52" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Tsat</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_tsat&#45;&gt;proc~tsat -->
 <g id="proc~~capi_tsat~~CallsGraph_edge1" class="edge">
 <title>proc~capi_tsat&#45;&gt;proc~tsat</title>
-<path fill="none" stroke="#ff0000" d="M61.21,-12C69.37,-12 78.31,-12 86.79,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="86.83,-15.5 96.83,-12 86.83,-8.5 86.83,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M57.01,-11.39C64.58,-11.39 72.9,-11.39 80.91,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="80.79,-14.89 90.79,-11.39 80.79,-7.89 80.79,-14.89"/>
 </g>
 </g>
 </svg>
@@ -255,55 +255,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -352,7 +352,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/gases.html b/docs/proc/gases.html
index 0db091e..4e1f1f0 100644
--- a/docs/proc/gases.html
+++ b/docs/proc/gases.html
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~4"></span>
+              <span class="anchor" id="variable-heavywater~9"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -172,7 +172,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-list_gases"></span>
+          <span class="anchor" id="variable-list_gases~2"></span>
           type(<a href='../type/gas_type.html'>gas_type</a>), pointer, (:)
         </small>
       </h3>
@@ -186,49 +186,49 @@ <h3 class="card-title">Called by</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~gases~~CalledByGraph Pages: 1 -->
-<svg id="procgasesCalledByGraph" width="169pt" height="74pt"
- viewBox="0.00 0.00 169.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~gases~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<svg id="procgasesCalledByGraph" width="164pt" height="72pt"
+ viewBox="0.00 0.00 163.52 71.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~gases~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 67.77)">
 <title>proc~~gases~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 165,-70 165,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-67.77 159.52,-67.77 159.52,4 -4,4"/>
 <!-- proc~gases -->
 <g id="proc~~gases~~CalledByGraph_node1" class="node">
 <title>proc~gases</title>
-<polygon fill="none" stroke="black" points="161,-45 107,-45 107,-21 161,-21 161,-45"/>
-<text text-anchor="middle" x="134" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">gases</text>
+<polygon fill="none" stroke="black" points="155.52,-42.77 101.52,-42.77 101.52,-20 155.52,-20 155.52,-42.77"/>
+<text text-anchor="middle" x="128.52" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50">gases</text>
 </g>
 <!-- proc~capi_gases -->
 <g id="proc~~gases~~CalledByGraph_node2" class="node">
 <title>proc~capi_gases</title>
 <g id="a_proc~~gases~~CalledByGraph_node2"><a xlink:href="../proc/capi_gases.html" xlink:title="capi_gases">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="71,-66 0,-66 0,-42 71,-42 71,-66"/>
-<text text-anchor="middle" x="35.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_gases</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="65.52,-63.77 0,-63.77 0,-41 65.52,-41 65.52,-63.77"/>
+<text text-anchor="middle" x="32.76" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_gases</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_gases&#45;&gt;proc~gases -->
 <g id="proc~~gases~~CalledByGraph_edge1" class="edge">
 <title>proc~capi_gases&#45;&gt;proc~gases</title>
-<path fill="none" stroke="#ff0000" d="M71.07,-46.48C79.45,-44.65 88.43,-42.7 96.88,-40.86"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="97.82,-44.24 106.85,-38.69 96.34,-37.4 97.82,-44.24"/>
+<path fill="none" stroke="#ff0000" d="M65.76,-45.22C73.63,-43.46 82.11,-41.56 90.19,-39.74"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="90.79,-43.2 99.78,-37.6 89.26,-36.37 90.79,-43.2"/>
 </g>
 <!-- proc~gases2 -->
 <g id="proc~~gases~~CalledByGraph_node3" class="node">
 <title>proc~gases2</title>
 <g id="a_proc~~gases~~CalledByGraph_node3"><a xlink:href="../proc/gases2.html" xlink:title="gases2">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="62.5,-24 8.5,-24 8.5,0 62.5,0 62.5,-24"/>
-<text text-anchor="middle" x="35.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gases2</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="59.76,-22.77 5.76,-22.77 5.76,0 59.76,0 59.76,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gases2</text>
 </a>
 </g>
 </g>
 <!-- proc~gases2&#45;&gt;proc~gases -->
 <g id="proc~~gases~~CalledByGraph_edge2" class="edge">
 <title>proc~gases2&#45;&gt;proc~gases</title>
-<path fill="none" stroke="#ff0000" d="M62.61,-17.68C73.13,-19.97 85.43,-22.65 96.78,-25.12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="96.35,-28.61 106.86,-27.31 97.84,-21.77 96.35,-28.61"/>
+<path fill="none" stroke="#ff0000" d="M59.88,-16.96C69.25,-18.95 80,-21.25 90.14,-23.41"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="89.23,-26.8 99.74,-25.46 90.69,-19.95 89.23,-26.8"/>
 </g>
 </g>
 </svg>
@@ -247,55 +247,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/gases2.html b/docs/proc/gases2.html
index 58cfa7b..0817111 100644
--- a/docs/proc/gases2.html
+++ b/docs/proc/gases2.html
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~5"></span>
+              <span class="anchor" id="variable-heavywater~10"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -172,7 +172,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-str_gases"></span>
+          <span class="anchor" id="variable-str_gases~2"></span>
           character(len=:), pointer
         </small>
       </h3>
@@ -186,34 +186,34 @@ <h3 class="card-title">Calls</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~gases2~~CallsGraph Pages: 1 -->
-<svg id="procgases2CallsGraph" width="152pt" height="32pt"
- viewBox="0.00 0.00 152.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~gases2~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procgases2CallsGraph" width="152pt" height="31pt"
+ viewBox="0.00 0.00 152.00 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~gases2~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~gases2~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 148,-28 148,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 148,-26.77 148,4 -4,4"/>
 <!-- proc~gases2 -->
 <g id="proc~~gases2~~CallsGraph_node1" class="node">
 <title>proc~gases2</title>
-<polygon fill="none" stroke="black" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">gases2</text>
+<polygon fill="none" stroke="black" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">gases2</text>
 </g>
 <!-- proc~gases -->
 <g id="proc~~gases2~~CallsGraph_node2" class="node">
 <title>proc~gases</title>
 <g id="a_proc~~gases2~~CallsGraph_node2"><a xlink:href="../proc/gases.html" xlink:title="gases">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="144,-24 90,-24 90,0 144,0 144,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gases</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="144,-22.77 90,-22.77 90,0 144,0 144,-22.77"/>
+<text text-anchor="middle" x="117" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gases</text>
 </a>
 </g>
 </g>
 <!-- proc~gases2&#45;&gt;proc~gases -->
 <g id="proc~~gases2~~CallsGraph_edge1" class="edge">
 <title>proc~gases2&#45;&gt;proc~gases</title>
-<path fill="none" stroke="#ff0000" d="M54.4,-12C62.39,-12 71.31,-12 79.82,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="79.92,-15.5 89.92,-12 79.92,-8.5 79.92,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M54.4,-11.39C61.89,-11.39 70.18,-11.39 78.2,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="78.1,-14.89 88.1,-11.39 78.1,-7.89 78.1,-14.89"/>
 </g>
 </g>
 </svg>
@@ -232,55 +232,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -329,7 +329,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/get_version.html b/docs/proc/get_version.html
index 6c7f60b..b22d056 100644
--- a/docs/proc/get_version.html
+++ b/docs/proc/get_version.html
@@ -162,34 +162,34 @@ <h3 class="card-title">Called by</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~get_version~~CalledByGraph Pages: 1 -->
-<svg id="procget_versionCalledByGraph" width="220pt" height="32pt"
- viewBox="0.00 0.00 220.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~get_version~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procget_versionCalledByGraph" width="204pt" height="31pt"
+ viewBox="0.00 0.00 203.54 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~get_version~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~get_version~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 216,-28 216,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 199.54,-26.77 199.54,4 -4,4"/>
 <!-- proc~get_version -->
 <g id="proc~~get_version~~CalledByGraph_node1" class="node">
 <title>proc~get_version</title>
-<polygon fill="none" stroke="black" points="212,-24 138,-24 138,0 212,0 212,-24"/>
-<text text-anchor="middle" x="175" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">get_version</text>
+<polygon fill="none" stroke="black" points="195.54,-22.77 128.52,-22.77 128.52,0 195.54,0 195.54,-22.77"/>
+<text text-anchor="middle" x="162.03" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">get_version</text>
 </g>
 <!-- proc~capi_get_version -->
 <g id="proc~~get_version~~CalledByGraph_node2" class="node">
 <title>proc~capi_get_version</title>
 <g id="a_proc~~get_version~~CalledByGraph_node2"><a xlink:href="../proc/capi_get_version.html" xlink:title="capi_get_version">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="102,-24 0,-24 0,0 102,0 102,-24"/>
-<text text-anchor="middle" x="51" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_get_version</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="92.52,-22.77 0,-22.77 0,0 92.52,0 92.52,-22.77"/>
+<text text-anchor="middle" x="46.26" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_get_version</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_get_version&#45;&gt;proc~get_version -->
 <g id="proc~~get_version~~CalledByGraph_edge1" class="edge">
 <title>proc~capi_get_version&#45;&gt;proc~get_version</title>
-<path fill="none" stroke="#ff0000" d="M102.33,-12C110.73,-12 119.4,-12 127.7,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="127.95,-15.5 137.95,-12 127.95,-8.5 127.95,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M92.88,-11.39C100.85,-11.39 109.14,-11.39 117.07,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="116.84,-14.89 126.84,-11.39 116.84,-7.89 116.84,-14.89"/>
 </g>
 </g>
 </svg>
@@ -208,55 +208,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -305,7 +305,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/iapws_r797_v.html b/docs/proc/iapws_r797_v.html
index 6877261..d70abdf 100644
--- a/docs/proc/iapws_r797_v.html
+++ b/docs/proc/iapws_r797_v.html
@@ -168,7 +168,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-t~15"></span>
+              <span class="anchor" id="variable-t~5"></span>
               real(kind=dp),
             </td>
 <td>intent(in)</td>
@@ -222,7 +222,7 @@ <h3>Return Value
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/kd.html b/docs/proc/kd.html
index be7c620..8e1425e 100644
--- a/docs/proc/kd.html
+++ b/docs/proc/kd.html
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-t~10"></span>
+              <span class="anchor" id="variable-t~15"></span>
               real(kind=dp),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-gas~7"></span>
+              <span class="anchor" id="variable-gas~10"></span>
               character(len=*),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~2"></span>
+              <span class="anchor" id="variable-heavywater~7"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~2"></span>
+              <span class="anchor" id="variable-k~4"></span>
               real(kind=dp),
             </td>
 <td>intent(out)</td>
@@ -224,34 +224,34 @@ <h3 class="card-title">Called by</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~kd~~CalledByGraph Pages: 1 -->
-<svg id="prockdCalledByGraph" width="152pt" height="32pt"
- viewBox="0.00 0.00 152.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~kd~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="prockdCalledByGraph" width="152pt" height="31pt"
+ viewBox="0.00 0.00 152.00 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~kd~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~kd~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 148,-28 148,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 148,-26.77 148,4 -4,4"/>
 <!-- proc~kd -->
 <g id="proc~~kd~~CalledByGraph_node1" class="node">
 <title>proc~kd</title>
-<polygon fill="none" stroke="black" points="144,-24 90,-24 90,0 144,0 144,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">kd</text>
+<polygon fill="none" stroke="black" points="144,-22.77 90,-22.77 90,0 144,0 144,-22.77"/>
+<text text-anchor="middle" x="117" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">kd</text>
 </g>
 <!-- proc~capi_kd -->
 <g id="proc~~kd~~CalledByGraph_node2" class="node">
 <title>proc~capi_kd</title>
 <g id="a_proc~~kd~~CalledByGraph_node2"><a xlink:href="../proc/capi_kd.html" xlink:title="capi_kd">
-<polygon fill="#d9534f" stroke="#d9534f" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_kd</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_kd</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_kd&#45;&gt;proc~kd -->
 <g id="proc~~kd~~CalledByGraph_edge1" class="edge">
 <title>proc~capi_kd&#45;&gt;proc~kd</title>
-<path fill="none" stroke="#ff0000" d="M54.4,-12C62.39,-12 71.31,-12 79.82,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="79.92,-15.5 89.92,-12 79.92,-8.5 79.92,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M54.4,-11.39C61.89,-11.39 70.18,-11.39 78.2,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="78.1,-14.89 88.1,-11.39 78.1,-7.89 78.1,-14.89"/>
 </g>
 </g>
 </svg>
@@ -270,55 +270,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -367,7 +367,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/kh.html b/docs/proc/kh.html
index db4ea77..e3a1a93 100644
--- a/docs/proc/kh.html
+++ b/docs/proc/kh.html
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-t~9"></span>
+              <span class="anchor" id="variable-t~14"></span>
               real(kind=dp),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-gas~6"></span>
+              <span class="anchor" id="variable-gas~9"></span>
               character(len=*),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater"></span>
+              <span class="anchor" id="variable-heavywater~6"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k"></span>
+              <span class="anchor" id="variable-k~3"></span>
               real(kind=dp),
             </td>
 <td>intent(out)</td>
@@ -224,34 +224,34 @@ <h3 class="card-title">Called by</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~kh~~CalledByGraph Pages: 1 -->
-<svg id="prockhCalledByGraph" width="152pt" height="32pt"
- viewBox="0.00 0.00 152.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~kh~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="prockhCalledByGraph" width="152pt" height="31pt"
+ viewBox="0.00 0.00 152.00 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~kh~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~kh~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 148,-28 148,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 148,-26.77 148,4 -4,4"/>
 <!-- proc~kh -->
 <g id="proc~~kh~~CalledByGraph_node1" class="node">
 <title>proc~kh</title>
-<polygon fill="none" stroke="black" points="144,-24 90,-24 90,0 144,0 144,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">kh</text>
+<polygon fill="none" stroke="black" points="144,-22.77 90,-22.77 90,0 144,0 144,-22.77"/>
+<text text-anchor="middle" x="117" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">kh</text>
 </g>
 <!-- proc~capi_kh -->
 <g id="proc~~kh~~CalledByGraph_node2" class="node">
 <title>proc~capi_kh</title>
 <g id="a_proc~~kh~~CalledByGraph_node2"><a xlink:href="../proc/capi_kh.html" xlink:title="capi_kh">
-<polygon fill="#d9534f" stroke="#d9534f" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_kh</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_kh</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_kh&#45;&gt;proc~kh -->
 <g id="proc~~kh~~CalledByGraph_edge1" class="edge">
 <title>proc~capi_kh&#45;&gt;proc~kh</title>
-<path fill="none" stroke="#ff0000" d="M54.4,-12C62.39,-12 71.31,-12 79.82,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="79.92,-15.5 89.92,-12 79.92,-8.5 79.92,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M54.4,-11.39C61.89,-11.39 70.18,-11.39 78.2,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="78.1,-14.89 88.1,-11.39 78.1,-7.89 78.1,-14.89"/>
 </g>
 </g>
 </svg>
@@ -270,55 +270,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -367,7 +367,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/ngases.html b/docs/proc/ngases.html
index c0fc91d..894adbb 100644
--- a/docs/proc/ngases.html
+++ b/docs/proc/ngases.html
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-heavywater~3"></span>
+              <span class="anchor" id="variable-heavywater~8"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -172,7 +172,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-n"></span>
+          <span class="anchor" id="variable-n~3"></span>
           integer(kind=int32)
         </small>
       </h3>
@@ -186,34 +186,34 @@ <h3 class="card-title">Called by</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~ngases~~CalledByGraph Pages: 1 -->
-<svg id="procngasesCalledByGraph" width="176pt" height="32pt"
- viewBox="0.00 0.00 176.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~ngases~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procngasesCalledByGraph" width="170pt" height="31pt"
+ viewBox="0.00 0.00 169.52 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~ngases~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~ngases~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 172,-28 172,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 165.52,-26.77 165.52,4 -4,4"/>
 <!-- proc~ngases -->
 <g id="proc~~ngases~~CalledByGraph_node1" class="node">
 <title>proc~ngases</title>
-<polygon fill="none" stroke="black" points="168,-24 114,-24 114,0 168,0 168,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">ngases</text>
+<polygon fill="none" stroke="black" points="161.52,-22.77 107.52,-22.77 107.52,0 161.52,0 161.52,-22.77"/>
+<text text-anchor="middle" x="134.52" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">ngases</text>
 </g>
 <!-- proc~capi_ngases -->
 <g id="proc~~ngases~~CalledByGraph_node2" class="node">
 <title>proc~capi_ngases</title>
 <g id="a_proc~~ngases~~CalledByGraph_node2"><a xlink:href="../proc/capi_ngases.html" xlink:title="capi_ngases">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="78,-24 0,-24 0,0 78,0 78,-24"/>
-<text text-anchor="middle" x="39" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_ngases</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="71.52,-22.77 0,-22.77 0,0 71.52,0 71.52,-22.77"/>
+<text text-anchor="middle" x="35.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_ngases</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_ngases&#45;&gt;proc~ngases -->
 <g id="proc~~ngases~~CalledByGraph_edge1" class="edge">
 <title>proc~capi_ngases&#45;&gt;proc~ngases</title>
-<path fill="none" stroke="#ff0000" d="M78.09,-12C86.47,-12 95.33,-12 103.64,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="103.8,-15.5 113.8,-12 103.8,-8.5 103.8,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M71.97,-11.39C79.72,-11.39 87.96,-11.39 95.8,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="95.78,-14.89 105.78,-11.39 95.78,-7.89 95.78,-14.89"/>
 </g>
 </g>
 </svg>
@@ -232,55 +232,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -329,7 +329,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/psat.html b/docs/proc/psat.html
index ce06b48..7187581 100644
--- a/docs/proc/psat.html
+++ b/docs/proc/psat.html
@@ -155,7 +155,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-ts~2"></span>
+              <span class="anchor" id="variable-ts~4"></span>
               real(kind=dp),
             </td>
 <td>intent(in)</td>
@@ -170,7 +170,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ps~2"></span>
+              <span class="anchor" id="variable-ps~4"></span>
               real(kind=dp),
             </td>
 <td>intent(out)</td>
@@ -195,34 +195,34 @@ <h3 class="card-title">Called by</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~psat~~CalledByGraph Pages: 1 -->
-<svg id="procpsatCalledByGraph" width="161pt" height="32pt"
- viewBox="0.00 0.00 161.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~psat~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procpsatCalledByGraph" width="155pt" height="31pt"
+ viewBox="0.00 0.00 155.27 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~psat~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~psat~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 157,-28 157,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 151.27,-26.77 151.27,4 -4,4"/>
 <!-- proc~psat -->
 <g id="proc~~psat~~CalledByGraph_node1" class="node">
 <title>proc~psat</title>
-<polygon fill="none" stroke="black" points="153,-24 99,-24 99,0 153,0 153,-24"/>
-<text text-anchor="middle" x="126" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">psat</text>
+<polygon fill="none" stroke="black" points="147.27,-22.77 93.27,-22.77 93.27,0 147.27,0 147.27,-22.77"/>
+<text text-anchor="middle" x="120.27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">psat</text>
 </g>
 <!-- proc~capi_psat -->
 <g id="proc~~psat~~CalledByGraph_node2" class="node">
 <title>proc~capi_psat</title>
 <g id="a_proc~~psat~~CalledByGraph_node2"><a xlink:href="../proc/capi_psat.html" xlink:title="capi_psat">
-<polygon fill="#d9534f" stroke="#d9534f" points="63,-24 0,-24 0,0 63,0 63,-24"/>
-<text text-anchor="middle" x="31.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_psat</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="57.27,-22.77 0,-22.77 0,0 57.27,0 57.27,-22.77"/>
+<text text-anchor="middle" x="28.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_psat</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_psat&#45;&gt;proc~psat -->
 <g id="proc~~psat~~CalledByGraph_edge1" class="edge">
 <title>proc~capi_psat&#45;&gt;proc~psat</title>
-<path fill="none" stroke="#ff0000" d="M63.04,-12C71.27,-12 80.26,-12 88.77,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="88.83,-15.5 98.83,-12 88.83,-8.5 88.83,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M57.5,-11.39C65.1,-11.39 73.46,-11.39 81.51,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="81.43,-14.89 91.43,-11.39 81.43,-7.89 81.43,-14.89"/>
 </g>
 </g>
 </svg>
@@ -241,55 +241,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -338,7 +338,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/proc/tsat.html b/docs/proc/tsat.html
index e0a1d6b..643195d 100644
--- a/docs/proc/tsat.html
+++ b/docs/proc/tsat.html
@@ -155,7 +155,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-ps~3"></span>
+              <span class="anchor" id="variable-ps~5"></span>
               real(kind=dp),
             </td>
 <td>intent(in)</td>
@@ -170,7 +170,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ts~3"></span>
+              <span class="anchor" id="variable-ts~5"></span>
               real(kind=dp),
             </td>
 <td>intent(out)</td>
@@ -195,34 +195,34 @@ <h3 class="card-title">Called by</h3>
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: proc~~tsat~~CalledByGraph Pages: 1 -->
-<svg id="proctsatCalledByGraph" width="159pt" height="32pt"
- viewBox="0.00 0.00 159.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~tsat~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="proctsatCalledByGraph" width="155pt" height="31pt"
+ viewBox="0.00 0.00 154.52 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~tsat~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>proc~~tsat~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 155,-28 155,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 150.52,-26.77 150.52,4 -4,4"/>
 <!-- proc~tsat -->
 <g id="proc~~tsat~~CalledByGraph_node1" class="node">
 <title>proc~tsat</title>
-<polygon fill="none" stroke="black" points="151,-24 97,-24 97,0 151,0 151,-24"/>
-<text text-anchor="middle" x="124" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">Tsat</text>
+<polygon fill="none" stroke="black" points="146.52,-22.77 92.52,-22.77 92.52,0 146.52,0 146.52,-22.77"/>
+<text text-anchor="middle" x="119.52" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">Tsat</text>
 </g>
 <!-- proc~capi_tsat -->
 <g id="proc~~tsat~~CalledByGraph_node2" class="node">
 <title>proc~capi_tsat</title>
 <g id="a_proc~~tsat~~CalledByGraph_node2"><a xlink:href="../proc/capi_tsat.html" xlink:title="capi_Tsat">
-<polygon fill="#d9534f" stroke="#d9534f" points="61,-24 0,-24 0,0 61,0 61,-24"/>
-<text text-anchor="middle" x="30.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_Tsat</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="56.52,-22.77 0,-22.77 0,0 56.52,0 56.52,-22.77"/>
+<text text-anchor="middle" x="28.26" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_Tsat</text>
 </a>
 </g>
 </g>
 <!-- proc~capi_tsat&#45;&gt;proc~tsat -->
 <g id="proc~~tsat~~CalledByGraph_edge1" class="edge">
 <title>proc~capi_tsat&#45;&gt;proc~tsat</title>
-<path fill="none" stroke="#ff0000" d="M61.21,-12C69.37,-12 78.31,-12 86.79,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="86.83,-15.5 96.83,-12 86.83,-8.5 86.83,-15.5"/>
+<path fill="none" stroke="#ff0000" d="M57.01,-11.39C64.58,-11.39 72.9,-11.39 80.91,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="80.79,-14.89 90.79,-11.39 80.79,-7.89 80.79,-14.89"/>
 </g>
 </g>
 </svg>
@@ -241,55 +241,55 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
 <svg width="641pt" height="28pt"
- viewBox="0.00 0.00 641.00 27.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1.16 1.16) rotate(0) translate(4 28)">
+ viewBox="0.00 0.00 641.00 28.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(0.923937 0.923937) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 741.5,-28 741.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 689.77,-26.77 689.77,4 -4,4"/>
 <!-- Subroutine -->
 <g id="node1" class="node">
 <title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="63.27,-22.77 0,-22.77 0,0 63.27,0 63.27,-22.77"/>
+<text text-anchor="middle" x="31.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
 </g>
 <!-- Function -->
 <g id="node2" class="node">
 <title>Function</title>
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-24 88,-24 88,0 146,0 146,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="135.63,-22.77 81.64,-22.77 81.64,0 135.63,0 135.63,-22.77"/>
+<text text-anchor="middle" x="108.64" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
 </g>
 <!-- Interface -->
 <g id="node3" class="node">
 <title>Interface</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="225.5,-24 164.5,-24 164.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="207.63,-22.77 153.63,-22.77 153.63,0 207.63,0 207.63,-22.77"/>
+<text text-anchor="middle" x="180.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
 </g>
 <!-- Type Bound Procedure -->
 <g id="node4" class="node">
 <title>Type Bound Procedure</title>
-<polygon fill="#a7506f" stroke="#a7506f" points="374,-24 244,-24 244,0 374,0 374,-24"/>
-<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="347.14,-22.77 226.12,-22.77 226.12,0 347.14,0 347.14,-22.77"/>
+<text text-anchor="middle" x="286.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Type Bound Procedure</text>
 </g>
 <!-- Unknown Procedure Type -->
 <g id="node5" class="node">
 <title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="537.5,-24 392.5,-24 392.5,0 537.5,0 537.5,-24"/>
-<text text-anchor="middle" x="465" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+<polygon fill="#777777" stroke="#777777" points="499.89,-22.77 365.38,-22.77 365.38,0 499.89,0 499.89,-22.77"/>
+<text text-anchor="middle" x="432.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
 </g>
 <!-- Program -->
 <g id="node6" class="node">
 <title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-24 556,-24 556,0 614,0 614,-24"/>
-<text text-anchor="middle" x="585" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="571.63,-22.77 517.63,-22.77 517.63,0 571.63,0 571.63,-22.77"/>
+<text text-anchor="middle" x="544.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node7" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="737.5,-24 632.5,-24 632.5,0 737.5,0 737.5,-24"/>
-<text text-anchor="middle" x="685" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="685.77,-22.77 589.5,-22.77 589.5,0 685.77,0 685.77,-22.77"/>
+<text text-anchor="middle" x="637.63" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -338,7 +338,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/search.html b/docs/search.html
index 4abdeb2..e8179e8 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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/capi.f90.html b/docs/sourcefile/capi.f90.html
index 9f8377f..2e5f679 100644
--- a/docs/sourcefile/capi.f90.html
+++ b/docs/sourcefile/capi.f90.html
@@ -157,115 +157,115 @@ <h3 class="card-title">This file depends on</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~capi.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilecapif90EfferentGraph" width="471pt" height="116pt"
- viewBox="0.00 0.00 471.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~capi.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<svg id="sourcefilecapif90EfferentGraph" width="441pt" height="113pt"
+ viewBox="0.00 0.00 440.81 112.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~capi.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 108.77)">
 <title>sourcefile~~capi.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 467,-112 467,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-108.77 436.81,-108.77 436.81,4 -4,4"/>
 <!-- sourcefile~capi.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~capi.f90</title>
-<polygon fill="none" stroke="black" points="463,-66 408,-66 408,-42 463,-42 463,-66"/>
-<text text-anchor="middle" x="435.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi.f90</text>
+<polygon fill="none" stroke="black" points="432.81,-63.77 378.81,-63.77 378.81,-41 432.81,-41 432.81,-63.77"/>
+<text text-anchor="middle" x="405.81" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi.f90</text>
 </g>
 <!-- sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~capi_g704.f90</title>
 <g id="a_sourcefile~~capi.f90~~EfferentGraph_node2"><a xlink:href="../sourcefile/capi_g704.f90.html" xlink:title="capi_g704.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-107 278,-107 278,-83 366,-83 366,-107"/>
-<text text-anchor="middle" x="322" y="-92.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_g704.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="337.56,-103.77 258.54,-103.77 258.54,-81 337.56,-81 337.56,-103.77"/>
+<text text-anchor="middle" x="298.05" y="-88.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_g704.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_g704.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M407.79,-63.82C395.13,-68.48 379.68,-74.16 365.46,-79.39"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="364.04,-76.18 355.86,-82.92 366.46,-82.75 364.04,-76.18"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M378.4,-62.38C367.13,-66.64 353.71,-71.71 341.14,-76.47"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="339.92,-73.19 331.8,-80 342.4,-79.73 339.92,-73.19"/>
 </g>
 <!-- sourcefile~capi_r283.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~capi_r283.f90</title>
 <g id="a_sourcefile~~capi.f90~~EfferentGraph_node3"><a xlink:href="../sourcefile/capi_r283.f90.html" xlink:title="capi_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="225,-66 140,-66 140,-42 225,-42 225,-66"/>
-<text text-anchor="middle" x="182.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="207.16,-63.77 130.4,-63.77 130.4,-41 207.16,-41 207.16,-63.77"/>
+<text text-anchor="middle" x="168.78" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_r283.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M407.64,-54C366.62,-54 287.61,-54 235.21,-54"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="235.11,-50.5 225.11,-54 235.11,-57.5 235.11,-50.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M378.76,-52.39C340.25,-52.39 267.46,-52.39 218.78,-52.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="219.08,-48.89 209.08,-52.39 219.08,-55.89 219.08,-48.89"/>
 </g>
 <!-- sourcefile~capi_version.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_node4" class="node">
 <title>sourcefile~capi_version.f90</title>
 <g id="a_sourcefile~~capi.f90~~EfferentGraph_node4"><a xlink:href="../sourcefile/capi_version.f90.html" xlink:title="capi_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-25 272,-25 272,-1 372,-1 372,-25"/>
-<text text-anchor="middle" x="322" y="-10.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_version.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="342.81,-23.77 253.29,-23.77 253.29,-1 342.81,-1 342.81,-23.77"/>
+<text text-anchor="middle" x="298.05" y="-8.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_version.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_version.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_version.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M407.79,-44.18C395.13,-39.52 379.68,-33.84 365.46,-28.61"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="366.46,-25.25 355.86,-25.08 364.04,-31.82 366.46,-25.25"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M378.4,-42.39C367.13,-38.13 353.71,-33.06 341.14,-28.3"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="342.4,-25.04 331.8,-24.77 339.92,-31.58 342.4,-25.04"/>
 </g>
 <!-- sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~iapws_g704.f90</title>
 <g id="a_sourcefile~~capi.f90~~EfferentGraph_node5"><a xlink:href="../sourcefile/iapws_g704.f90.html" xlink:title="iapws_g704.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="230,-108 135,-108 135,-84 230,-84 230,-108"/>
-<text text-anchor="middle" x="182.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_g704.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="212.04,-104.77 125.52,-104.77 125.52,-82 212.04,-82 212.04,-104.77"/>
+<text text-anchor="middle" x="168.78" y="-89.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_g704.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_g704.f90&#45;&gt;sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_edge4" class="edge">
 <title>sourcefile~capi_g704.f90&#45;&gt;sourcefile~iapws_g704.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M277.87,-95.31C266.06,-95.4 253.07,-95.49 240.6,-95.58"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="240.27,-92.09 230.29,-95.66 240.32,-99.09 240.27,-92.09"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M258.17,-92.69C247.32,-92.78 235.32,-92.87 223.76,-92.96"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="223.89,-89.46 213.92,-93.04 223.95,-96.46 223.89,-89.46"/>
 </g>
 <!-- sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~iapws_r283.f90</title>
 <g id="a_sourcefile~~capi.f90~~EfferentGraph_node6"><a xlink:href="../sourcefile/iapws_r283.f90.html" xlink:title="iapws_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="93,-87 0,-87 0,-63 93,-63 93,-87"/>
-<text text-anchor="middle" x="46.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="84.27,-83.77 0,-83.77 0,-61 84.27,-61 84.27,-83.77"/>
+<text text-anchor="middle" x="42.13" y="-68.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_r283.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~capi_r283.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M139.84,-60.53C128.31,-62.34 115.61,-64.33 103.42,-66.24"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="102.67,-62.81 93.33,-67.82 103.76,-69.73 102.67,-62.81"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M130.04,-58.44C119.3,-60.16 107.39,-62.08 95.92,-63.92"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="95.47,-60.44 86.15,-65.48 96.58,-67.35 95.47,-60.44"/>
 </g>
 <!-- sourcefile~iapws_version.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~iapws_version.f90</title>
 <g id="a_sourcefile~~capi.f90~~EfferentGraph_node7"><a xlink:href="../sourcefile/iapws_version.f90.html" xlink:title="iapws_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="236,-24 129,-24 129,0 236,0 236,-24"/>
-<text text-anchor="middle" x="182.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_version.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="217.29,-22.77 120.27,-22.77 120.27,0 217.29,0 217.29,-22.77"/>
+<text text-anchor="middle" x="168.78" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_version.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_version.f90&#45;&gt;sourcefile~iapws_version.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_edge6" class="edge">
 <title>sourcefile~capi_version.f90&#45;&gt;sourcefile~iapws_version.f90</title>
-<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M271.75,-12.64C263.53,-12.58 254.91,-12.52 246.4,-12.46"/>
-<polygon fill="#0000ff" stroke="#0000ff" points="246.15,-8.96 236.13,-12.38 246.1,-15.96 246.15,-8.96"/>
+<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M252.89,-12.04C245.18,-11.98 237.05,-11.91 229.01,-11.85"/>
+<polygon fill="#0000ff" stroke="#0000ff" points="229.31,-8.35 219.28,-11.77 229.25,-15.35 229.31,-8.35"/>
 </g>
 <!-- sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~capi.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M134.63,-88.66C124.45,-87.06 113.59,-85.36 103.11,-83.71"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="103.63,-80.25 93.21,-82.16 102.55,-87.17 103.63,-80.25"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M125.23,-86.22C115.8,-84.63 105.7,-82.93 95.92,-81.28"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="96.58,-77.84 86.14,-79.63 95.42,-84.74 96.58,-77.84"/>
 </g>
 </g>
 </svg>
@@ -284,25 +284,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -327,34 +327,34 @@ <h3 class="card-title">Files dependent on this one</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~capi.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefilecapif90AfferentGraph" width="162pt" height="32pt"
- viewBox="0.00 0.00 162.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~capi.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="sourcefilecapif90AfferentGraph" width="155pt" height="31pt"
+ viewBox="0.00 0.00 154.52 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~capi.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>sourcefile~~capi.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 158,-28 158,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 150.52,-26.77 150.52,4 -4,4"/>
 <!-- sourcefile~capi.f90 -->
 <g id="sourcefile~~capi.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~capi.f90</title>
-<polygon fill="none" stroke="black" points="55,-24 0,-24 0,0 55,0 55,-24"/>
-<text text-anchor="middle" x="27.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi.f90</text>
+<polygon fill="none" stroke="black" points="54,-22.77 0,-22.77 0,0 54,0 54,-22.77"/>
+<text text-anchor="middle" x="27" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi.f90</text>
 </g>
 <!-- sourcefile~iapws.f90 -->
 <g id="sourcefile~~capi.f90~~AfferentGraph_node2" class="node">
 <title>sourcefile~iapws.f90</title>
 <g id="a_sourcefile~~capi.f90~~AfferentGraph_node2"><a xlink:href="../sourcefile/iapws.f90.html" xlink:title="iapws.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="154,-24 91,-24 91,0 154,0 154,-24"/>
-<text text-anchor="middle" x="122.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="146.52,-22.77 90,-22.77 90,0 146.52,0 146.52,-22.77"/>
+<text text-anchor="middle" x="118.26" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="sourcefile~~capi.f90~~AfferentGraph_edge1" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M90.79,-12C82.59,-12 73.65,-12 65.16,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="65.12,-8.5 55.12,-12 65.12,-15.5 65.12,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M89.51,-11.39C81.94,-11.39 73.62,-11.39 65.61,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="65.73,-7.89 55.73,-11.39 65.73,-14.89 65.73,-7.89"/>
 </g>
 </g>
 </svg>
@@ -373,25 +373,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -438,7 +438,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/capi_g704.f90.html b/docs/sourcefile/capi_g704.f90.html
index fb21462..5ff42f1 100644
--- a/docs/sourcefile/capi_g704.f90.html
+++ b/docs/sourcefile/capi_g704.f90.html
@@ -157,49 +157,49 @@ <h3 class="card-title">This file depends on</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~capi_g704.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilecapi_g704f90EfferentGraph" width="356pt" height="32pt"
- viewBox="0.00 0.00 356.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~capi_g704.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="sourcefilecapi_g704f90EfferentGraph" width="330pt" height="31pt"
+ viewBox="0.00 0.00 329.81 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~capi_g704.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>sourcefile~~capi_g704.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 352,-28 352,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 325.81,-26.77 325.81,4 -4,4"/>
 <!-- sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~capi_g704.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~capi_g704.f90</title>
-<polygon fill="none" stroke="black" points="348,-24 260,-24 260,0 348,0 348,-24"/>
-<text text-anchor="middle" x="304" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_g704.f90</text>
+<polygon fill="none" stroke="black" points="321.81,-22.77 242.79,-22.77 242.79,0 321.81,0 321.81,-22.77"/>
+<text text-anchor="middle" x="282.3" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_g704.f90</text>
 </g>
 <!-- sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~capi_g704.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~iapws_g704.f90</title>
 <g id="a_sourcefile~~capi_g704.f90~~EfferentGraph_node2"><a xlink:href="../sourcefile/iapws_g704.f90.html" xlink:title="iapws_g704.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="224,-24 129,-24 129,0 224,0 224,-24"/>
-<text text-anchor="middle" x="176.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_g704.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="206.79,-22.77 120.27,-22.77 120.27,0 206.79,0 206.79,-22.77"/>
+<text text-anchor="middle" x="163.53" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_g704.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_g704.f90&#45;&gt;sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~capi_g704.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~capi_g704.f90&#45;&gt;sourcefile~iapws_g704.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M259.81,-12C251.64,-12 242.99,-12 234.47,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="234.2,-8.5 224.2,-12 234.2,-15.5 234.2,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M242.42,-11.39C234.75,-11.39 226.58,-11.39 218.52,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="218.78,-7.89 208.78,-11.39 218.78,-14.89 218.78,-7.89"/>
 </g>
 <!-- sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~capi_g704.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~iapws_r283.f90</title>
 <g id="a_sourcefile~~capi_g704.f90~~EfferentGraph_node3"><a xlink:href="../sourcefile/iapws_r283.f90.html" xlink:title="iapws_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="93,-24 0,-24 0,0 93,0 93,-24"/>
-<text text-anchor="middle" x="46.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="84.27,-22.77 0,-22.77 0,0 84.27,0 84.27,-22.77"/>
+<text text-anchor="middle" x="42.13" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~capi_g704.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M128.93,-12C120.69,-12 112.05,-12 103.58,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="103.4,-8.5 93.4,-12 103.4,-15.5 103.4,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M120.1,-11.39C112.26,-11.39 103.99,-11.39 95.9,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="96.14,-7.89 86.14,-11.39 96.14,-14.89 96.14,-7.89"/>
 </g>
 </g>
 </svg>
@@ -218,25 +218,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -261,49 +261,49 @@ <h3 class="card-title">Files dependent on this one</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~capi_g704.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefilecapi_g704f90AfferentGraph" width="286pt" height="32pt"
- viewBox="0.00 0.00 286.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~capi_g704.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="sourcefilecapi_g704f90AfferentGraph" width="270pt" height="31pt"
+ viewBox="0.00 0.00 269.54 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~capi_g704.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>sourcefile~~capi_g704.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 282,-28 282,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 265.54,-26.77 265.54,4 -4,4"/>
 <!-- sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~capi_g704.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~capi_g704.f90</title>
-<polygon fill="none" stroke="black" points="88,-24 0,-24 0,0 88,0 88,-24"/>
-<text text-anchor="middle" x="44" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_g704.f90</text>
+<polygon fill="none" stroke="black" points="79.02,-22.77 0,-22.77 0,0 79.02,0 79.02,-22.77"/>
+<text text-anchor="middle" x="39.51" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_g704.f90</text>
 </g>
 <!-- sourcefile~capi.f90 -->
 <g id="sourcefile~~capi_g704.f90~~AfferentGraph_node2" class="node">
 <title>sourcefile~capi.f90</title>
 <g id="a_sourcefile~~capi_g704.f90~~AfferentGraph_node2"><a xlink:href="../sourcefile/capi.f90.html" xlink:title="capi.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="179,-24 124,-24 124,0 179,0 179,-24"/>
-<text text-anchor="middle" x="151.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="169.02,-22.77 115.02,-22.77 115.02,0 169.02,0 169.02,-22.77"/>
+<text text-anchor="middle" x="142.02" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~capi_g704.f90~~AfferentGraph_edge1" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_g704.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M123.88,-12C115.98,-12 107.04,-12 98.09,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="98.03,-8.5 88.03,-12 98.03,-15.5 98.03,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M114.61,-11.39C107.17,-11.39 98.83,-11.39 90.49,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="90.74,-7.89 80.74,-11.39 90.74,-14.89 90.74,-7.89"/>
 </g>
 <!-- sourcefile~iapws.f90 -->
 <g id="sourcefile~~capi_g704.f90~~AfferentGraph_node3" class="node">
 <title>sourcefile~iapws.f90</title>
 <g id="a_sourcefile~~capi_g704.f90~~AfferentGraph_node3"><a xlink:href="../sourcefile/iapws.f90.html" xlink:title="iapws.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="278,-24 215,-24 215,0 278,0 278,-24"/>
-<text text-anchor="middle" x="246.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="261.54,-22.77 205.02,-22.77 205.02,0 261.54,0 261.54,-22.77"/>
+<text text-anchor="middle" x="233.28" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="sourcefile~~capi_g704.f90~~AfferentGraph_edge2" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M214.79,-12C206.59,-12 197.65,-12 189.16,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="189.12,-8.5 179.12,-12 189.12,-15.5 189.12,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M204.53,-11.39C196.96,-11.39 188.64,-11.39 180.63,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="180.75,-7.89 170.75,-11.39 180.75,-14.89 180.75,-7.89"/>
 </g>
 </g>
 </svg>
@@ -322,25 +322,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -537,7 +537,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/capi_r283.f90.html b/docs/sourcefile/capi_r283.f90.html
index 08d3a36..907a979 100644
--- a/docs/sourcefile/capi_r283.f90.html
+++ b/docs/sourcefile/capi_r283.f90.html
@@ -157,34 +157,34 @@ <h3 class="card-title">This file depends on</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~capi_r283.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilecapi_r283f90EfferentGraph" width="222pt" height="32pt"
- viewBox="0.00 0.00 222.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~capi_r283.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="sourcefilecapi_r283f90EfferentGraph" width="205pt" height="31pt"
+ viewBox="0.00 0.00 205.04 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~capi_r283.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>sourcefile~~capi_r283.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 218,-28 218,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 201.04,-26.77 201.04,4 -4,4"/>
 <!-- sourcefile~capi_r283.f90 -->
 <g id="sourcefile~~capi_r283.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~capi_r283.f90</title>
-<polygon fill="none" stroke="black" points="214,-24 129,-24 129,0 214,0 214,-24"/>
-<text text-anchor="middle" x="171.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_r283.f90</text>
+<polygon fill="none" stroke="black" points="197.04,-22.77 120.27,-22.77 120.27,0 197.04,0 197.04,-22.77"/>
+<text text-anchor="middle" x="158.66" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_r283.f90</text>
 </g>
 <!-- sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~capi_r283.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~iapws_r283.f90</title>
 <g id="a_sourcefile~~capi_r283.f90~~EfferentGraph_node2"><a xlink:href="../sourcefile/iapws_r283.f90.html" xlink:title="iapws_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="93,-24 0,-24 0,0 93,0 93,-24"/>
-<text text-anchor="middle" x="46.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="84.27,-22.77 0,-22.77 0,0 84.27,0 84.27,-22.77"/>
+<text text-anchor="middle" x="42.13" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_r283.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~capi_r283.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~capi_r283.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M128.86,-12C120.73,-12 112.09,-12 103.58,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="103.32,-8.5 93.32,-12 103.32,-15.5 103.32,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M119.84,-11.39C112.13,-11.39 103.9,-11.39 95.78,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="95.98,-7.89 85.98,-11.39 95.98,-14.89 95.98,-7.89"/>
 </g>
 </g>
 </svg>
@@ -203,25 +203,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -246,49 +246,49 @@ <h3 class="card-title">Files dependent on this one</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~capi_r283.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefilecapi_r283f90AfferentGraph" width="283pt" height="32pt"
- viewBox="0.00 0.00 283.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~capi_r283.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="sourcefilecapi_r283f90AfferentGraph" width="267pt" height="31pt"
+ viewBox="0.00 0.00 267.29 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~capi_r283.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>sourcefile~~capi_r283.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 279,-28 279,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 263.29,-26.77 263.29,4 -4,4"/>
 <!-- sourcefile~capi_r283.f90 -->
 <g id="sourcefile~~capi_r283.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~capi_r283.f90</title>
-<polygon fill="none" stroke="black" points="85,-24 0,-24 0,0 85,0 85,-24"/>
-<text text-anchor="middle" x="42.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_r283.f90</text>
+<polygon fill="none" stroke="black" points="76.77,-22.77 0,-22.77 0,0 76.77,0 76.77,-22.77"/>
+<text text-anchor="middle" x="38.38" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_r283.f90</text>
 </g>
 <!-- sourcefile~capi.f90 -->
 <g id="sourcefile~~capi_r283.f90~~AfferentGraph_node2" class="node">
 <title>sourcefile~capi.f90</title>
 <g id="a_sourcefile~~capi_r283.f90~~AfferentGraph_node2"><a xlink:href="../sourcefile/capi.f90.html" xlink:title="capi.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="176,-24 121,-24 121,0 176,0 176,-24"/>
-<text text-anchor="middle" x="148.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="166.77,-22.77 112.77,-22.77 112.77,0 166.77,0 166.77,-22.77"/>
+<text text-anchor="middle" x="139.77" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_r283.f90 -->
 <g id="sourcefile~~capi_r283.f90~~AfferentGraph_edge1" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M120.99,-12C113.2,-12 104.4,-12 95.6,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="95.33,-8.5 85.33,-12 95.33,-15.5 95.33,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M112.4,-11.39C105.05,-11.39 96.82,-11.39 88.61,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="88.62,-7.89 78.62,-11.39 88.62,-14.89 88.62,-7.89"/>
 </g>
 <!-- sourcefile~iapws.f90 -->
 <g id="sourcefile~~capi_r283.f90~~AfferentGraph_node3" class="node">
 <title>sourcefile~iapws.f90</title>
 <g id="a_sourcefile~~capi_r283.f90~~AfferentGraph_node3"><a xlink:href="../sourcefile/iapws.f90.html" xlink:title="iapws.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="275,-24 212,-24 212,0 275,0 275,-24"/>
-<text text-anchor="middle" x="243.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="259.29,-22.77 202.77,-22.77 202.77,0 259.29,0 259.29,-22.77"/>
+<text text-anchor="middle" x="231.03" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="sourcefile~~capi_r283.f90~~AfferentGraph_edge2" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M211.79,-12C203.59,-12 194.65,-12 186.16,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="186.12,-8.5 176.12,-12 186.12,-15.5 186.12,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M202.28,-11.39C194.71,-11.39 186.39,-11.39 178.38,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="178.5,-7.89 168.5,-11.39 178.5,-14.89 178.5,-7.89"/>
 </g>
 </g>
 </svg>
@@ -307,25 +307,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -390,7 +390,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/capi_r797.f90.html b/docs/sourcefile/capi_r797.f90.html
index 767f4d8..4c0059c 100644
--- a/docs/sourcefile/capi_r797.f90.html
+++ b/docs/sourcefile/capi_r797.f90.html
@@ -157,49 +157,49 @@ <h3 class="card-title">This file depends on</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~capi_r797.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilecapi_r797f90EfferentGraph" width="351pt" height="32pt"
- viewBox="0.00 0.00 351.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~capi_r797.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="sourcefilecapi_r797f90EfferentGraph" width="325pt" height="31pt"
+ viewBox="0.00 0.00 325.31 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~capi_r797.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>sourcefile~~capi_r797.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 347,-28 347,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 321.31,-26.77 321.31,4 -4,4"/>
 <!-- sourcefile~capi_r797.f90 -->
 <g id="sourcefile~~capi_r797.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~capi_r797.f90</title>
-<polygon fill="none" stroke="black" points="343,-24 258,-24 258,0 343,0 343,-24"/>
-<text text-anchor="middle" x="300.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_r797.f90</text>
+<polygon fill="none" stroke="black" points="317.31,-22.77 240.54,-22.77 240.54,0 317.31,0 317.31,-22.77"/>
+<text text-anchor="middle" x="278.93" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_r797.f90</text>
 </g>
 <!-- sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~capi_r797.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~iapws_r797.f90</title>
 <g id="a_sourcefile~~capi_r797.f90~~EfferentGraph_node2"><a xlink:href="../sourcefile/iapws_r797.f90.html" xlink:title="iapws_r797.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222,-24 129,-24 129,0 222,0 222,-24"/>
-<text text-anchor="middle" x="175.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r797.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="204.54,-22.77 120.27,-22.77 120.27,0 204.54,0 204.54,-22.77"/>
+<text text-anchor="middle" x="162.41" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r797.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_r797.f90&#45;&gt;sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~capi_r797.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~capi_r797.f90&#45;&gt;sourcefile~iapws_r797.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M257.86,-12C249.73,-12 241.09,-12 232.58,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="232.32,-8.5 222.32,-12 232.32,-15.5 232.32,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M240.11,-11.39C232.4,-11.39 224.17,-11.39 216.05,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="216.25,-7.89 206.25,-11.39 216.25,-14.89 216.25,-7.89"/>
 </g>
 <!-- sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~capi_r797.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~iapws_r283.f90</title>
 <g id="a_sourcefile~~capi_r797.f90~~EfferentGraph_node3"><a xlink:href="../sourcefile/iapws_r283.f90.html" xlink:title="iapws_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="93,-24 0,-24 0,0 93,0 93,-24"/>
-<text text-anchor="middle" x="46.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="84.27,-22.77 0,-22.77 0,0 84.27,0 84.27,-22.77"/>
+<text text-anchor="middle" x="42.13" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws_r797.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~capi_r797.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~iapws_r797.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M128.65,-12C120.47,-12 111.86,-12 103.43,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="103.28,-8.5 93.28,-12 103.28,-15.5 103.28,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M120.04,-11.39C112.25,-11.39 104.01,-11.39 95.93,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="96.19,-7.89 86.19,-11.39 96.19,-14.89 96.19,-7.89"/>
 </g>
 </g>
 </svg>
@@ -218,25 +218,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -311,7 +311,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/capi_version.f90.html b/docs/sourcefile/capi_version.f90.html
index 1943018..3a33087 100644
--- a/docs/sourcefile/capi_version.f90.html
+++ b/docs/sourcefile/capi_version.f90.html
@@ -157,34 +157,34 @@ <h3 class="card-title">This file depends on</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~capi_version.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilecapi_versionf90EfferentGraph" width="251pt" height="32pt"
- viewBox="0.00 0.00 251.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~capi_version.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="sourcefilecapi_versionf90EfferentGraph" width="231pt" height="31pt"
+ viewBox="0.00 0.00 230.54 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~capi_version.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>sourcefile~~capi_version.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 247,-28 247,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 226.54,-26.77 226.54,4 -4,4"/>
 <!-- sourcefile~capi_version.f90 -->
 <g id="sourcefile~~capi_version.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~capi_version.f90</title>
-<polygon fill="none" stroke="black" points="243,-24 143,-24 143,0 243,0 243,-24"/>
-<text text-anchor="middle" x="193" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_version.f90</text>
+<polygon fill="none" stroke="black" points="222.54,-22.77 133.02,-22.77 133.02,0 222.54,0 222.54,-22.77"/>
+<text text-anchor="middle" x="177.78" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_version.f90</text>
 </g>
 <!-- sourcefile~iapws_version.f90 -->
 <g id="sourcefile~~capi_version.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~iapws_version.f90</title>
 <g id="a_sourcefile~~capi_version.f90~~EfferentGraph_node2"><a xlink:href="../sourcefile/iapws_version.f90.html" xlink:title="iapws_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="107,-24 0,-24 0,0 107,0 107,-24"/>
-<text text-anchor="middle" x="53.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_version.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="97.02,-22.77 0,-22.77 0,0 97.02,0 97.02,-22.77"/>
+<text text-anchor="middle" x="48.51" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_version.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_version.f90&#45;&gt;sourcefile~iapws_version.f90 -->
 <g id="sourcefile~~capi_version.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~capi_version.f90&#45;&gt;sourcefile~iapws_version.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M142.75,-12C134.53,-12 125.91,-12 117.4,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="117.13,-8.5 107.13,-12 117.13,-15.5 117.13,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M132.62,-11.39C124.91,-11.39 116.78,-11.39 108.74,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="109.01,-7.89 99.01,-11.39 109.01,-14.89 109.01,-7.89"/>
 </g>
 </g>
 </svg>
@@ -203,25 +203,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -246,49 +246,49 @@ <h3 class="card-title">Files dependent on this one</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~capi_version.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefilecapi_versionf90AfferentGraph" width="298pt" height="32pt"
- viewBox="0.00 0.00 298.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~capi_version.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="sourcefilecapi_versionf90AfferentGraph" width="280pt" height="31pt"
+ viewBox="0.00 0.00 280.04 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~capi_version.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>sourcefile~~capi_version.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 294,-28 294,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 276.04,-26.77 276.04,4 -4,4"/>
 <!-- sourcefile~capi_version.f90 -->
 <g id="sourcefile~~capi_version.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~capi_version.f90</title>
-<polygon fill="none" stroke="black" points="100,-24 0,-24 0,0 100,0 100,-24"/>
-<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">capi_version.f90</text>
+<polygon fill="none" stroke="black" points="89.52,-22.77 0,-22.77 0,0 89.52,0 89.52,-22.77"/>
+<text text-anchor="middle" x="44.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">capi_version.f90</text>
 </g>
 <!-- sourcefile~capi.f90 -->
 <g id="sourcefile~~capi_version.f90~~AfferentGraph_node2" class="node">
 <title>sourcefile~capi.f90</title>
 <g id="a_sourcefile~~capi_version.f90~~AfferentGraph_node2"><a xlink:href="../sourcefile/capi.f90.html" xlink:title="capi.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="191,-24 136,-24 136,0 191,0 191,-24"/>
-<text text-anchor="middle" x="163.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="179.52,-22.77 125.52,-22.77 125.52,0 179.52,0 179.52,-22.77"/>
+<text text-anchor="middle" x="152.52" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_version.f90 -->
 <g id="sourcefile~~capi_version.f90~~AfferentGraph_edge1" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_version.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M135.79,-12C128.02,-12 119.21,-12 110.27,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="110.18,-8.5 100.18,-12 110.18,-15.5 110.18,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M125.11,-11.39C117.79,-11.39 109.56,-11.39 101.24,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="101.44,-7.89 91.44,-11.39 101.44,-14.89 101.44,-7.89"/>
 </g>
 <!-- sourcefile~iapws.f90 -->
 <g id="sourcefile~~capi_version.f90~~AfferentGraph_node3" class="node">
 <title>sourcefile~iapws.f90</title>
 <g id="a_sourcefile~~capi_version.f90~~AfferentGraph_node3"><a xlink:href="../sourcefile/iapws.f90.html" xlink:title="iapws.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="290,-24 227,-24 227,0 290,0 290,-24"/>
-<text text-anchor="middle" x="258.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="272.04,-22.77 215.52,-22.77 215.52,0 272.04,0 272.04,-22.77"/>
+<text text-anchor="middle" x="243.78" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="sourcefile~~capi_version.f90~~AfferentGraph_edge2" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M226.79,-12C218.59,-12 209.65,-12 201.16,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="201.12,-8.5 191.12,-12 201.12,-15.5 201.12,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M215.03,-11.39C207.46,-11.39 199.14,-11.39 191.13,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="191.25,-7.89 181.25,-11.39 191.25,-14.89 191.25,-7.89"/>
 </g>
 </g>
 </svg>
@@ -307,25 +307,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -399,7 +399,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/iapws.f90.html b/docs/sourcefile/iapws.f90.html
index 9572e4b..5ab0776 100644
--- a/docs/sourcefile/iapws.f90.html
+++ b/docs/sourcefile/iapws.f90.html
@@ -157,170 +157,170 @@ <h3 class="card-title">This file depends on</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~iapws.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileiapwsf90EfferentGraph" width="608pt" height="224pt"
- viewBox="0.00 0.00 608.00 224.45" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~iapws.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 220.45)">
+<svg id="sourcefileiapwsf90EfferentGraph" width="564pt" height="219pt"
+ viewBox="0.00 0.00 563.60 218.80" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~iapws.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 214.8)">
 <title>sourcefile~~iapws.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-220.45 604,-220.45 604,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-214.8 559.6,-214.8 559.6,4 -4,4"/>
 <!-- sourcefile~iapws.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~iapws.f90</title>
-<polygon fill="none" stroke="black" points="600,-166 537,-166 537,-142 600,-142 600,-166"/>
-<text text-anchor="middle" x="568.5" y="-151.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws.f90</text>
+<polygon fill="none" stroke="black" points="555.6,-160.77 499.08,-160.77 499.08,-138 555.6,-138 555.6,-160.77"/>
+<text text-anchor="middle" x="527.34" y="-145.03" font-family="Helvetica,sans-Serif" font-size="10.50">iapws.f90</text>
 </g>
 <!-- sourcefile~capi.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~capi.f90</title>
 <g id="a_sourcefile~~iapws.f90~~EfferentGraph_node2"><a xlink:href="../sourcefile/capi.f90.html" xlink:title="capi.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="482,-145 427,-145 427,-121 482,-121 482,-145"/>
-<text text-anchor="middle" x="454.5" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="447.94,-140.77 393.94,-140.77 393.94,-118 447.94,-118 447.94,-140.77"/>
+<text text-anchor="middle" x="420.94" y="-125.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M536.9,-148.26C523.14,-145.68 506.78,-142.62 492.36,-139.91"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="492.73,-136.42 482.26,-138.02 491.44,-143.3 492.73,-136.42"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M498.64,-144.08C486.58,-141.77 472.28,-139.03 459.3,-136.54"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="460.3,-133.17 449.82,-134.73 458.99,-140.04 460.3,-133.17"/>
 </g>
 <!-- sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~iapws_g704.f90</title>
 <g id="a_sourcefile~~iapws.f90~~EfferentGraph_node3"><a xlink:href="../sourcefile/iapws_g704.f90.html" xlink:title="iapws_g704.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="230,-24 135,-24 135,0 230,0 230,-24"/>
-<text text-anchor="middle" x="182.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_g704.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="212.04,-22.77 125.52,-22.77 125.52,0 212.04,0 212.04,-22.77"/>
+<text text-anchor="middle" x="168.78" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_g704.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_g704.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M550.94,-141.91C537.88,-132.77 518.92,-120.42 501,-112 425.69,-76.62 405.97,-60.21 323,-54"/>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M321,-54C288.8,-47.23 253.31,-36.29 226.45,-27.28"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="227.56,-23.96 216.97,-24.06 225.31,-30.59 227.56,-23.96"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M297.05,-52.39C280.3,-51.07 241.82,-38.13 211.52,-27.14"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="212.8,-23.88 202.21,-23.73 210.39,-30.46 212.8,-23.88"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M509.39,-137.55C472.94,-113.16 383.52,-59.04 299.05,-52.39"/>
 </g>
 <!-- sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_node4" class="node">
 <title>sourcefile~iapws_r283.f90</title>
 <g id="a_sourcefile~~iapws.f90~~EfferentGraph_node4"><a xlink:href="../sourcefile/iapws_r283.f90.html" xlink:title="iapws_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="93,-187 0,-187 0,-163 93,-163 93,-187"/>
-<text text-anchor="middle" x="46.5" y="-172.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="84.27,-181.77 0,-181.77 0,-159 84.27,-159 84.27,-181.77"/>
+<text text-anchor="middle" x="42.13" y="-166.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M552.69,-166.18C539.85,-176.01 520.35,-189.27 501,-196 425.86,-222.14 402.5,-211.89 323,-215"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M512.29,-161.24C500.1,-170.81 481.55,-183.74 463.08,-190.38 394.02,-215.22 372.38,-206.44 299.05,-209.38"/>
 </g>
 <!-- sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~iapws_r797.f90</title>
 <g id="a_sourcefile~~iapws.f90~~EfferentGraph_node5"><a xlink:href="../sourcefile/iapws_r797.f90.html" xlink:title="iapws_r797.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501,-187 408,-187 408,-163 501,-163 501,-187"/>
-<text text-anchor="middle" x="454.5" y="-172.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r797.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="463.08,-181.77 378.81,-181.77 378.81,-159 463.08,-159 463.08,-181.77"/>
+<text text-anchor="middle" x="420.94" y="-166.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r797.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge4" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_r797.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M536.9,-159.74C528.9,-161.24 520.02,-162.9 511.15,-164.57"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="510.38,-161.15 501.2,-166.43 511.67,-168.03 510.38,-161.15"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M498.64,-154.96C491.25,-156.44 483.01,-158.1 474.75,-159.76"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="474.15,-156.31 465.03,-161.72 475.53,-163.18 474.15,-156.31"/>
 </g>
 <!-- sourcefile~iapws_version.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~iapws_version.f90</title>
 <g id="a_sourcefile~~iapws.f90~~EfferentGraph_node6"><a xlink:href="../sourcefile/iapws_version.f90.html" xlink:title="iapws_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="236,-66 129,-66 129,-42 236,-42 236,-66"/>
-<text text-anchor="middle" x="182.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_version.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="217.29,-63.77 120.27,-63.77 120.27,-41 217.29,-41 217.29,-63.77"/>
+<text text-anchor="middle" x="168.78" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_version.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_version.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_version.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M321,-54C296.63,-52.18 269.77,-51.81 246.31,-52.03"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="246.08,-48.53 236.13,-52.16 246.17,-55.53 246.08,-48.53"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M297.05,-52.39C274.83,-50.63 250.36,-50.26 228.87,-50.46"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="229.06,-46.95 219.11,-50.59 229.15,-53.95 229.06,-46.95"/>
 </g>
 <!-- sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~capi_g704.f90</title>
 <g id="a_sourcefile~~iapws.f90~~EfferentGraph_node7"><a xlink:href="../sourcefile/capi_g704.f90.html" xlink:title="capi_g704.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-106 278,-106 278,-82 366,-82 366,-106"/>
-<text text-anchor="middle" x="322" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_g704.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="337.56,-102.77 258.54,-102.77 258.54,-80 337.56,-80 337.56,-102.77"/>
+<text text-anchor="middle" x="298.05" y="-87.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_g704.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge6" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_g704.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M426.78,-125.01C411.29,-120.39 391.29,-114.41 372.99,-108.94"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="373.91,-105.56 363.33,-106.05 371.9,-112.27 373.91,-105.56"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M393.71,-121.14C380.17,-116.88 363.21,-111.55 347.41,-106.58"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="348.73,-103.33 338.15,-103.67 346.64,-110.01 348.73,-103.33"/>
 </g>
 <!-- sourcefile~capi_r283.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~capi_r283.f90</title>
 <g id="a_sourcefile~~iapws.f90~~EfferentGraph_node8"><a xlink:href="../sourcefile/capi_r283.f90.html" xlink:title="capi_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="225,-187 140,-187 140,-163 225,-163 225,-187"/>
-<text text-anchor="middle" x="182.5" y="-172.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="207.16,-181.77 130.4,-181.77 130.4,-159 207.16,-159 207.16,-181.77"/>
+<text text-anchor="middle" x="168.78" y="-166.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_r283.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M426.65,-142.31C410.91,-147.42 390.54,-153.42 372,-157 326.27,-165.83 273.42,-170.4 235.34,-172.72"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="234.79,-169.25 225.01,-173.32 235.19,-176.24 234.79,-169.25"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M393.48,-138.61C378.73,-143.41 359.94,-148.97 342.81,-152.38 301.43,-160.63 253.68,-165.24 218.84,-167.72"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="218.8,-164.22 209.06,-168.38 219.27,-171.2 218.8,-164.22"/>
 </g>
 <!-- sourcefile~capi_version.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~capi_version.f90</title>
 <g id="a_sourcefile~~iapws.f90~~EfferentGraph_node9"><a xlink:href="../sourcefile/capi_version.f90.html" xlink:title="capi_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-148 272,-148 272,-124 372,-124 372,-148"/>
-<text text-anchor="middle" x="322" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_version.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="342.81,-143.77 253.29,-143.77 253.29,-121 342.81,-121 342.81,-143.77"/>
+<text text-anchor="middle" x="298.05" y="-128.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_version.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_version.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_version.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M426.78,-133.61C413.87,-133.91 397.83,-134.28 382.25,-134.64"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="382.03,-131.14 372.11,-134.87 382.19,-138.14 382.03,-131.14"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M393.71,-130.04C382.21,-130.32 368.24,-130.67 354.61,-131.01"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="354.72,-127.5 344.81,-131.25 354.9,-134.5 354.72,-127.5"/>
 </g>
 <!-- sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M142.5,-24.1C137.65,-26.58 133,-29.52 129,-33 90.61,-66.35 66.07,-122.44 54.78,-153.19"/>
-<polygon fill="#cbff00" stroke="#cbff00" points="51.36,-152.34 51.33,-162.94 57.96,-154.68 51.36,-152.34"/>
+<path fill="none" stroke="#cbff00" stroke-dasharray="5,2" d="M133.91,-23.06C129.01,-25.65 124.27,-28.74 120.27,-32.39 84.44,-65.01 61.34,-118.28 50.46,-148.19"/>
+<polygon fill="#cbff00" stroke="#cbff00" points="47.26,-146.75 47.27,-157.34 53.86,-149.05 47.26,-146.75"/>
 </g>
 <!-- sourcefile~iapws_r797.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge10" class="edge">
 <title>sourcefile~iapws_r797.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M426.69,-187.07C400.78,-197.8 360.1,-212.22 323,-215"/>
-<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M321,-215C243.52,-220.81 154.63,-203.27 99.77,-189.59"/>
-<polygon fill="#0066ff" stroke="#0066ff" points="100.48,-186.16 89.93,-187.09 98.76,-192.95 100.48,-186.16"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M395.18,-182.15C371.22,-192.61 333.57,-206.66 299.05,-209.38"/>
+<path fill="none" stroke="#0066ff" stroke-dasharray="5,2" d="M297.05,-209.38C225.95,-214.99 144.61,-198.38 93.55,-185.11"/>
+<polygon fill="#0066ff" stroke="#0066ff" points="94.53,-181.75 83.97,-182.56 92.73,-188.52 94.53,-181.75"/>
 </g>
 <!-- sourcefile~capi_g704.f90&#45;&gt;sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~capi_g704.f90&#45;&gt;sourcefile~iapws_g704.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M295,-81.95C287.32,-77.94 279.08,-73.16 272,-68 253.96,-54.86 254.72,-45.15 236,-33 233.57,-31.42 231,-29.93 228.36,-28.52"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="229.71,-25.28 219.18,-24.07 226.65,-31.58 229.71,-25.28"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M274.14,-79.65C267.23,-75.76 259.76,-71.18 253.29,-66.39 235.61,-53.28 235.62,-44.57 217.29,-32.39 215.22,-31.01 213.03,-29.68 210.8,-28.41"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="212.59,-25.4 202.1,-23.93 209.38,-31.62 212.59,-25.4"/>
 </g>
 <!-- sourcefile~capi_r283.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge12" class="edge">
 <title>sourcefile~capi_r283.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M139.84,-175C128.31,-175 115.61,-175 103.42,-175"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="103.33,-171.5 93.33,-175 103.33,-178.5 103.33,-171.5"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M130.04,-170.38C119.3,-170.38 107.39,-170.38 95.92,-170.38"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="96.17,-166.89 86.17,-170.39 96.17,-173.89 96.17,-166.89"/>
 </g>
 <!-- sourcefile~capi_version.f90&#45;&gt;sourcefile~iapws_version.f90 -->
 <g id="sourcefile~~iapws.f90~~EfferentGraph_edge13" class="edge">
 <title>sourcefile~capi_version.f90&#45;&gt;sourcefile~iapws_version.f90</title>
-<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M290.23,-123.92C284.08,-121.2 277.75,-118.17 272,-115 249.04,-102.33 224.63,-85.2 207.27,-72.31"/>
-<polygon fill="#0000ff" stroke="#0000ff" points="208.98,-69.21 198.88,-66.01 204.77,-74.81 208.98,-69.21"/>
+<path fill="none" stroke="#0000ff" stroke-dasharray="5,2" d="M270.76,-120.65C264.91,-117.8 258.81,-114.63 253.29,-111.39 232.31,-99.06 209.85,-83.01 193.51,-70.77"/>
+<polygon fill="#0000ff" stroke="#0000ff" points="195.95,-68.22 185.87,-64.97 191.72,-73.8 195.95,-68.22"/>
 </g>
 </g>
 </svg>
@@ -339,25 +339,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -406,7 +406,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/iapws_g704.f90.html b/docs/sourcefile/iapws_g704.f90.html
index 533edc4..2f48aba 100644
--- a/docs/sourcefile/iapws_g704.f90.html
+++ b/docs/sourcefile/iapws_g704.f90.html
@@ -157,34 +157,34 @@ <h3 class="card-title">This file depends on</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~iapws_g704.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileiapws_g704f90EfferentGraph" width="232pt" height="32pt"
- viewBox="0.00 0.00 232.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~iapws_g704.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="sourcefileiapws_g704f90EfferentGraph" width="215pt" height="31pt"
+ viewBox="0.00 0.00 214.79 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~iapws_g704.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>sourcefile~~iapws_g704.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 228,-28 228,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 210.79,-26.77 210.79,4 -4,4"/>
 <!-- sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~iapws_g704.f90</title>
-<polygon fill="none" stroke="black" points="224,-24 129,-24 129,0 224,0 224,-24"/>
-<text text-anchor="middle" x="176.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_g704.f90</text>
+<polygon fill="none" stroke="black" points="206.79,-22.77 120.27,-22.77 120.27,0 206.79,0 206.79,-22.77"/>
+<text text-anchor="middle" x="163.53" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_g704.f90</text>
 </g>
 <!-- sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~iapws_r283.f90</title>
 <g id="a_sourcefile~~iapws_g704.f90~~EfferentGraph_node2"><a xlink:href="../sourcefile/iapws_r283.f90.html" xlink:title="iapws_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="93,-24 0,-24 0,0 93,0 93,-24"/>
-<text text-anchor="middle" x="46.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="84.27,-22.77 0,-22.77 0,0 84.27,0 84.27,-22.77"/>
+<text text-anchor="middle" x="42.13" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M128.93,-12C120.69,-12 112.05,-12 103.58,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="103.4,-8.5 93.4,-12 103.4,-15.5 103.4,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M120.1,-11.39C112.26,-11.39 103.99,-11.39 95.9,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="96.14,-7.89 86.14,-11.39 96.14,-14.89 96.14,-7.89"/>
 </g>
 </g>
 </svg>
@@ -203,25 +203,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -246,70 +246,70 @@ <h3 class="card-title">Files dependent on this one</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~iapws_g704.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefileiapws_g704f90AfferentGraph" width="417pt" height="52pt"
- viewBox="0.00 0.00 417.00 52.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~iapws_g704.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 48)">
+<svg id="sourcefileiapws_g704f90AfferentGraph" width="392pt" height="50pt"
+ viewBox="0.00 0.00 392.06 49.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~iapws_g704.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 45.77)">
 <title>sourcefile~~iapws_g704.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 413,-48 413,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-45.77 388.06,-45.77 388.06,4 -4,4"/>
 <!-- sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~iapws_g704.f90</title>
-<polygon fill="none" stroke="black" points="95,-44 0,-44 0,-20 95,-20 95,-44"/>
-<text text-anchor="middle" x="47.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_g704.f90</text>
+<polygon fill="none" stroke="black" points="86.52,-41.77 0,-41.77 0,-19 86.52,-19 86.52,-41.77"/>
+<text text-anchor="middle" x="43.26" y="-26.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_g704.f90</text>
 </g>
 <!-- sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~AfferentGraph_node2" class="node">
 <title>sourcefile~capi_g704.f90</title>
 <g id="a_sourcefile~~iapws_g704.f90~~AfferentGraph_node2"><a xlink:href="../sourcefile/capi_g704.f90.html" xlink:title="capi_g704.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="219,-24 131,-24 131,0 219,0 219,-24"/>
-<text text-anchor="middle" x="175" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_g704.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="201.54,-22.77 122.52,-22.77 122.52,0 201.54,0 201.54,-22.77"/>
+<text text-anchor="middle" x="162.03" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_g704.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_g704.f90&#45;&gt;sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~AfferentGraph_edge1" class="edge">
 <title>sourcefile~capi_g704.f90&#45;&gt;sourcefile~iapws_g704.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M130.81,-18.88C122.55,-20.2 113.8,-21.59 105.19,-22.97"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="104.53,-19.53 95.2,-24.56 105.63,-26.44 104.53,-19.53"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M122.15,-17.71C114.48,-18.96 106.31,-20.29 98.25,-21.6"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="97.79,-18.13 88.49,-23.19 98.92,-25.04 97.79,-18.13"/>
 </g>
 <!-- sourcefile~iapws.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~AfferentGraph_node3" class="node">
 <title>sourcefile~iapws.f90</title>
 <g id="a_sourcefile~~iapws_g704.f90~~AfferentGraph_node3"><a xlink:href="../sourcefile/iapws.f90.html" xlink:title="iapws.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409,-44 346,-44 346,-20 409,-20 409,-44"/>
-<text text-anchor="middle" x="377.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="384.06,-41.77 327.54,-41.77 327.54,-19 384.06,-19 384.06,-41.77"/>
+<text text-anchor="middle" x="355.8" y="-26.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~AfferentGraph_edge2" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_g704.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M345.71,-32.56C334.47,-32.74 321.66,-32.91 310,-33 230.45,-33.6 210.55,-33.48 131,-33 122.66,-32.95 113.85,-32.87 105.21,-32.78"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="105.22,-29.28 95.18,-32.66 105.14,-36.28 105.22,-29.28"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M327.09,-30.92C316.03,-31.11 303.18,-31.29 291.54,-31.39 216.42,-31.98 197.64,-31.86 122.52,-31.39 114.67,-31.33 106.38,-31.26 98.24,-31.16"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="98.46,-27.67 88.42,-31.05 98.38,-34.67 98.46,-27.67"/>
 </g>
 <!-- sourcefile~capi.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~AfferentGraph_node4" class="node">
 <title>sourcefile~capi.f90</title>
 <g id="a_sourcefile~~iapws_g704.f90~~AfferentGraph_node4"><a xlink:href="../sourcefile/capi.f90.html" xlink:title="capi.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="310,-24 255,-24 255,0 310,0 310,-24"/>
-<text text-anchor="middle" x="282.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="291.54,-22.77 237.54,-22.77 237.54,0 291.54,0 291.54,-22.77"/>
+<text text-anchor="middle" x="264.54" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~AfferentGraph_edge4" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M345.79,-25.4C337.59,-23.63 328.65,-21.71 320.16,-19.88"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="320.63,-16.41 310.12,-17.72 319.16,-23.25 320.63,-16.41"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M327.05,-24.48C319.39,-22.85 310.97,-21.05 302.87,-19.33"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="303.74,-15.94 293.23,-17.28 302.28,-22.78 303.74,-15.94"/>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~iapws_g704.f90~~AfferentGraph_edge3" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_g704.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M254.88,-12C246.98,-12 238.04,-12 229.09,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="229.03,-8.5 219.03,-12 229.03,-15.5 229.03,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M237.13,-11.39C229.69,-11.39 221.35,-11.39 213.01,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="213.26,-7.89 203.26,-11.39 213.26,-14.89 213.26,-7.89"/>
 </g>
 </g>
 </svg>
@@ -328,25 +328,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -865,7 +865,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/iapws_r283.f90.html b/docs/sourcefile/iapws_r283.f90.html
index 736b4bf..41dbf25 100644
--- a/docs/sourcefile/iapws_r283.f90.html
+++ b/docs/sourcefile/iapws_r283.f90.html
@@ -157,149 +157,149 @@ <h3 class="card-title">Files dependent on this one</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~iapws_r283.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefileiapws_r283f90AfferentGraph" width="606pt" height="134pt"
- viewBox="0.00 0.00 606.00 134.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~iapws_r283.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 130)">
+<svg id="sourcefileiapws_r283f90AfferentGraph" width="563pt" height="131pt"
+ viewBox="0.00 0.00 562.85 130.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~iapws_r283.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 126.77)">
 <title>sourcefile~~iapws_r283.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-130 602,-130 602,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-126.77 558.85,-126.77 558.85,4 -4,4"/>
 <!-- sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~iapws_r283.f90</title>
-<polygon fill="none" stroke="black" points="93,-66 0,-66 0,-42 93,-42 93,-66"/>
-<text text-anchor="middle" x="46.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_r283.f90</text>
+<polygon fill="none" stroke="black" points="84.27,-63.77 0,-63.77 0,-41 84.27,-41 84.27,-63.77"/>
+<text text-anchor="middle" x="42.13" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_r283.f90</text>
 </g>
 <!-- sourcefile~capi_r283.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_node2" class="node">
 <title>sourcefile~capi_r283.f90</title>
 <g id="a_sourcefile~~iapws_r283.f90~~AfferentGraph_node2"><a xlink:href="../sourcefile/capi_r283.f90.html" xlink:title="capi_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="219,-126 134,-126 134,-102 219,-102 219,-126"/>
-<text text-anchor="middle" x="176.5" y="-111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="201.91,-122.77 125.15,-122.77 125.15,-100 201.91,-100 201.91,-122.77"/>
+<text text-anchor="middle" x="163.53" y="-107.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_r283.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge1" class="edge">
 <title>sourcefile~capi_r283.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M149.6,-101.86C130.34,-92.83 103.85,-80.41 82.67,-70.49"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="83.9,-67.2 73.36,-66.12 80.93,-73.54 83.9,-67.2"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M138.66,-99.59C121,-90.86 96.72,-78.87 77.06,-69.15"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="78.84,-66.13 68.32,-64.83 75.74,-72.4 78.84,-66.13"/>
 </g>
 <!-- sourcefile~iapws.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_node3" class="node">
 <title>sourcefile~iapws.f90</title>
 <g id="a_sourcefile~~iapws_r283.f90~~AfferentGraph_node3"><a xlink:href="../sourcefile/iapws.f90.html" xlink:title="iapws.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="587,-66 524,-66 524,-42 587,-42 587,-66"/>
-<text text-anchor="middle" x="555.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="544.73,-63.77 488.21,-63.77 488.21,-41 544.73,-41 544.73,-63.77"/>
+<text text-anchor="middle" x="516.47" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge2" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M523.72,-55.26C476.56,-56.87 383.62,-58.83 305,-53"/>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M303,-53C244.81,-47.99 235.73,-9.38 177.5,-14"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M281.3,-51.39C226.89,-47.17 218.92,-8.9 164.53,-13.39"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M487.89,-53.56C444.35,-55.13 357.04,-57.09 283.3,-51.39"/>
 </g>
 <!-- sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_node4" class="node">
 <title>sourcefile~iapws_g704.f90</title>
 <g id="a_sourcefile~~iapws_r283.f90~~AfferentGraph_node4"><a xlink:href="../sourcefile/iapws_g704.f90.html" xlink:title="iapws_g704.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="224,-66 129,-66 129,-42 224,-42 224,-66"/>
-<text text-anchor="middle" x="176.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_g704.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="206.79,-63.77 120.27,-63.77 120.27,-41 206.79,-41 206.79,-63.77"/>
+<text text-anchor="middle" x="163.53" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_g704.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge7" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_g704.f90</title>
-<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M303,-53C280.59,-51.34 255.87,-51.18 234.34,-51.58"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="233.96,-48.09 224.05,-51.82 234.13,-55.09 233.96,-48.09"/>
+<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M281.3,-51.39C260.77,-49.8 238.15,-49.62 218.33,-50"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="218.45,-46.49 208.53,-50.24 218.62,-53.49 218.45,-46.49"/>
 </g>
 <!-- sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_node5" class="node">
 <title>sourcefile~iapws_r797.f90</title>
 <g id="a_sourcefile~~iapws_r283.f90~~AfferentGraph_node5"><a xlink:href="../sourcefile/iapws_r797.f90.html" xlink:title="iapws_r797.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="477,-25 384,-25 384,-1 477,-1 477,-25"/>
-<text text-anchor="middle" x="430.5" y="-10.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r797.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="442.08,-23.77 357.81,-23.77 357.81,-1 442.08,-1 442.08,-23.77"/>
+<text text-anchor="middle" x="399.94" y="-8.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r797.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge9" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_r797.f90</title>
-<path fill="none" stroke="#7f00ff" stroke-dasharray="5,2" d="M523.78,-43.76C509.77,-39.09 492.89,-33.46 477.42,-28.31"/>
-<polygon fill="#7f00ff" stroke="#7f00ff" points="478.09,-24.84 467.5,-25 475.88,-31.48 478.09,-24.84"/>
+<path fill="none" stroke="#7f00ff" stroke-dasharray="5,2" d="M487.74,-42.7C475.08,-38.28 459.77,-32.93 445.55,-27.97"/>
+<polygon fill="#7f00ff" stroke="#7f00ff" points="446.98,-24.76 436.38,-24.76 444.67,-31.37 446.98,-24.76"/>
 </g>
 <!-- sourcefile~capi.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_node6" class="node">
 <title>sourcefile~capi.f90</title>
 <g id="a_sourcefile~~iapws_r283.f90~~AfferentGraph_node6"><a xlink:href="../sourcefile/capi.f90.html" xlink:title="capi.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="458,-105 403,-105 403,-81 458,-81 458,-105"/>
-<text text-anchor="middle" x="430.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="426.94,-101.77 372.94,-101.77 372.94,-79 426.94,-79 426.94,-101.77"/>
+<text text-anchor="middle" x="399.94" y="-86.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge10" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M523.78,-63.74C506.89,-69.1 485.82,-75.78 468.08,-81.4"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="466.55,-78.21 458.08,-84.57 468.67,-84.89 466.55,-78.21"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M487.74,-61.58C472.79,-66.55 454.14,-72.73 437.96,-78.1"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="437.06,-74.71 428.67,-81.19 439.26,-81.36 437.06,-74.71"/>
 </g>
 <!-- sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge3" class="edge">
 <title>sourcefile~iapws_g704.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M128.93,-54C120.69,-54 112.05,-54 103.58,-54"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="103.4,-50.5 93.4,-54 103.4,-57.5 103.4,-50.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M120.1,-52.39C112.26,-52.39 103.99,-52.39 95.9,-52.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="96.14,-48.89 86.14,-52.39 96.14,-55.89 96.14,-48.89"/>
 </g>
 <!-- sourcefile~iapws_r797.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge4" class="edge">
 <title>sourcefile~iapws_r797.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M383.9,-11.28C333.37,-9.82 249.49,-8.71 177.5,-14"/>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M175.5,-14C143.33,-16.55 108.48,-28.06 83.27,-38.09"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="81.7,-34.95 73.77,-41.98 84.35,-41.43 81.7,-34.95"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M162.53,-13.39C133.06,-15.63 101.33,-26.43 77.99,-36.1"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="76.78,-32.81 68.97,-39.97 79.54,-39.24 76.78,-32.81"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M357.38,-10.76C310.46,-9.35 231.89,-8.25 164.53,-13.39"/>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_r283.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge5" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M402.67,-101.74C386.93,-106.4 366.55,-111.65 348,-114 308.35,-119.03 263.09,-118.75 229.17,-117.37"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="229.18,-113.86 219.03,-116.91 228.86,-120.86 229.18,-113.86"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M372.49,-98.98C357.75,-103.32 338.96,-108.14 321.81,-110.39 285.8,-115.09 244.75,-115.18 213.62,-114.18"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="213.84,-110.68 203.72,-113.8 213.58,-117.68 213.84,-110.68"/>
 </g>
 <!-- sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_node7" class="node">
 <title>sourcefile~capi_g704.f90</title>
 <g id="a_sourcefile~~iapws_r283.f90~~AfferentGraph_node7"><a xlink:href="../sourcefile/capi_g704.f90.html" xlink:title="capi_g704.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="348,-105 260,-105 260,-81 348,-81 348,-105"/>
-<text text-anchor="middle" x="304" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_g704.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="321.81,-101.77 242.79,-101.77 242.79,-79 321.81,-79 321.81,-101.77"/>
+<text text-anchor="middle" x="282.3" y="-86.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_g704.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_g704.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge11" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_g704.f90</title>
-<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M402.79,-93C389.9,-93 373.96,-93 358.71,-93"/>
-<polygon fill="#00ff00" stroke="#00ff00" points="358.31,-89.5 348.31,-93 358.31,-96.5 358.31,-89.5"/>
+<path fill="none" stroke="#00ff00" stroke-dasharray="5,2" d="M372.7,-90.39C361.04,-90.39 346.91,-90.39 333.35,-90.39"/>
+<polygon fill="#00ff00" stroke="#00ff00" points="333.68,-86.89 323.68,-90.39 333.68,-93.89 333.68,-86.89"/>
 </g>
 <!-- sourcefile~capi_g704.f90&#45;&gt;sourcefile~iapws_g704.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge6" class="edge">
 <title>sourcefile~capi_g704.f90&#45;&gt;sourcefile~iapws_g704.f90</title>
-<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M264.32,-80.98C252.27,-77.24 238.83,-73.06 226.19,-69.13"/>
-<polygon fill="#00ffff" stroke="#00ffff" points="226.85,-65.67 216.27,-66.05 224.78,-72.36 226.85,-65.67"/>
+<path fill="none" stroke="#00ffff" stroke-dasharray="5,2" d="M244.99,-78.57C234.45,-75.14 222.78,-71.34 211.67,-67.73"/>
+<polygon fill="#00ffff" stroke="#00ffff" points="212.85,-64.43 202.25,-64.66 210.68,-71.08 212.85,-64.43"/>
 </g>
 <!-- sourcefile~capi_r797.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_node8" class="node">
 <title>sourcefile~capi_r797.f90</title>
 <g id="a_sourcefile~~iapws_r283.f90~~AfferentGraph_node8"><a xlink:href="../sourcefile/capi_r797.f90.html" xlink:title="capi_r797.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="598,-24 513,-24 513,0 598,0 598,-24"/>
-<text text-anchor="middle" x="555.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r797.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="554.85,-22.77 478.08,-22.77 478.08,0 554.85,0 554.85,-22.77"/>
+<text text-anchor="middle" x="516.47" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r797.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_r797.f90&#45;&gt;sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~iapws_r283.f90~~AfferentGraph_edge8" class="edge">
 <title>sourcefile~capi_r797.f90&#45;&gt;sourcefile~iapws_r797.f90</title>
-<path fill="none" stroke="#7f00ff" stroke-dasharray="5,2" d="M512.86,-12.34C504.73,-12.4 496.09,-12.47 487.58,-12.54"/>
-<polygon fill="#7f00ff" stroke="#7f00ff" points="487.29,-9.05 477.32,-12.63 487.35,-16.05 487.29,-9.05"/>
+<path fill="none" stroke="#7f00ff" stroke-dasharray="5,2" d="M477.65,-11.72C469.94,-11.78 461.71,-11.85 453.59,-11.93"/>
+<polygon fill="#7f00ff" stroke="#7f00ff" points="453.76,-8.42 443.79,-12.01 453.82,-15.42 453.76,-8.42"/>
 </g>
 </g>
 </svg>
@@ -318,25 +318,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -396,7 +396,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/iapws_r797.f90.html b/docs/sourcefile/iapws_r797.f90.html
index 122eb11..fe7d10c 100644
--- a/docs/sourcefile/iapws_r797.f90.html
+++ b/docs/sourcefile/iapws_r797.f90.html
@@ -157,34 +157,34 @@ <h3 class="card-title">This file depends on</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~iapws_r797.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileiapws_r797f90EfferentGraph" width="230pt" height="32pt"
- viewBox="0.00 0.00 230.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~iapws_r797.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="sourcefileiapws_r797f90EfferentGraph" width="213pt" height="31pt"
+ viewBox="0.00 0.00 212.54 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~iapws_r797.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>sourcefile~~iapws_r797.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 226,-28 226,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 208.54,-26.77 208.54,4 -4,4"/>
 <!-- sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~iapws_r797.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~iapws_r797.f90</title>
-<polygon fill="none" stroke="black" points="222,-24 129,-24 129,0 222,0 222,-24"/>
-<text text-anchor="middle" x="175.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_r797.f90</text>
+<polygon fill="none" stroke="black" points="204.54,-22.77 120.27,-22.77 120.27,0 204.54,0 204.54,-22.77"/>
+<text text-anchor="middle" x="162.41" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_r797.f90</text>
 </g>
 <!-- sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws_r797.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~iapws_r283.f90</title>
 <g id="a_sourcefile~~iapws_r797.f90~~EfferentGraph_node2"><a xlink:href="../sourcefile/iapws_r283.f90.html" xlink:title="iapws_r283.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="93,-24 0,-24 0,0 93,0 93,-24"/>
-<text text-anchor="middle" x="46.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="84.27,-22.77 0,-22.77 0,0 84.27,0 84.27,-22.77"/>
+<text text-anchor="middle" x="42.13" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws_r283.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws_r797.f90&#45;&gt;sourcefile~iapws_r283.f90 -->
 <g id="sourcefile~~iapws_r797.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~iapws_r797.f90&#45;&gt;sourcefile~iapws_r283.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M128.65,-12C120.47,-12 111.86,-12 103.43,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="103.28,-8.5 93.28,-12 103.28,-15.5 103.28,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M120.04,-11.39C112.25,-11.39 104.01,-11.39 95.93,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="96.19,-7.89 86.19,-11.39 96.19,-14.89 96.19,-7.89"/>
 </g>
 </g>
 </svg>
@@ -203,25 +203,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -246,49 +246,49 @@ <h3 class="card-title">Files dependent on this one</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~iapws_r797.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefileiapws_r797f90AfferentGraph" width="222pt" height="74pt"
- viewBox="0.00 0.00 222.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~iapws_r797.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<svg id="sourcefileiapws_r797f90AfferentGraph" width="205pt" height="72pt"
+ viewBox="0.00 0.00 205.04 71.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~iapws_r797.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 67.77)">
 <title>sourcefile~~iapws_r797.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 218,-70 218,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-67.77 201.04,-67.77 201.04,4 -4,4"/>
 <!-- sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~iapws_r797.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~iapws_r797.f90</title>
-<polygon fill="none" stroke="black" points="93,-45 0,-45 0,-21 93,-21 93,-45"/>
-<text text-anchor="middle" x="46.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_r797.f90</text>
+<polygon fill="none" stroke="black" points="84.27,-42.77 0,-42.77 0,-20 84.27,-20 84.27,-42.77"/>
+<text text-anchor="middle" x="42.13" y="-27.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_r797.f90</text>
 </g>
 <!-- sourcefile~capi_r797.f90 -->
 <g id="sourcefile~~iapws_r797.f90~~AfferentGraph_node2" class="node">
 <title>sourcefile~capi_r797.f90</title>
 <g id="a_sourcefile~~iapws_r797.f90~~AfferentGraph_node2"><a xlink:href="../sourcefile/capi_r797.f90.html" xlink:title="capi_r797.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="214,-66 129,-66 129,-42 214,-42 214,-66"/>
-<text text-anchor="middle" x="171.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r797.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="197.04,-63.77 120.27,-63.77 120.27,-41 197.04,-41 197.04,-63.77"/>
+<text text-anchor="middle" x="158.66" y="-48.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_r797.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_r797.f90&#45;&gt;sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~iapws_r797.f90~~AfferentGraph_edge1" class="edge">
 <title>sourcefile~capi_r797.f90&#45;&gt;sourcefile~iapws_r797.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M128.86,-46.89C120.64,-45.49 111.9,-43.99 103.3,-42.53"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="103.77,-39.06 93.32,-40.82 102.59,-45.96 103.77,-39.06"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M119.84,-45.45C112.13,-44.04 103.9,-42.53 95.78,-41.04"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="96.42,-37.6 85.95,-39.24 95.16,-44.48 96.42,-37.6"/>
 </g>
 <!-- sourcefile~iapws.f90 -->
 <g id="sourcefile~~iapws_r797.f90~~AfferentGraph_node3" class="node">
 <title>sourcefile~iapws.f90</title>
 <g id="a_sourcefile~~iapws_r797.f90~~AfferentGraph_node3"><a xlink:href="../sourcefile/iapws.f90.html" xlink:title="iapws.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="203,-24 140,-24 140,0 203,0 203,-24"/>
-<text text-anchor="middle" x="171.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="186.91,-22.77 130.4,-22.77 130.4,0 186.91,0 186.91,-22.77"/>
+<text text-anchor="middle" x="158.66" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_r797.f90 -->
 <g id="sourcefile~~iapws_r797.f90~~AfferentGraph_edge2" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_r797.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M139.78,-17.25C128.66,-19.14 115.74,-21.35 103.14,-23.5"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="102.42,-20.07 93.15,-25.21 103.6,-26.97 102.42,-20.07"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M129.93,-16.23C119.6,-18.03 107.5,-20.14 95.67,-22.21"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="95.21,-18.74 85.97,-23.91 96.42,-25.63 95.21,-18.74"/>
 </g>
 </g>
 </svg>
@@ -307,25 +307,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -563,7 +563,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/sourcefile/iapws_version.f90.html b/docs/sourcefile/iapws_version.f90.html
index 69014a8..f8bf470 100644
--- a/docs/sourcefile/iapws_version.f90.html
+++ b/docs/sourcefile/iapws_version.f90.html
@@ -157,70 +157,70 @@ <h3 class="card-title">Files dependent on this one</h3>
             <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: sourcefile~~iapws_version.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefileiapws_versionf90AfferentGraph" width="441pt" height="52pt"
- viewBox="0.00 0.00 441.00 52.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~iapws_version.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 48)">
+<svg id="sourcefileiapws_versionf90AfferentGraph" width="413pt" height="50pt"
+ viewBox="0.00 0.00 413.06 49.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~iapws_version.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 45.77)">
 <title>sourcefile~~iapws_version.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 437,-48 437,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-45.77 409.06,-45.77 409.06,4 -4,4"/>
 <!-- sourcefile~iapws_version.f90 -->
 <g id="sourcefile~~iapws_version.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~iapws_version.f90</title>
-<polygon fill="none" stroke="black" points="107,-44 0,-44 0,-20 107,-20 107,-44"/>
-<text text-anchor="middle" x="53.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_version.f90</text>
+<polygon fill="none" stroke="black" points="97.02,-41.77 0,-41.77 0,-19 97.02,-19 97.02,-41.77"/>
+<text text-anchor="middle" x="48.51" y="-26.04" font-family="Helvetica,sans-Serif" font-size="10.50">iapws_version.f90</text>
 </g>
 <!-- sourcefile~capi_version.f90 -->
 <g id="sourcefile~~iapws_version.f90~~AfferentGraph_node2" class="node">
 <title>sourcefile~capi_version.f90</title>
 <g id="a_sourcefile~~iapws_version.f90~~AfferentGraph_node2"><a xlink:href="../sourcefile/capi_version.f90.html" xlink:title="capi_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="243,-24 143,-24 143,0 243,0 243,-24"/>
-<text text-anchor="middle" x="193" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_version.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.54,-22.77 133.02,-22.77 133.02,0 222.54,0 222.54,-22.77"/>
+<text text-anchor="middle" x="177.78" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi_version.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~capi_version.f90&#45;&gt;sourcefile~iapws_version.f90 -->
 <g id="sourcefile~~iapws_version.f90~~AfferentGraph_edge1" class="edge">
 <title>sourcefile~capi_version.f90&#45;&gt;sourcefile~iapws_version.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M142.75,-19.16C134.44,-20.37 125.72,-21.64 117.12,-22.89"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="116.52,-19.44 107.13,-24.34 117.53,-26.37 116.52,-19.44"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M132.62,-17.98C124.91,-19.13 116.78,-20.34 108.74,-21.54"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="108.37,-18.06 98.99,-23 109.4,-24.98 108.37,-18.06"/>
 </g>
 <!-- sourcefile~iapws.f90 -->
 <g id="sourcefile~~iapws_version.f90~~AfferentGraph_node3" class="node">
 <title>sourcefile~iapws.f90</title>
 <g id="a_sourcefile~~iapws_version.f90~~AfferentGraph_node3"><a xlink:href="../sourcefile/iapws.f90.html" xlink:title="iapws.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="433,-44 370,-44 370,-20 433,-20 433,-44"/>
-<text text-anchor="middle" x="401.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405.06,-41.77 348.54,-41.77 348.54,-19 405.06,-19 405.06,-41.77"/>
+<text text-anchor="middle" x="376.8" y="-26.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iapws.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_version.f90 -->
 <g id="sourcefile~~iapws_version.f90~~AfferentGraph_edge2" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~iapws_version.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M369.71,-32.56C358.47,-32.74 345.66,-32.91 334,-33 249.11,-33.64 227.89,-33.48 143,-33 134.72,-32.95 126,-32.88 117.39,-32.8"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="117.42,-29.3 107.38,-32.7 117.34,-36.3 117.42,-29.3"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M348.09,-30.92C337.03,-31.11 324.18,-31.29 312.54,-31.39 232.76,-32.02 212.81,-31.86 133.02,-31.39 125.14,-31.34 116.83,-31.27 108.65,-31.18"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="108.76,-27.68 98.72,-31.07 108.68,-34.68 108.76,-27.68"/>
 </g>
 <!-- sourcefile~capi.f90 -->
 <g id="sourcefile~~iapws_version.f90~~AfferentGraph_node4" class="node">
 <title>sourcefile~capi.f90</title>
 <g id="a_sourcefile~~iapws_version.f90~~AfferentGraph_node4"><a xlink:href="../sourcefile/capi.f90.html" xlink:title="capi.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="334,-24 279,-24 279,0 334,0 334,-24"/>
-<text text-anchor="middle" x="306.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="312.54,-22.77 258.54,-22.77 258.54,0 312.54,0 312.54,-22.77"/>
+<text text-anchor="middle" x="285.54" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">capi.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90 -->
 <g id="sourcefile~~iapws_version.f90~~AfferentGraph_edge4" class="edge">
 <title>sourcefile~iapws.f90&#45;&gt;sourcefile~capi.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M369.79,-25.4C361.59,-23.63 352.65,-21.71 344.16,-19.88"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="344.63,-16.41 334.12,-17.72 343.16,-23.25 344.63,-16.41"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M348.05,-24.48C340.39,-22.85 331.97,-21.05 323.87,-19.33"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="324.74,-15.94 314.23,-17.28 323.28,-22.78 324.74,-15.94"/>
 </g>
 <!-- sourcefile~capi.f90&#45;&gt;sourcefile~capi_version.f90 -->
 <g id="sourcefile~~iapws_version.f90~~AfferentGraph_edge3" class="edge">
 <title>sourcefile~capi.f90&#45;&gt;sourcefile~capi_version.f90</title>
-<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M278.79,-12C271.02,-12 262.21,-12 253.27,-12"/>
-<polygon fill="#ff0000" stroke="#ff0000" points="253.18,-8.5 243.18,-12 253.18,-15.5 253.18,-8.5"/>
+<path fill="none" stroke="#ff0000" stroke-dasharray="5,2" d="M258.13,-11.39C250.81,-11.39 242.58,-11.39 234.26,-11.39"/>
+<polygon fill="#ff0000" stroke="#ff0000" points="234.46,-7.89 224.46,-11.39 234.46,-14.89 234.46,-7.89"/>
 </g>
 </g>
 </svg>
@@ -239,25 +239,25 @@ <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<!-- Generated by graphviz version 2.43.0 (0)
+<!-- Generated by graphviz version 12.0.0 (20240704.0754)
  -->
 <!-- Title: Graph Key Pages: 1 -->
-<svg width="202pt" height="32pt"
- viewBox="0.00 0.00 201.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg width="188pt" height="31pt"
+ viewBox="0.00 0.00 187.89 30.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 26.77)">
 <title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197.5,-28 197.5,4 -4,4"/>
+<polygon fill="white" stroke="none" points="-4,4 -4,-26.77 183.89,-26.77 183.89,4 -4,4"/>
 <!-- Source File -->
 <g id="node1" class="node">
 <title>Source File</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="70,-24 0,-24 0,0 70,0 70,-24"/>
-<text text-anchor="middle" x="35" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="65.52,-22.77 0,-22.77 0,0 65.52,0 65.52,-22.77"/>
+<text text-anchor="middle" x="32.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Source File</text>
 </g>
 <!-- This Page&#39;s Entity -->
 <g id="node2" class="node">
 <title>This Page&#39;s Entity</title>
-<polygon fill="none" stroke="black" points="193.5,-24 88.5,-24 88.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<polygon fill="none" stroke="black" points="179.89,-22.77 83.62,-22.77 83.62,0 179.89,0 179.89,-22.77"/>
+<text text-anchor="middle" x="131.76" y="-7.04" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
 </g>
 </g>
 </svg>
@@ -327,7 +327,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-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>
diff --git a/docs/tipuesearch/tipuesearch_content.js b/docs/tipuesearch/tipuesearch_content.js
index 7c357d8..e94dc67 100644
--- a/docs/tipuesearch/tipuesearch_content.js
+++ b/docs/tipuesearch/tipuesearch_content.js
@@ -1 +1 @@
-var tipuesearch = {"pages":[{"title":" iapws ","text":"iapws Introduction Dependencies Installation License Introduction ipaws is a  Fortran library providing the formulas for computing light and heavy water properties.\nThe formulas are taken from http://iapws.org. \nC API allows usage from C, or can be used as a basis for other wrappers.\nPython wrapper allows easy usage from Python. For now, I have implemented R2-83 [x] Tc in H2O and D2O [x] pc in H2O and D2O [x] rhoc in H2O and D2O G7-04 [x] kH [x] kD R7-97 [ ] Region 1 [ ] Region 2 [ ] Region 3 [x] Region 4 [ ] Region 5 To use iapws within your fpm project,\nadd the following to your fpm.toml file: [ dependencies ] iapws = { git = \"https://github.com/MilanSkocic/iapws.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":"gas_type – iapws ","text":"type, public :: gas_type Derived type containing a allocatable string for representing a gas. Components Type Visibility Attributes Name Initial character(len=:), public, allocatable :: gas Gas","tags":"","loc":"type/gas_type.html"},{"title":"capi_get_version – iapws","text":"public  function capi_get_version() result(cptr) bind(c,name=\"iapws_get_version\")) Get the version. Arguments None Return Value type(c_ptr) Pointer to version string. 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":"gases – iapws","text":"public  function gases(heavywater) result(list_gases) Returns the list of available gases. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value type( gas_type ), pointer, (:) Available gases. Called by proc~~gases~~CalledByGraph proc~gases gases proc~capi_gases capi_gases proc~capi_gases->proc~gases proc~gases2 gases2 proc~gases2->proc~gases 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/gases.html"},{"title":"gases2 – iapws","text":"public  function gases2(heavywater) result(str_gases) Returns the available gases as a string. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value character(len=:), pointer Available gases Calls proc~~gases2~~CallsGraph proc~gases2 gases2 proc~gases gases proc~gases2->proc~gases 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/gases2.html"},{"title":"ngases – iapws","text":"public pure function ngases(heavywater) result(n) Returns the number of gases. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value integer(kind=int32) Number of gases. Called by proc~~ngases~~CalledByGraph proc~ngases ngases proc~capi_ngases capi_ngases proc~capi_ngases->proc~ngases 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/ngases.html"},{"title":"kd – iapws","text":"public pure subroutine kd(T, gas, heavywater, k) Compute the vapor-liquid constant kd for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: T (:) Temperature in K. character(len=*), intent(in) :: gas Gas. integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=dp), intent(out) :: k (:) Vapor-liquid constant. Filled with NaNs if gas not found. Called by proc~~kd~~CalledByGraph proc~kd kd proc~capi_kd capi_kd proc~capi_kd->proc~kd 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/kd.html"},{"title":"kh – iapws","text":"public pure subroutine kh(T, gas, heavywater, k) Compute the henry constant kH for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: T (:) Temperature in K. character(len=*), intent(in) :: gas Gas. integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=dp), intent(out) :: k (:) Henry constant. Filled with NaNs if gas not found. Called by proc~~kh~~CalledByGraph proc~kh kh proc~capi_kh capi_kh proc~capi_kh->proc~kh 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/kh.html"},{"title":"capi_gases – iapws","text":"public  function capi_gases(heavywater) result(list_gases) bind(C, name=\"iapws_g704_gases\")) Returns the list of available gases. Arguments Type Intent Optional Attributes Name integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). Return Value type(c_ptr) Available gases. Calls proc~~capi_gases~~CallsGraph proc~capi_gases capi_gases proc~gases gases proc~capi_gases->proc~gases 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_gases.html"},{"title":"capi_ngases – iapws","text":"public pure function capi_ngases(heavywater) result(n) bind(C, name=\"iapws_g704_ngases\")) Returns the number of gases. Arguments Type Intent Optional Attributes Name integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). Return Value integer(kind=c_int) Number of gases. Calls proc~~capi_ngases~~CallsGraph proc~capi_ngases capi_ngases proc~ngases ngases proc~capi_ngases->proc~ngases 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_ngases.html"},{"title":"capi_kd – iapws","text":"public  subroutine capi_kd(T, gas, heavywater, k, size_gas, size_T) bind(C,name=\"iapws_g704_kd\") Compute the vapor-liquid constant for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=c_double), intent(in) :: T (size_T) Temperature in °C. type(c_ptr), intent(in), value :: gas Gas. integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=c_double), intent(inout) :: k (size_T) Vapor-liquid constant. Filled with NaNs if gas not found. integer(kind=c_int), intent(in), value :: size_gas Size of the gas string. integer(kind=c_size_t), intent(in), value :: size_T Size of T and k. Calls proc~~capi_kd~~CallsGraph proc~capi_kd capi_kd proc~kd kd proc~capi_kd->proc~kd 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_kd.html"},{"title":"capi_kh – iapws","text":"public  subroutine capi_kh(T, gas, heavywater, k, size_gas, size_T) bind(C,name=\"iapws_g704_kh\") Compute the henry constant for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=c_double), intent(in) :: T (size_T) Temperature in °C. type(c_ptr), intent(in), value :: gas Gas. integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=c_double), intent(inout) :: k (size_T) Henry constant. Filled with NaNs if gas not found. integer(kind=c_int), intent(in), value :: size_gas Size of the gas string. integer(kind=c_size_t), intent(in), value :: size_T Size of T and k. Calls proc~~capi_kh~~CallsGraph proc~capi_kh capi_kh proc~kh kh proc~capi_kh->proc~kh 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_kh.html"},{"title":"iapws_r797_v – iapws","text":"public pure elemental function iapws_r797_v(P, T) result(res) Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: P real(kind=dp), intent(in) :: T Return Value real(kind=dp)","tags":"","loc":"proc/iapws_r797_v.html"},{"title":"Tsat – iapws","text":"public pure subroutine Tsat(ps, Ts) Compute the saturation temperature at pressure ps.\nValidity range 611.213 Pa <= ps <= 22.064 MPa. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: ps (:) Saturation pressure in MPa. real(kind=dp), intent(out) :: Ts (:) Saturation temperature in K. Filled with nan if out of validity range. Called by proc~~tsat~~CalledByGraph proc~tsat Tsat proc~capi_tsat capi_Tsat proc~capi_tsat->proc~tsat 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/tsat.html"},{"title":"psat – iapws","text":"public pure subroutine psat(Ts, ps) Compute the saturation pressure at temperature Ts. \nValidity range 273.13 K <= Ts <= 647.096 K. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: Ts (:) Saturation temperature in K. real(kind=dp), intent(out) :: ps (:) Saturation pressure in MPa. Filled with nan if out of validity range. Called by proc~~psat~~CalledByGraph proc~psat psat proc~capi_psat capi_psat proc~capi_psat->proc~psat 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/psat.html"},{"title":"capi_Tsat – iapws","text":"public pure subroutine capi_Tsat(N, ps, Ts) bind(C, name=\"iapws_r797_Tsat\") Compute the saturation temperature at pressure ps. Arguments Type Intent Optional Attributes Name integer(kind=c_size_t), intent(in), value :: N real(kind=c_double), intent(in) :: ps (N) real(kind=c_double), intent(out) :: Ts (N) Calls proc~~capi_tsat~~CallsGraph proc~capi_tsat capi_Tsat proc~tsat Tsat proc~capi_tsat->proc~tsat 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_tsat.html"},{"title":"capi_psat – iapws","text":"public pure subroutine capi_psat(N, Ts, ps) bind(C, name=\"iapws_r797_psat\") Compute the saturation pressure at temperature Ts. Arguments Type Intent Optional Attributes Name integer(kind=c_size_t), intent(in), value :: N real(kind=c_double), intent(in) :: Ts (N) real(kind=c_double), intent(out) :: ps (N) Calls proc~~capi_psat~~CallsGraph proc~capi_psat capi_psat proc~psat psat proc~capi_psat->proc~psat 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_psat.html"},{"title":"get_version – iapws","text":"public  function get_version() result(fptr) Get the version. \nReturns Arguments None Return Value character(len=:), pointer Pointer to the version string. 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":"iapws__capi_version – iapws","text":"Uses iso_c_binding iapws__version module~~iapws__capi_version~~UsesGraph module~iapws__capi_version iapws__capi_version iso_c_binding iso_c_binding module~iapws__capi_version->iso_c_binding module~iapws__version iapws__version module~iapws__capi_version->module~iapws__version 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~~iapws__capi_version~~UsedByGraph module~iapws__capi_version iapws__capi_version module~iapws__capi iapws__capi module~iapws__capi->module~iapws__capi_version module~iapws iapws module~iapws->module~iapws__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_version () result(cptr) bind(c,name=\"iapws_get_version\")) Get the version. Arguments None Return Value type(c_ptr) Pointer to version string.","tags":"","loc":"module/iapws__capi_version.html"},{"title":"iapws__capi_r783 – iapws","text":"Module for IAPWS R2-83: C API. Uses iso_c_binding iapws__r283 module~~iapws__capi_r783~~UsesGraph module~iapws__capi_r783 iapws__capi_r783 iso_c_binding iso_c_binding module~iapws__capi_r783->iso_c_binding module~iapws__r283 iapws__r283 module~iapws__capi_r783->module~iapws__r283 stdlib_kinds stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__capi_r783~~UsedByGraph module~iapws__capi_r783 iapws__capi_r783 module~iapws__capi iapws__capi module~iapws__capi->module~iapws__capi_r783 module~iapws iapws module~iapws->module~iapws__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. Variables Type Visibility Attributes Name Initial real(kind=c_double), public, bind(C, name=\"0\") :: capi_Tc_D2O = Tc_D2O Critical temperature for D2O in K real(kind=c_double), public, bind(C, name=\"0\") :: capi_Tc_H2O = Tc_H2O Critical temperature for H2O in K real(kind=c_double), public, bind(C, name=\"0\") :: capi_pc_D2O = pc_D2O Critical pressure for D2O in MPa real(kind=c_double), public, bind(C, name=\"0\") :: capi_pc_H2O = pc_H2O Critical pressure for H2O in MPa real(kind=c_double), public, bind(C, name=\"0\") :: capi_rhoc_D2O = rhoc_D2O Critical density for D2O in kg.m-3 real(kind=c_double), public, bind(C, name=\"0\") :: capi_rhoc_H2O = rhoc_H2O Critical density for H2O in kg.m-3","tags":"","loc":"module/iapws__capi_r783.html"},{"title":"iapws__g704 – iapws","text":"Module for IAPWS G7-04.\nEFGH coefficients for gases in heavywater.\nai and bi coefficients for water Uses iapws__r283 stdlib_kinds ieee_arithmetic module~~iapws__g704~~UsesGraph module~iapws__g704 iapws__g704 ieee_arithmetic ieee_arithmetic module~iapws__g704->ieee_arithmetic module~iapws__r283 iapws__r283 module~iapws__g704->module~iapws__r283 stdlib_kinds stdlib_kinds module~iapws__g704->stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__g704~~UsedByGraph module~iapws__g704 iapws__g704 module~iapws iapws module~iapws->module~iapws__g704 module~iapws__capi iapws__capi module~iapws->module~iapws__capi module~iapws__capi_g704 iapws__capi_g704 module~iapws__capi_g704->module~iapws__g704 module~iapws__capi->module~iapws__capi_g704 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. Derived Types type, public :: gas_type Derived type containing a allocatable string for representing a gas. Components Type Visibility Attributes Name Initial character(len=:), public, allocatable :: gas Gas Functions public  function gases (heavywater) result(list_gases) Returns the list of available gases. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value type( gas_type ), pointer, (:) Available gases. public  function gases2 (heavywater) result(str_gases) Returns the available gases as a string. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value character(len=:), pointer Available gases public pure function ngases (heavywater) result(n) Returns the number of gases. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value integer(kind=int32) Number of gases. Subroutines public pure subroutine kd (T, gas, heavywater, k) Compute the vapor-liquid constant kd for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: T (:) Temperature in K. character(len=*), intent(in) :: gas Gas. integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=dp), intent(out) :: k (:) Vapor-liquid constant. Filled with NaNs if gas not found. public pure subroutine kh (T, gas, heavywater, k) Compute the henry constant kH for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: T (:) Temperature in K. character(len=*), intent(in) :: gas Gas. integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=dp), intent(out) :: k (:) Henry constant. Filled with NaNs if gas not found.","tags":"","loc":"module/iapws__g704.html"},{"title":"iapws – iapws","text":"Main module for the IAPWS library. Uses iapws__version iapws__capi iapws__r797 iapws__g704 iapws__r283 module~~iapws~~UsesGraph module~iapws iapws module~iapws__capi iapws__capi module~iapws->module~iapws__capi module~iapws__g704 iapws__g704 module~iapws->module~iapws__g704 module~iapws__r283 iapws__r283 module~iapws->module~iapws__r283 module~iapws__r797 iapws__r797 module~iapws->module~iapws__r797 module~iapws__version iapws__version module~iapws->module~iapws__version module~iapws__capi_g704 iapws__capi_g704 module~iapws__capi->module~iapws__capi_g704 module~iapws__capi_r783 iapws__capi_r783 module~iapws__capi->module~iapws__capi_r783 module~iapws__capi_version iapws__capi_version module~iapws__capi->module~iapws__capi_version module~iapws__g704->module~iapws__r283 ieee_arithmetic ieee_arithmetic module~iapws__g704->ieee_arithmetic stdlib_kinds stdlib_kinds module~iapws__g704->stdlib_kinds module~iapws__r283->stdlib_kinds module~iapws__r797->module~iapws__r283 module~iapws__r797->ieee_arithmetic module~iapws__r797->stdlib_kinds module~iapws__capi_g704->module~iapws__g704 iso_c_binding iso_c_binding module~iapws__capi_g704->iso_c_binding iso_fortran_env iso_fortran_env module~iapws__capi_g704->iso_fortran_env module~iapws__capi_r783->module~iapws__r283 module~iapws__capi_r783->iso_c_binding module~iapws__capi_version->module~iapws__version module~iapws__capi_version->iso_c_binding 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/iapws.html"},{"title":"iapws__capi – iapws","text":"Main module for the IAPWS library: C API. Uses iapws__capi_r783 iapws__capi_version iapws__capi_g704 module~~iapws__capi~~UsesGraph module~iapws__capi iapws__capi module~iapws__capi_g704 iapws__capi_g704 module~iapws__capi->module~iapws__capi_g704 module~iapws__capi_r783 iapws__capi_r783 module~iapws__capi->module~iapws__capi_r783 module~iapws__capi_version iapws__capi_version module~iapws__capi->module~iapws__capi_version iso_c_binding iso_c_binding module~iapws__capi_g704->iso_c_binding iso_fortran_env iso_fortran_env module~iapws__capi_g704->iso_fortran_env module~iapws__g704 iapws__g704 module~iapws__capi_g704->module~iapws__g704 module~iapws__capi_r783->iso_c_binding module~iapws__r283 iapws__r283 module~iapws__capi_r783->module~iapws__r283 module~iapws__capi_version->iso_c_binding module~iapws__version iapws__version module~iapws__capi_version->module~iapws__version module~iapws__g704->module~iapws__r283 ieee_arithmetic ieee_arithmetic module~iapws__g704->ieee_arithmetic stdlib_kinds stdlib_kinds module~iapws__g704->stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__capi~~UsedByGraph module~iapws__capi iapws__capi module~iapws iapws module~iapws->module~iapws__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.","tags":"","loc":"module/iapws__capi.html"},{"title":"iapws__capi_g704 – iapws","text":"Module for IAPWS G704 : C API. Uses iso_c_binding iapws__g704 iso_fortran_env module~~iapws__capi_g704~~UsesGraph module~iapws__capi_g704 iapws__capi_g704 iso_c_binding iso_c_binding module~iapws__capi_g704->iso_c_binding iso_fortran_env iso_fortran_env module~iapws__capi_g704->iso_fortran_env module~iapws__g704 iapws__g704 module~iapws__capi_g704->module~iapws__g704 ieee_arithmetic ieee_arithmetic module~iapws__g704->ieee_arithmetic module~iapws__r283 iapws__r283 module~iapws__g704->module~iapws__r283 stdlib_kinds stdlib_kinds module~iapws__g704->stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__capi_g704~~UsedByGraph module~iapws__capi_g704 iapws__capi_g704 module~iapws__capi iapws__capi module~iapws__capi->module~iapws__capi_g704 module~iapws iapws module~iapws->module~iapws__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_gases (heavywater) result(list_gases) bind(C, name=\"iapws_g704_gases\")) Returns the list of available gases. Arguments Type Intent Optional Attributes Name integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). Return Value type(c_ptr) Available gases. public pure function capi_ngases (heavywater) result(n) bind(C, name=\"iapws_g704_ngases\")) Returns the number of gases. Arguments Type Intent Optional Attributes Name integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). Return Value integer(kind=c_int) Number of gases. Subroutines public  subroutine capi_kd (T, gas, heavywater, k, size_gas, size_T) bind(C,name=\"iapws_g704_kd\") Compute the vapor-liquid constant for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=c_double), intent(in) :: T (size_T) Temperature in °C. type(c_ptr), intent(in), value :: gas Gas. integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=c_double), intent(inout) :: k (size_T) Vapor-liquid constant. Filled with NaNs if gas not found. integer(kind=c_int), intent(in), value :: size_gas Size of the gas string. integer(kind=c_size_t), intent(in), value :: size_T Size of T and k. public  subroutine capi_kh (T, gas, heavywater, k, size_gas, size_T) bind(C,name=\"iapws_g704_kh\") Compute the henry constant for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=c_double), intent(in) :: T (size_T) Temperature in °C. type(c_ptr), intent(in), value :: gas Gas. integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=c_double), intent(inout) :: k (size_T) Henry constant. Filled with NaNs if gas not found. integer(kind=c_int), intent(in), value :: size_gas Size of the gas string. integer(kind=c_size_t), intent(in), value :: size_T Size of T and k.","tags":"","loc":"module/iapws__capi_g704.html"},{"title":"iapws__r283 – iapws","text":"Module for IAPWS R2-83. Uses stdlib_kinds module~~iapws__r283~~UsesGraph module~iapws__r283 iapws__r283 stdlib_kinds stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__r283~~UsedByGraph module~iapws__r283 iapws__r283 module~iapws iapws module~iapws->module~iapws__r283 module~iapws__g704 iapws__g704 module~iapws->module~iapws__g704 module~iapws__r797 iapws__r797 module~iapws->module~iapws__r797 module~iapws__capi iapws__capi module~iapws->module~iapws__capi module~iapws__capi_r783 iapws__capi_r783 module~iapws__capi_r783->module~iapws__r283 module~iapws__g704->module~iapws__r283 module~iapws__r797->module~iapws__r283 module~iapws__capi->module~iapws__capi_r783 module~iapws__capi_g704 iapws__capi_g704 module~iapws__capi->module~iapws__capi_g704 module~iapws__capi_g704->module~iapws__g704 module~iapws__capi_r797 iapws__capi_r797 module~iapws__capi_r797->module~iapws__r797 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 real(kind=dp), public, parameter :: Tc_D2O = 643.847_dp Critical temperature for D2O in K real(kind=dp), public, parameter :: Tc_H2O = 647.096_dp Critical temperature for H2O in K real(kind=dp), public, parameter :: pc_D2O = 21.671_dp Critical pressure for H2O in MPa real(kind=dp), public, parameter :: pc_H2O = 22.064_dp Critical pressure for H2O in MPa real(kind=dp), public, parameter :: rhoc_D2O = 356.0_dp Critical density for H2O in kg.m-3 real(kind=dp), public, parameter :: rhoc_H2O = 322.0_dp Critical density for H2O in kg.m-3","tags":"","loc":"module/iapws__r283.html"},{"title":"iapws__r797 – iapws","text":"Module for IAPWS R7-97: Not fully implemented - under development. Uses iapws__r283 stdlib_kinds ieee_arithmetic module~~iapws__r797~~UsesGraph module~iapws__r797 iapws__r797 ieee_arithmetic ieee_arithmetic module~iapws__r797->ieee_arithmetic module~iapws__r283 iapws__r283 module~iapws__r797->module~iapws__r283 stdlib_kinds stdlib_kinds module~iapws__r797->stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__r797~~UsedByGraph module~iapws__r797 iapws__r797 module~iapws iapws module~iapws->module~iapws__r797 module~iapws__capi_r797 iapws__capi_r797 module~iapws__capi_r797->module~iapws__r797 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 pure elemental function iapws_r797_v (P, T) result(res) Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: P real(kind=dp), intent(in) :: T Return Value real(kind=dp) Subroutines public pure subroutine Tsat (ps, Ts) Compute the saturation temperature at pressure ps.\nValidity range 611.213 Pa <= ps <= 22.064 MPa. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: ps (:) Saturation pressure in MPa. real(kind=dp), intent(out) :: Ts (:) Saturation temperature in K. Filled with nan if out of validity range. public pure subroutine psat (Ts, ps) Compute the saturation pressure at temperature Ts. \nValidity range 273.13 K <= Ts <= 647.096 K. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: Ts (:) Saturation temperature in K. real(kind=dp), intent(out) :: ps (:) Saturation pressure in MPa. Filled with nan if out of validity range.","tags":"","loc":"module/iapws__r797.html"},{"title":"iapws__capi_r797 – iapws","text":"Uses iso_c_binding stdlib_kinds iapws__r797 module~~iapws__capi_r797~~UsesGraph module~iapws__capi_r797 iapws__capi_r797 iso_c_binding iso_c_binding module~iapws__capi_r797->iso_c_binding module~iapws__r797 iapws__r797 module~iapws__capi_r797->module~iapws__r797 stdlib_kinds stdlib_kinds module~iapws__capi_r797->stdlib_kinds module~iapws__r797->stdlib_kinds ieee_arithmetic ieee_arithmetic module~iapws__r797->ieee_arithmetic module~iapws__r283 iapws__r283 module~iapws__r797->module~iapws__r283 module~iapws__r283->stdlib_kinds 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. Subroutines public pure subroutine capi_Tsat (N, ps, Ts) bind(C, name=\"iapws_r797_Tsat\") Compute the saturation temperature at pressure ps. Arguments Type Intent Optional Attributes Name integer(kind=c_size_t), intent(in), value :: N real(kind=c_double), intent(in) :: ps (N) real(kind=c_double), intent(out) :: Ts (N) public pure subroutine capi_psat (N, Ts, ps) bind(C, name=\"iapws_r797_psat\") Compute the saturation pressure at temperature Ts. Arguments Type Intent Optional Attributes Name integer(kind=c_size_t), intent(in), value :: N real(kind=c_double), intent(in) :: Ts (N) real(kind=c_double), intent(out) :: ps (N)","tags":"","loc":"module/iapws__capi_r797.html"},{"title":"iapws__version – iapws","text":"Version Used by module~~iapws__version~~UsedByGraph module~iapws__version iapws__version module~iapws iapws module~iapws->module~iapws__version module~iapws__capi iapws__capi module~iapws->module~iapws__capi module~iapws__capi_version iapws__capi_version module~iapws__capi_version->module~iapws__version module~iapws__capi->module~iapws__capi_version 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_version () result(fptr) Get the version. \nReturns Arguments None Return Value character(len=:), pointer Pointer to the version string.","tags":"","loc":"module/iapws__version.html"},{"title":"capi_version.f90 – iapws","text":"This file depends on sourcefile~~capi_version.f90~~EfferentGraph sourcefile~capi_version.f90 capi_version.f90 sourcefile~iapws_version.f90 iapws_version.f90 sourcefile~capi_version.f90->sourcefile~iapws_version.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~~capi_version.f90~~AfferentGraph sourcefile~capi_version.f90 capi_version.f90 sourcefile~capi.f90 capi.f90 sourcefile~capi.f90->sourcefile~capi_version.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~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 iapws__capi_version !! Version: C API. use iso_c_binding , only : c_null_char , c_ptr , c_loc use iapws__version implicit none private character ( len = :), allocatable , target :: version_c public :: capi_get_version contains function capi_get_version () bind ( c , name = \"iapws_get_version\" ) result ( cptr ) !! Get the version. implicit none ! Returns type ( c_ptr ) :: cptr !! Pointer to version string. 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 end module iapws__capi_version","tags":"","loc":"sourcefile/capi_version.f90.html"},{"title":"capi_r283.f90 – iapws","text":"This file depends on sourcefile~~capi_r283.f90~~EfferentGraph sourcefile~capi_r283.f90 capi_r283.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~capi_r283.f90->sourcefile~iapws_r283.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~~capi_r283.f90~~AfferentGraph sourcefile~capi_r283.f90 capi_r283.f90 sourcefile~capi.f90 capi.f90 sourcefile~capi.f90->sourcefile~capi_r283.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~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 iapws__capi_r783 !! Module for IAPWS R2-83: C API. use iso_c_binding , only : c_double use iapws__r283 implicit none private real ( c_double ), protected , bind ( C , name = \"iapws_r283_Tc_H2O\" ) :: capi_Tc_H2O = Tc_H2O !! Critical temperature for H2O in K real ( c_double ), protected , bind ( C , name = \"iapws_r283_Tc_D2O\" ) :: capi_Tc_D2O = Tc_D2O !! Critical temperature for D2O in K real ( c_double ), protected , bind ( C , name = \"iapws_r283_pc_H2O\" ) :: capi_pc_H2O = pc_H2O !! Critical pressure for H2O in MPa real ( c_double ), protected , bind ( C , name = \"iapws_r283_pc_D2O\" ) :: capi_pc_D2O = pc_D2O !! Critical pressure for D2O in MPa real ( c_double ), protected , bind ( C , name = \"iapws_r283_rhoc_H2O\" ) :: capi_rhoc_H2O = rhoc_H2O !! Critical density for H2O in kg.m-3 real ( c_double ), protected , bind ( C , name = \"iapws_r283_rhoc_D2O\" ) :: capi_rhoc_D2O = rhoc_D2O !! Critical density for D2O in kg.m-3 public :: capi_Tc_H2O , & capi_Tc_D2O , & capi_pc_H2O , & capi_pc_D2O , & capi_rhoc_H2O , & capi_rhoc_D2O end module iapws__capi_r783","tags":"","loc":"sourcefile/capi_r283.f90.html"},{"title":"iapws_g704.f90 – iapws","text":"This file depends on sourcefile~~iapws_g704.f90~~EfferentGraph sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~iapws_g704.f90->sourcefile~iapws_r283.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~~iapws_g704.f90~~AfferentGraph sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~capi_g704.f90->sourcefile~iapws_g704.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~iapws_g704.f90 sourcefile~capi.f90 capi.f90 sourcefile~iapws.f90->sourcefile~capi.f90 sourcefile~capi.f90->sourcefile~capi_g704.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 iapws__g704 !! Module for IAPWS G7-04. use stdlib_kinds , only : dp , int32 use ieee_arithmetic , only : ieee_value , ieee_quiet_nan use iapws__r283 implicit none private integer ( int32 ), parameter :: lengas = 5 integer ( int32 ), parameter :: ngas_H2O = 14 integer ( int32 ), parameter :: ngas_D2O = 7 type :: gas_type !! Derived type containing a allocatable string for representing a gas. character ( len = :), allocatable :: gas !! Gas end type type ( gas_type ), allocatable , target :: f_gases (:) character ( len = :), allocatable , target :: f_gases_str real ( dp ), parameter :: T_KELVIN = 27 3.15_dp !! Absolute temperature in KELVIN real ( dp ), parameter :: Tc1_H2O = Tc_H2O real ( dp ), parameter :: pc1_H2O = pc_H2O real ( dp ), parameter :: Tc1_D2O = Tc_D2O real ( dp ), parameter :: pc1_D2O = pc_D2O real ( dp ), parameter :: q_H2O = - 0.023767_dp !! solvent coefficient for kd in water real ( dp ), parameter :: q_D2O = - 0.024552_dp !! solvent coefficient for kd in heavywater !! ABC coefficients for gases in water. type :: abc_t character ( len = lengas ) :: gas !! Gas real ( dp ) :: A !! A Column real ( dp ) :: B !! B Column real ( dp ) :: C !! C Column end type !! EFGH coefficients for gases in heavywater. type :: efgh_t character ( len = lengas ) :: gas !! Gas real ( dp ) :: E !! E Column real ( dp ) :: F !! F Column real ( dp ) :: G !! G Column real ( dp ) :: H !! H Column end type !! ai and bi coefficients for water real ( dp ), dimension ( 6 , 2 ), parameter :: aibi_H2O = reshape ([& - 7.85951783_dp , 1.84408259_dp , - 1 1.78664970_dp , 2 2.68074110_dp , - 1 5.96187190_dp , 1.80122502_dp ,& 1.000_dp , 1.500_dp , 3.000_dp , 3.500_dp , 4.000_dp , 7.500_dp ], [ 6 , 2 ]) !! ai and bi coefficients for heavywater real ( dp ), dimension ( 5 , 2 ), parameter :: aibi_D2O = reshape ([& - 7.8966570_dp , 2 4.7330800_dp , - 2 7.8112800_dp , 9.3559130_dp , - 9.2200830_dp , & 1.00_dp , 1.89_dp , 2.00_dp , 3.00_dp , 3.60_dp ], [ 5 , 2 ]) !! ABC constants water. type ( abc_t ), dimension ( ngas_H2O ), parameter :: abc_H2O = & [ abc_t ( \"He\" , - 3.52839_dp , 7.12983_dp , 4.47770_dp ),& abc_t ( \"Ne\" , - 3.18301_dp , 5.31448_dp , 5.43774_dp ),& abc_t ( \"Ar\" , - 8.40954_dp , 4.29587_dp , 1 0.52779_dp ),& abc_t ( \"Kr\" , - 8.97358_dp , 3.61508_dp , 1 1.29963_dp ),& abc_t ( \"Xe\" , - 1 4.21635_dp , 4.00041_dp , 1 5.60999_dp ),& abc_t ( \"H2\" , - 4.73284_dp , 6.08954_dp , 6.06066_dp ),& abc_t ( \"N2\" , - 9.67578_dp , 4.72162_dp , 1 1.70585_dp ),& abc_t ( \"O2\" , - 9.44833_dp , 4.43822_dp , 1 1.42005_dp ),& abc_t ( \"CO\" , - 1 0.52862_dp , 5.13259_dp , 1 2.01421_dp ),& abc_t ( \"CO2\" , - 8.55445_dp , 4.01195_dp , 9.52345_dp ),& abc_t ( \"H2S\" , - 4.51499_dp , 5.23538_dp , 4.42126_dp ),& abc_t ( \"CH4\" , - 1 0.44708_dp , 4.66491_dp , 1 2.12986_dp ),& abc_t ( \"C2H6\" , - 1 9.67563_dp , 4.51222_dp , 2 0.62567_dp ),& abc_t ( \"SF6\" , - 1 6.56118_dp , 2.15289_dp , 2 0.35440_dp )] !! ABC constants for heavywater type ( abc_t ), dimension ( ngas_D2O ), parameter :: abc_D2O = & [ abc_t ( \"He\" , - 0.72643_dp , 7.02134_dp , 2.04433_dp ),& abc_t ( \"Ne\" , - 0.91999_dp , 5.65327_dp , 3.17247_dp ),& abc_t ( \"Ar\" , - 7.17725_dp , 4.48177_dp , 9.31509_dp ),& abc_t ( \"Kr\" , - 8.47059_dp , 3.91580_dp , 1 0.69433_dp ),& abc_t ( \"Xe\" , - 1 4.46485_dp , 4.42330_dp , 1 5.60919_dp ),& abc_t ( \"D2\" , - 5.33843_dp , 6.15723_dp , 6.53046_dp ),& abc_t ( \"CH4\" , - 1 0.01915_dp , 4.73368_dp , 1 1.75711_dp )] !! ci and di coefficients for water real ( dp ), dimension ( 6 , 2 ), parameter :: cidi_H2O = reshape ([& 1.99274064_dp , 1.09965342_dp , - 0.510839303_dp , - 1.75493479_dp , - 4 5.5170352_dp , - 6.7469445d5 ,& 1.0_dp / 3.0_dp , 2.0_dp / 3.0_dp , 5.0_dp / 3.0_dp , 1 6.0_dp / 3.0_dp , 4 3.0_dp / 3.0_dp , 11 0.0_dp / 3.0_dp ], [ 6 , 2 ]) !! ci and di coefficients for heavywater real ( dp ), dimension ( 4 , 2 ), parameter :: cidi_D2O = reshape ([& 2.7072_dp , 0.58662_dp , - 1.3069_dp , - 4 5.663_dp , & 0.374_dp , 1.45_dp , 2.6_dp , 1 2.3_dp ], [ 4 , 2 ]) !! EFGH constants for water type ( efgh_t ), dimension ( ngas_H2O ), parameter :: efgh_H2O = & [ efgh_t ( \"He\" , 226 7.4082_dp , - 2.9616_dp , - 3.2604_dp , 7.8819_dp ),& efgh_t ( \"Ne\" , 250 7.3022_dp , - 3 8.6955_dp , 11 0.3992_dp , - 7 1.9096_dp ),& efgh_t ( \"Ar\" , 231 0.5463_dp , - 4 6.7034_dp , 16 0.4066_dp , - 11 8.3043_dp ),& efgh_t ( \"Kr\" , 227 6.9722_dp , - 6 1.1494_dp , 21 4.0117_dp , - 15 9.0407_dp ),& efgh_t ( \"Xe\" , 202 2.8375_dp , 1 6.7913_dp , - 6 1.2401_dp , 4 1.9236_dp ),& efgh_t ( \"H2\" , 228 6.4159_dp , 1 1.3397_dp , - 7 0.7279_dp , 6 3.0631_dp ),& efgh_t ( \"N2\" , 238 8.8777_dp , - 1 4.9593_dp , 4 2.0179_dp , - 2 9.4396_dp ),& efgh_t ( \"O2\" , 230 5.0674_dp , - 1 1.3240_dp , 2 5.3224_dp , - 1 5.6449_dp ),& efgh_t ( \"CO\" , 234 6.2291_dp , - 5 7.6317_dp , 20 4.5324_dp , - 15 2.6377_dp ),& efgh_t ( \"CO2\" , 167 2.9376_dp , 2 8.1751_dp , - 11 2.4619_dp , 8 5.3807_dp ),& efgh_t ( \"H2S\" , 131 9.1205_dp , 1 4.1571_dp , - 4 6.8361_dp , 3 3.2266_dp ),& efgh_t ( \"CH4\" , 221 5.6977_dp , - 0.1089_dp , - 6.6240_dp , 4.6789_dp ),& efgh_t ( \"C2H6\" , 214 3.8121_dp , 6.8859_dp , - 1 2.6084_dp , 0.0_dp ),& efgh_t ( \"SF6\" , 287 1.7265_dp , - 6 6.7556_dp , 22 9.7191_dp , - 17 2.7400_dp )] !! EFGH constants for heavywater type ( efgh_t ), dimension ( ngas_D2O ), parameter :: efgh_D2O = & [ efgh_t ( \"He\" , 229 3.2474_dp , - 5 4.7707_dp , 19 4.2924_dp , - 14 2.1257 ), & efgh_t ( \"Ne\" , 243 9.6677_dp , - 9 3.4934_dp , 33 0.7783_dp , - 24 3.0100_dp ),& efgh_t ( \"Ar\" , 226 9.2352_dp , - 5 3.6321_dp , 19 1.8421_dp , - 14 3.7659_dp ),& efgh_t ( \"Kr\" , 225 0.3857_dp , - 4 2.0835_dp , 14 0.7656_dp , - 10 2.7592_dp ),& efgh_t ( \"Xe\" , 203 8.3656_dp , 6 8.1228_dp , - 27 1.3390_dp , 20 7.7984_dp ),& efgh_t ( \"D2\" , 214 1.3214_dp , - 1.9696_dp , 1.6136_dp , 0.0_dp ),& efgh_t ( \"CH4\" , 221 6.0181_dp , - 4 0.7666_dp , 15 2.5778_dp , - 11 7.7430_dp )] public :: gas_type public :: kh , kd public :: ngases public :: gases , gases2 contains pure function findgas_abc ( gas , abc ) result ( value ) !! Find the index of the gas in the ABC table. implicit none character ( len =* ), intent ( in ) :: gas !! Gas. type ( abc_t ), dimension (:), intent ( in ) :: abc !! ABC table. integer ( int32 ) :: value !! index of the gas. integer ( int32 ) :: i value = 0 do i = 1 , size ( abc ) if ( trim ( gas ) . eq . abc ( i )% gas ) then value = i exit endif end do end function pure function findgas_efgh ( gas , efgh ) result ( value ) !! Find the index of the gas in the ABC table. implicit none character ( len =* ), intent ( in ) :: gas !! Gas. type ( efgh_t ), dimension (:), intent ( in ) :: efgh !! EFGH table. integer ( int32 ) :: value !! index of gas. integer ( int32 ) :: i value = 0 do i = 1 , size ( efgh ) if ( trim ( gas ) . eq . efgh ( i )% gas ) then value = i exit endif end do end function pure elemental function f_p1star_H2O ( T ) result ( value ) !! Compute p1* in H2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. real ( dp ) :: value !! p1* in MPa. real ( dp ) :: Tr real ( dp ) :: tau Tr = T / Tc1_H2O tau = 1 - Tr value = exp ( 1 / ( Tr ) * sum ( aibi_H2O (:, 1 ) * tau ** ( aibi_H2O (:, 2 )))) * pc1_H2O end function pure elemental function f_p1star_D2O ( T ) result ( value ) !! Compute p1* in D2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. real ( dp ) :: value !! p1* in MPa. real ( dp ) :: Tr real ( dp ) :: tau Tr = T / Tc1_D2O tau = 1 - Tr value = exp ( 1 / ( Tr ) * sum ( aibi_D2O (:, 1 ) * tau ** ( aibi_D2O (:, 2 )))) * pc1_D2O end function pure elemental function f_kh_p1star_H2O ( T , abc ) result ( value ) !! Compute kh/p1* in H2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( abc_t ), intent ( in ) :: abc !! ABC coefficients. real ( dp ) :: value !! kH/p1* adimensional. real ( dp ) :: Tr real ( dp ) :: tau Tr = T / Tc1_H2O tau = 1 - Tr value = exp ( abc % A / Tr + abc % B * ( tau ** 0.355_dp ) / Tr + abc % C * exp ( tau ) * Tr ** ( - 0.41_dp )) end function pure elemental function f_kh_p1star_D2O ( T , abc ) result ( value ) !! Compute kh/p1* in D2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( abc_t ), intent ( in ) :: abc !! ABC coefficients. real ( dp ) :: value !! kh/p1* adimensional. real ( dp ) :: Tr real ( dp ) :: tau Tr = T / Tc1_D2O tau = 1 - Tr value = exp ( abc % A / Tr + abc % B * ( tau ** 0.355_dp ) / Tr + abc % C * exp ( tau ) * Tr ** ( - 0.41_dp )) end function pure elemental function ft_H2O ( tau ) result ( value ) !! Compute f(t) for H2O. implicit none real ( dp ), intent ( in ) :: tau !! tau = 1-T/Tr. real ( dp ) :: value !! f(t) is adimensional. value = sum ( cidi_H2O (:, 1 ) * tau ** ( cidi_H2O (:, 2 ))) end function pure elemental function ft_D2O ( tau ) result ( value ) !! Compute f(t) for D2O. implicit none real ( dp ), intent ( in ) :: tau !! tau = 1-T/Tr. real ( dp ) :: value !! f(t) is adimensional. value = sum ( cidi_D2O (:, 1 ) * tau ** ( cidi_D2O (:, 2 ))) end function pure elemental function f_kh_H2O ( T , abc ) result ( value ) !! Compute kH in H2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( abc_t ), intent ( in ) :: abc !! ABC coefficients. real ( dp ) :: value !! kH in MPa. value = f_kh_p1star_H2O ( T , abc ) * f_p1star_H2O ( T ) end function pure elemental function f_kh_D2O ( T , abc ) result ( value ) !! Compute kH in D2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( abc_t ), intent ( in ) :: abc !! ABC coefficients. real ( dp ) :: value !! kH in MPa. value = f_kh_p1star_D2O ( T , abc ) * f_p1star_D2O ( T ) end function pure elemental function f_kd_H2O ( T , efgh ) result ( value ) !! Compute kd in H2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( efgh_t ), intent ( in ) :: efgh !! EFGH coefficients. real ( dp ) :: value !! kD adimensional. real ( dp ) :: Tr real ( dp ) :: tau real ( dp ) :: p1 real ( dp ) :: p2 real ( dp ) :: p3 real ( dp ) :: p4 Tr = ( T + T_KELVIN ) / Tc1_H2O tau = 1 - Tr p1 = q_H2O * efgh % F p2 = efgh % E / T * ft_H2O ( tau ) p3 = ( efgh % F + efgh % G * tau ** ( 2.0_dp / 3.0_dp ) + efgh % H * tau ) p4 = exp ( - T / 10 0.0_dp ) value = exp ( p1 + p2 + p3 * p4 ) end function pure elemental function f_kd_D2O ( T , efgh ) result ( value ) !! Compute kd in D2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( efgh_t ), intent ( in ) :: efgh !! EFGH coefficients. real ( dp ) :: value !! kD adimensional. real ( dp ) :: Tr real ( dp ) :: tau real ( dp ) :: p1 real ( dp ) :: p2 real ( dp ) :: p3 real ( dp ) :: p4 Tr = T / Tc1_D2O tau = 1 - Tr p1 = q_D2O * efgh % F p2 = efgh % E / T * ft_D2O ( tau ) p3 = ( efgh % F + efgh % G * tau ** ( 2.0_dp / 3.0_dp ) + efgh % H * tau ) p4 = exp ( - T / 10 0.0_dp ) value = exp ( p1 + p2 + p3 * p4 ) end function pure subroutine kh ( T , gas , heavywater , k ) !! Compute the henry constant kH for a given temperature. implicit none real ( dp ), intent ( in ) :: T (:) !! Temperature in K. character ( len =* ), intent ( in ) :: gas !! Gas. integer ( int32 ), intent ( in ) :: heavywater !! Flag if D2O (1) is used or H2O(0). real ( dp ), intent ( out ) :: k (:) !! Henry constant. Filled with NaNs if gas not found. integer ( int32 ) :: i if ( heavywater > 0 ) then i = findgas_abc ( gas , abc_D2O ) if ( i == 0 ) then k = ieee_value ( 1.0_dp , ieee_quiet_nan ) else k = f_kh_D2O ( T , abc_D2O ( i )) endif else i = findgas_abc ( gas , abc_H2O ) if ( i == 0 ) then k = ieee_value ( 1.0_dp , ieee_quiet_nan ) else k = f_kh_H2O ( T , abc_H2O ( i )) endif endif end subroutine pure subroutine kd ( T , gas , heavywater , k ) !! Compute the vapor-liquid constant kd for a given temperature. implicit none real ( dp ), intent ( in ) :: T (:) !! Temperature in K. character ( len =* ), intent ( in ) :: gas !! Gas. integer ( int32 ), intent ( in ) :: heavywater !! Flag if D2O (1) is used or H2O(0). real ( dp ), intent ( out ) :: k (:) !! Vapor-liquid constant. Filled with NaNs if gas not found. integer ( int32 ) :: i if ( heavywater > 0 ) then i = findgas_efgh ( gas , efgh_D2O ) if ( i == 0 ) then k = ieee_value ( 1.0_dp , ieee_quiet_nan ) else k = f_kd_D2O ( T , efgh_D2O ( i )) endif else i = findgas_efgh ( gas , efgh_H2O ) if ( i == 0 ) then k = ieee_value ( 1.0_dp , ieee_quiet_nan ) else k = f_kd_H2O ( T , efgh_H2O ( i )) endif endif end subroutine pure function ngases ( heavywater ) result ( n ) !! Returns the number of gases. implicit none integer ( int32 ), intent ( in ) :: heavywater !! Flag if D2O (1) is used or H2O(0). integer ( int32 ) :: n !! Number of gases. if ( heavywater > 0 ) then n = ngas_D2O else n = ngas_H2O endif end function function gases ( heavywater ) result ( list_gases ) !! Returns the list of available gases. implicit none ! arguments integer ( int32 ), intent ( in ) :: heavywater !! Flag if D2O (1) is used or H2O(0). type ( gas_type ), pointer :: list_gases (:) !! Available gases. ! variables integer ( int32 ) :: i , n if ( allocated ( f_gases )) then deallocate ( f_gases ) endif if ( heavywater > 0 ) then allocate ( f_gases ( ngas_D2O )) do i = 1 , ngas_D2O if ( allocated ( f_gases ( i )% gas )) then deallocate ( f_gases ( i )% gas ) endif n = len ( trim ( abc_D2O ( i )% gas )) allocate ( character ( len = n ) :: f_gases ( i )% gas ) f_gases ( i )% gas = trim ( abc_D2O ( i )% gas ) enddo else allocate ( f_gases ( ngas_H2O )) do i = 1 , ngas_H2O if ( allocated ( f_gases ( i )% gas )) then deallocate ( f_gases ( i )% gas ) endif n = len ( trim ( abc_H2O ( i )% gas )) allocate ( character ( len = n ) :: f_gases ( i )% gas ) f_gases ( i )% gas = trim ( abc_H2O ( i )% gas ) enddo endif list_gases => f_gases end function function gases2 ( heavywater ) result ( str_gases ) !! Returns the available gases as a string. implicit none ! arguments integer ( int32 ), intent ( in ) :: heavywater !! Flag if D2O (1) is used or H2O(0). character ( len = :), pointer :: str_gases !! Available gases ! variables integer ( int32 ) :: i , j , k , ngas type ( gas_type ), pointer :: f_gases_list (:) f_gases_list => gases ( heavywater ) ngas = size ( f_gases_list ) k = 0 do i = 1 , ngas k = k + len ( f_gases_list ( i )% gas ) enddo if ( allocated ( f_gases_str )) then deallocate ( f_gases_str ) endif allocate ( character ( len = k + ngas ) :: f_gases_str ) i = 1 j = 1 k = 1 do i = 1 , ngas do j = 1 , len ( f_gases_list ( i )% gas ) f_gases_str ( k : k ) = f_gases_list ( i )% gas ( j : j ) k = k + 1 enddo f_gases_str ( k : k ) = \",\" k = k + 1 enddo f_gases_str ( len ( f_gases_str ): len ( f_gases_str )) = \"\" str_gases => f_gases_str end function end module","tags":"","loc":"sourcefile/iapws_g704.f90.html"},{"title":"iapws.f90 – iapws","text":"This file depends on sourcefile~~iapws.f90~~EfferentGraph sourcefile~iapws.f90 iapws.f90 sourcefile~capi.f90 capi.f90 sourcefile~iapws.f90->sourcefile~capi.f90 sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~iapws.f90->sourcefile~iapws_g704.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~iapws.f90->sourcefile~iapws_r283.f90 sourcefile~iapws_r797.f90 iapws_r797.f90 sourcefile~iapws.f90->sourcefile~iapws_r797.f90 sourcefile~iapws_version.f90 iapws_version.f90 sourcefile~iapws.f90->sourcefile~iapws_version.f90 sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~capi.f90->sourcefile~capi_g704.f90 sourcefile~capi_r283.f90 capi_r283.f90 sourcefile~capi.f90->sourcefile~capi_r283.f90 sourcefile~capi_version.f90 capi_version.f90 sourcefile~capi.f90->sourcefile~capi_version.f90 sourcefile~iapws_g704.f90->sourcefile~iapws_r283.f90 sourcefile~iapws_r797.f90->sourcefile~iapws_r283.f90 sourcefile~capi_g704.f90->sourcefile~iapws_g704.f90 sourcefile~capi_r283.f90->sourcefile~iapws_r283.f90 sourcefile~capi_version.f90->sourcefile~iapws_version.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 iapws !! Main module for the IAPWS library. use iapws__version use iapws__g704 use iapws__r283 use iapws__r797 use iapws__capi end module","tags":"","loc":"sourcefile/iapws.f90.html"},{"title":"capi.f90 – iapws","text":"This file depends on sourcefile~~capi.f90~~EfferentGraph sourcefile~capi.f90 capi.f90 sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~capi.f90->sourcefile~capi_g704.f90 sourcefile~capi_r283.f90 capi_r283.f90 sourcefile~capi.f90->sourcefile~capi_r283.f90 sourcefile~capi_version.f90 capi_version.f90 sourcefile~capi.f90->sourcefile~capi_version.f90 sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~capi_g704.f90->sourcefile~iapws_g704.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~capi_r283.f90->sourcefile~iapws_r283.f90 sourcefile~iapws_version.f90 iapws_version.f90 sourcefile~capi_version.f90->sourcefile~iapws_version.f90 sourcefile~iapws_g704.f90->sourcefile~iapws_r283.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~~capi.f90~~AfferentGraph sourcefile~capi.f90 capi.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~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 iapws__capi !! Main module for the IAPWS library: C API. use iapws__capi_version use iapws__capi_r783 use iapws__capi_g704 end module iapws__capi","tags":"","loc":"sourcefile/capi.f90.html"},{"title":"capi_g704.f90 – iapws","text":"This file depends on sourcefile~~capi_g704.f90~~EfferentGraph sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~capi_g704.f90->sourcefile~iapws_g704.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~iapws_g704.f90->sourcefile~iapws_r283.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~~capi_g704.f90~~AfferentGraph sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~capi.f90 capi.f90 sourcefile~capi.f90->sourcefile~capi_g704.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~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 iapws__capi_g704 !! Module for IAPWS G704 : C API. use iso_fortran_env use iso_c_binding , only : c_double , c_int , c_ptr , c_f_pointer , c_char , c_size_t , c_null_char , c_loc use iapws__g704 implicit none private type , bind ( C ) :: c_char_p type ( c_ptr ) :: p end type type :: cgas_type character ( kind = c_char , len = 1 ), allocatable :: gas (:) end type type ( cgas_type ), allocatable , target :: c_gases (:) type ( c_char_p ), allocatable , target :: char_pp (:) character ( len = :), allocatable , target :: c_gases_str public :: capi_kh , capi_kd public :: capi_ngases public :: capi_gases contains subroutine capi_kh ( T , gas , heavywater , k , size_gas , size_T ) bind ( C , name = \"iapws_g704_kh\" ) !! Compute the henry constant for a given temperature. implicit none ! arguments integer ( c_int ), intent ( in ), value :: size_gas !! Size of the gas string. integer ( c_size_t ), intent ( in ), value :: size_T !! Size of T and k. real ( c_double ), intent ( in ) :: T ( size_T ) !! Temperature in °C. type ( c_ptr ), intent ( in ), value :: gas !! Gas. integer ( c_int ), intent ( in ), value :: heavywater !! Flag if D2O (1) is used or H2O(0). real ( c_double ), intent ( inout ) :: k ( size_T ) !! Henry constant. Filled with NaNs if gas not found. ! variables character , pointer , dimension (:) :: c2f_gas character ( len = size_gas ) :: f_gas integer ( int32 ) :: i call c_f_pointer ( gas , c2f_gas , shape = [ size_gas ]) do i = 1 , size_gas f_gas ( i : i ) = c2f_gas ( i ) enddo call kh ( T , f_gas , heavywater , k ) end subroutine subroutine capi_kd ( T , gas , heavywater , k , size_gas , size_T ) bind ( C , name = \"iapws_g704_kd\" ) !! Compute the vapor-liquid constant for a given temperature. implicit none ! arguments integer ( c_size_t ), intent ( in ), value :: size_T !! Size of T and k. integer ( c_int ), intent ( in ), value :: size_gas !! Size of the gas string. real ( c_double ), intent ( in ) :: T ( size_T ) !! Temperature in °C. type ( c_ptr ), intent ( in ), value :: gas !! Gas. integer ( c_int ), intent ( in ), value :: heavywater !! Flag if D2O (1) is used or H2O(0). real ( c_double ), intent ( inout ) :: k ( size_T ) !! Vapor-liquid constant. Filled with NaNs if gas not found. ! variables character , pointer , dimension (:) :: c2f_gas character ( len = size_gas ) :: f_gas integer ( int32 ) :: i call c_f_pointer ( gas , c2f_gas , shape = [ size_gas ]) do i = 1 , size_gas f_gas ( i : i ) = c2f_gas ( i ) enddo call kd ( T , f_gas , heavywater , k ) end subroutine pure function capi_ngases ( heavywater ) bind ( C , name = \"iapws_g704_ngases\" ) result ( n ) !! Returns the number of gases. implicit none ! arguments integer ( c_int ), intent ( in ), value :: heavywater !! Flag if D2O (1) is used or H2O(0). integer ( c_int ) :: n !! Number of gases. n = ngases ( heavywater ) end function function capi_gases ( heavywater ) bind ( C , name = \"iapws_g704_gases\" ) result ( list_gases ) !! Returns the list of available gases. implicit none ! arguments integer ( c_int ), intent ( in ), value :: heavywater !! Flag if D2O (1) is used or H2O(0). type ( c_ptr ) :: list_gases !! Available gases. ! variables integer ( int32 ) :: i , j , ngas , n type ( gas_type ), pointer :: f_gases (:) => null () f_gases => gases ( heavywater ) ngas = size ( f_gases ) if ( allocated ( c_gases )) then deallocate ( c_gases ) endif allocate ( c_gases ( ngas )) if ( allocated ( char_pp )) then deallocate ( char_pp ) endif allocate ( char_pp ( ngas )) do i = 1 , ngas if ( allocated ( c_gases ( i )% gas )) then deallocate ( c_gases ( i )% gas ) endif n = len ( f_gases ( i )% gas ) allocate ( c_gases ( i )% gas ( n + 1 )) do j = 1 , n c_gases ( i )% gas ( j ) = f_gases ( i )% gas ( j : j ) enddo c_gases ( i )% gas ( n + 1 ) = c_null_char char_pp ( i )% p = c_loc ( c_gases ( i )% gas ) enddo list_gases = c_loc ( char_pp ) end function function capi_gases2 ( heavywater ) bind ( C , name = \"iapws_g704_gases2\" ) result ( str_gases ) !! Returns the available gases as a string. implicit none ! arguments integer ( c_int ), intent ( in ), value :: heavywater !! Flag if D2O (1) is used or H2O(0). type ( c_ptr ) :: str_gases !! Available gases. ! variables character ( len = :), pointer :: f_gases_str => null () f_gases_str => gases2 ( heavywater ) if ( allocated ( c_gases_str )) then deallocate ( c_gases_str ) endif allocate ( character ( len = len ( f_gases_str )) :: c_gases_str ) c_gases_str = f_gases_str c_gases_str ( len ( f_gases_str ): len ( f_gases_str )) = c_null_char str_gases = c_loc ( c_gases_str ) end function end module iapws__capi_g704","tags":"","loc":"sourcefile/capi_g704.f90.html"},{"title":"iapws_r283.f90 – iapws","text":"Files dependent on this one sourcefile~~iapws_r283.f90~~AfferentGraph sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~capi_r283.f90 capi_r283.f90 sourcefile~capi_r283.f90->sourcefile~iapws_r283.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~iapws_r283.f90 sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~iapws.f90->sourcefile~iapws_g704.f90 sourcefile~iapws_r797.f90 iapws_r797.f90 sourcefile~iapws.f90->sourcefile~iapws_r797.f90 sourcefile~capi.f90 capi.f90 sourcefile~iapws.f90->sourcefile~capi.f90 sourcefile~iapws_g704.f90->sourcefile~iapws_r283.f90 sourcefile~iapws_r797.f90->sourcefile~iapws_r283.f90 sourcefile~capi.f90->sourcefile~capi_r283.f90 sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~capi.f90->sourcefile~capi_g704.f90 sourcefile~capi_g704.f90->sourcefile~iapws_g704.f90 sourcefile~capi_r797.f90 capi_r797.f90 sourcefile~capi_r797.f90->sourcefile~iapws_r797.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 iapws__r283 !! Module for IAPWS R2-83. use stdlib_kinds , only : dp implicit none private real ( dp ), parameter :: Tc_H2O = 64 7.096_dp !! Critical temperature for H2O in K real ( dp ), parameter :: Tc_D2O = 64 3.847_dp !! Critical temperature for D2O in K real ( dp ), parameter :: pc_H2O = 2 2.064_dp !! Critical pressure for H2O in MPa real ( dp ), parameter :: pc_D2O = 2 1.671_dp !! Critical pressure for H2O in MPa real ( dp ), parameter :: rhoc_H2O = 32 2.0_dp !! Critical density for H2O in kg.m-3 real ( dp ), parameter :: rhoc_D2O = 35 6.0_dp !! Critical density for H2O in kg.m-3 public :: Tc_H2O , Tc_D2O , pc_H2O , pc_D2O , rhoc_H2O , rhoc_D2O end module","tags":"","loc":"sourcefile/iapws_r283.f90.html"},{"title":"iapws_r797.f90 – iapws","text":"This file depends on sourcefile~~iapws_r797.f90~~EfferentGraph sourcefile~iapws_r797.f90 iapws_r797.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~iapws_r797.f90->sourcefile~iapws_r283.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~~iapws_r797.f90~~AfferentGraph sourcefile~iapws_r797.f90 iapws_r797.f90 sourcefile~capi_r797.f90 capi_r797.f90 sourcefile~capi_r797.f90->sourcefile~iapws_r797.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~iapws_r797.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 iapws__r797 !! Module for IAPWS R7-97: Not fully implemented - under development. use stdlib_kinds , only : dp use ieee_arithmetic use iapws__r283 , only : Tc_H2O , pc_H2O , rhoc_H2O implicit none private public :: iapws_r797_v , psat , Tsat real ( dp ), parameter :: T_KELVIN = 27 3.15_dp !! Parameters from IAPWS R7-97 real ( dp ), parameter :: Tc = Tc_H2O !! critical temperature of water in K real ( dp ), parameter :: pc = pc_H2O !! critical pressure of the water in MPa real ( dp ), parameter :: rhoc = rhoc_H2O !! critical density of the water in kg.m-3. real ( dp ), parameter :: R = 0.461526_dp !! Specific gas constant 0.461 526 kJ.kg-1.K-1 ! Region 1 !-------------------------------------------------------------------------------------------------------------------------------- real ( dp ), parameter :: r1_ps = 1 6.53_dp ! p* real ( dp ), parameter :: r1_ts = 138 6.0_dp ! T* real ( dp ) :: IJn_r1f ( 9 , 3 ) = transpose ( reshape ([& 0.0_dp , - 2.0_dp , 0.146_dp , & 0.0_dp , - 1.0_dp , - 0.84548187169114_dp , & 0.0_dp , 0.0_dp , - 0.37563672040d1 , & 0.0_dp , 1.0_dp , 0.33855169168385d1 , & 0.0_dp , 2.0_dp , - 0.95791963387872_dp ,& 0.0_dp , 3.0_dp , 0.15772038513228_dp , & 0.0_dp , 4.0_dp , - 0.16616417199501d-1 , & 0.0_dp , 5.0_dp , - 0.81214629983568d-3 , & 1.0_dp , - 9.0_dp , - 0.28319080123804d-3 ], & [ 3 , 9 ])) !! Coefficients I, J and n for forward equation in region 1. !-------------------------------------------------------------------------------------------------------------------------------- ! Region 4: Saturation line !-------------------------------------------------------------------------------------------------------------------------------- real ( dp ) :: r4_n ( 10 ) = [ & + 0.11670521452767e4_dp , & - 0.72421316703206e6_dp , & - 0.1707384694009292e2_dp , & + 0.12020824702470e5_dp , & - 0.32325550322333e7_dp , & + 0.14915108613530e2_dp , & - 0.48232657361591e4_dp , & + 0.40511340542057e6_dp , & - 0.23855557567849_dp , & + 0.65017534844798e3_dp & ] !! ni coefficients for region 4 (saturation line) real ( dp ), parameter :: r4_Tmin = 27 3.15_dp !! Lower bound for validity for ps(T) in K. real ( dp ), parameter :: r4_Tmax = 64 7.096_dp !! Upper bound for validity ps(T) in K. real ( dp ), parameter :: r4_pmin = 61 1.213e-6_dp !! Lower bound for validity for Ts(p) in MPa real ( dp ), parameter :: r4_pmax = 2 2.064_dp !! Upper bound for validity Ts(p) in MPa real ( dp ), parameter :: r4_Tstar = 1_dp !! K real ( dp ), parameter :: r4_Pstar = 1_dp !! MPa !-------------------------------------------------------------------------------------------------------------------------------- contains ! Region 1 !-------------------------------------------------------------------------------------------------------------------------------- pure elemental function gamma_ ( P , T ) result ( res ) implicit none real ( dp ), intent ( in ) :: P !! Pressure real ( dp ), intent ( in ) :: T !! Temperature real ( dp ) :: pi real ( dp ) :: tau real ( dp ) :: res pi = ( T + T_KELVIN ) / r1_ts tau = P / r1_ps res = sum ( IJn_r1f (:, 3 ) * ( 7.1_dp - pi ) ** IJn_r1f (:, 1 ) * ( tau - 1.222_dp ) ** IJn_r1f (:, 2 )) end function pure elemental function gamma_pi ( P , T ) result ( res ) implicit none real ( dp ), intent ( in ) :: P real ( dp ), intent ( in ) :: T real ( dp ) :: pi real ( dp ) :: tau real ( dp ) :: res pi = ( T + T_KELVIN ) / r1_ts tau = P / r1_ps res = sum ( IJn_r1f (:, 3 ) * IJn_r1f (:, 1 ) * ( 7.1_dp - pi ) ** ( IJn_r1f (:, 1 ) - 1.0_dp ) * ( tau - 1.222_dp ) ** IJn_r1f (:, 2 )) end function pure elemental function iapws_r797_v ( P , T ) result ( res ) implicit none real ( dp ), intent ( in ) :: P real ( dp ), intent ( in ) :: T real ( dp ) :: res res = R * ( T + T_KELVIN ) / P * gamma_pi ( P , T ) end function !-------------------------------------------------------------------------------------------------------------------------------- ! Region 4: Saturation line !-------------------------------------------------------------------------------------------------------------------------------- pure elemental function r4_ps ( Ts ) result ( value ) !! Compute the saturation-pressure line. !! Validity range 273.13 K <= Ts <= 647.096 K. real ( dp ), intent ( in ) :: Ts !! Saturation temperature in K. real ( dp ) :: value !! Saturation pressure in MPa at temperature Ts. Is nan if Ts is out of range. real ( dp ) :: theta , Ts_K , A , B , C if ( Ts < r4_Tmin ) then value = ieee_value ( 1.0_dp , ieee_quiet_nan ) else if ( Ts > r4_Tmax ) then value = ieee_value ( 1.0_dp , ieee_quiet_nan ) else Ts_K = Ts / r4_Tstar theta = Ts_K + r4_n ( 9 ) / ( Ts_K - r4_n ( 10 )) A = theta ** 2 + r4_n ( 1 ) * theta + r4_n ( 2 ) B = r4_n ( 3 ) * theta ** 2 + r4_n ( 4 ) * theta + r4_n ( 5 ) C = r4_n ( 6 ) * theta ** 2 + r4_n ( 7 ) * theta + r4_n ( 8 ) value = r4_Pstar * ( 2 * C / ( - B + ( B ** 2 - 4 * A * C ) ** ( 0.5_dp ))) ** ( 4.0_dp ) endif end function pure elemental function r4_Ts ( ps ) result ( value ) !! Compute the saturation-pressure line. !! Validity range 611.213 Pa <= ps <= 22.064 MPa. real ( dp ), intent ( in ) :: ps !! Saturation pressure in MPa. real ( dp ) :: value !! Saturation temperature in K at pressure ps. Is nan if ps is out of range. real ( dp ) :: beta , D , E , F , G if ( ps < r4_pmin ) then value = ieee_value ( 1.0_dp , ieee_quiet_nan ) else if ( ps > r4_pmax ) then value = ieee_value ( 1.0_dp , ieee_quiet_nan ) else beta = ( ps / r4_Pstar ) ** ( 0.25_dp ) E = beta ** 2 + r4_n ( 3 ) * beta + r4_n ( 6 ) F = r4_n ( 1 ) * beta ** 2 + r4_n ( 4 ) * beta + r4_n ( 7 ) G = r4_n ( 2 ) * beta ** 2 + r4_n ( 5 ) * beta + r4_n ( 8 ) D = 2 * G / ( - F - ( F ** 2 - 4 * E * G ) ** ( 0.5_dp )) value = r4_Tstar * ( r4_n ( 10 ) + D - (( r4_n ( 10 ) + D ) ** 2.0_dp - 4.0_dp * ( r4_n ( 9 ) + r4_n ( 10 ) * D )) ** 0.5_dp ) / 2.0_dp endif end function pure subroutine psat ( Ts , ps ) !! Compute the saturation pressure at temperature Ts. !! Validity range 273.13 K <= Ts <= 647.096 K. real ( dp ), intent ( in ) :: Ts (:) !! Saturation temperature in K. real ( dp ), intent ( out ) :: ps (:) !! Saturation pressure in MPa. Filled with nan if out of validity range. ps = r4_ps ( Ts ) end subroutine pure subroutine Tsat ( ps , Ts ) !! Compute the saturation temperature at pressure ps. !! Validity range 611.213 Pa <= ps <= 22.064 MPa. real ( dp ), intent ( in ) :: ps (:) !! Saturation pressure in MPa. real ( dp ), intent ( out ) :: Ts (:) !! Saturation temperature in K. Filled with nan if out of validity range. Ts = r4_Ts ( ps ) end subroutine !-------------------------------------------------------------------------------------------------------------------------------- end module","tags":"","loc":"sourcefile/iapws_r797.f90.html"},{"title":"capi_r797.f90 – iapws","text":"This file depends on sourcefile~~capi_r797.f90~~EfferentGraph sourcefile~capi_r797.f90 capi_r797.f90 sourcefile~iapws_r797.f90 iapws_r797.f90 sourcefile~capi_r797.f90->sourcefile~iapws_r797.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~iapws_r797.f90->sourcefile~iapws_r283.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 iapws__capi_r797 use stdlib_kinds , only : dp , int32 use iso_c_binding , only : c_double , c_int , c_size_t use iapws__r797 implicit none private public :: capi_psat , capi_Tsat contains pure subroutine capi_psat ( N , Ts , ps ) bind ( C , name = \"iapws_r797_psat\" ) !! Compute the saturation pressure at temperature Ts. integer ( c_size_t ), intent ( in ), value :: N real ( c_double ), intent ( in ) :: Ts ( N ) real ( c_double ), intent ( out ) :: ps ( N ) call psat ( Ts , ps ) end subroutine pure subroutine capi_Tsat ( N , ps , Ts ) bind ( C , name = \"iapws_r797_Tsat\" ) !! Compute the saturation temperature at pressure ps. integer ( c_size_t ), intent ( in ), value :: N real ( c_double ), intent ( in ) :: ps ( N ) real ( c_double ), intent ( out ) :: Ts ( N ) call Tsat ( ps , Ts ) end subroutine end module iapws__capi_r797","tags":"","loc":"sourcefile/capi_r797.f90.html"},{"title":"iapws_version.f90 – iapws","text":"Files dependent on this one sourcefile~~iapws_version.f90~~AfferentGraph sourcefile~iapws_version.f90 iapws_version.f90 sourcefile~capi_version.f90 capi_version.f90 sourcefile~capi_version.f90->sourcefile~iapws_version.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~iapws_version.f90 sourcefile~capi.f90 capi.f90 sourcefile~iapws.f90->sourcefile~capi.f90 sourcefile~capi.f90->sourcefile~capi_version.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 iapws__version !! Version implicit none private character ( len =* ), parameter :: version = \"0.4.0\" character ( len = :), allocatable , target :: version_f public :: get_version contains function get_version () result ( fptr ) !! Get the version. implicit none !! Returns character ( len = :), pointer :: fptr !! Pointer to the version string. if ( allocated ( version_f )) then deallocate ( version_f ) endif allocate ( character ( len = len ( version )) :: version_f ) version_f = version fptr => version_f end function end module iapws__version","tags":"","loc":"sourcefile/iapws_version.f90.html"},{"title":"Contributing and specs – iapws","text":"Water properties for Modern Fortran.","tags":"","loc":"page/index.html"},{"title":"Changelog – iapws","text":"Version 0.4.0 Version 0.3.0 Version 0.2.2 Version 0.2.1 Version 0.2.0 Version 0.1.1 Version 0.1.0 Version 0.4.0 Implementation of the region 4 in R7-97. API break for kh and kd in g704. The temperature must be provided in Kelvin instead of degrees Celsius. Add dependency to numpy for python wrapper. Add pure python modules for encapsulating C extensions. Refractoring and code cleaning. Documentation update. Version 0.3.0 API break: functions for the Fortran code were renamed: They do not contain the package+module in the name for the sake of simplicity The package is only added in the functions for the C API in order to have a namespace-like behavior. If needed for solving conflicts with other packages, the functions can be aliased. Separate sources files for the C API code for each module. Implement tests with the test-drive framework. Add version extension in the pywrapper. Implement version module with its getter. Documentation update. Version 0.2.2 Implementation of report R283 for critical constants of water. Switch to pyproject.toml for python wrapper. Code refractoring and clean up. Documentation update. Full changelog available at github Version 0.2.1 Comlete missing documentation of private functions. Minor fixes in C API code as well in python wrapper. Remove unecessary dependency in Makefile. Full changelog available at github Version 0.2.0 New structure with modules corresponding to the IAPWS papers. Compatible with fpm. fpm module naming convention. API break for iapws_g704_kh and iapws_g704_kd functions: only 1d-arrays as inputs in Fortran and C API. only objects with buffer protocol as inputs in python wrapper. python wrappers return memoryviews. New functions: providing the number of gases in H2O and D2O. providing the available of gases in H2O and D2O as list of strings. providing the available of gases in H2O and D2O as a unique string. Cleanup old app code not needed anymore. Fix memory allocation in pywrapper. Completed tests. Documentation improvements: Add conversion equations from molar fractions to solubilities. Add plots for visualizing kh and kd. Full changelog available at github Version 0.1.1 Logo creation Error handling in python wrapper for arrays with rank greater than 1 Tests in python wrapper for expected failures with rank-n arrays Full changelog available at github Version 0.1.0 Implementation of kH and kD from IAPWS G7-04 in fortran + C API Python wrapper for kH and kD. Documentation with sphinx. Full changelog available at github","tags":"","loc":"page/changelog.html"},{"title":"Examples – iapws","text":"Fortran C Python Fortran program example_in_f use stdlib_kinds , only : dp , int32 use iapws implicit none integer ( int32 ) :: i , ngas real ( dp ) :: T ( 1 ), kh_res ( 1 ), kd_res ( 1 ) real ( dp ) :: Ts ( 7 ), ps ( 7 ) character ( len = 2 ) :: gas = \"O2\" integer ( int32 ) :: heavywater = 0 type ( gas_type ), pointer :: gases_list (:) character ( len = :), pointer :: gases_str print * , '########################## IAPWS VERSION ##########################' print * , \"version \" , get_version () print * , '########################## IAPWS R2-83 ##########################' print \"(a, f10.3, a)\" , \"Tc in h2o=\" , Tc_H2O , \" k\" print \"(a, f10.3, a)\" , \"pc in h2o=\" , pc_H2O , \" mpa\" print \"(a, f10.3, a)\" , \"rhoc in h2o=\" , rhoc_H2O , \" kg/m3\" print \"(a, f10.3, a)\" , \"Tc in D2O=\" , Tc_D2O , \" k\" print \"(a, f10.3, a)\" , \"pc in D2O=\" , pc_D2O , \" mpa\" print \"(a, f10.3, a)\" , \"rhoc in D2O=\" , rhoc_D2O , \" kg/m3\" print * , '' print * , '########################## IAPWS G7-04 ##########################' ! Compute kh and kd in H2O T ( 1 ) = 2 5.0_dp + 27 3.15_dp call kh ( T , gas , heavywater , kh_res ) print \"(A10, 1X, A10, 1X, A2, F10.1, A, 4X, A3, SP, F10.4)\" , \"Gas=\" , gas , \"T=\" , T , \"K\" , \"kh=\" , kh_res call kd ( T , gas , heavywater , kd_res ) print \"(A10, 1X, A10, 1X, A2, F10.1, A, 4X, A3, SP, F15.4)\" , \"Gas=\" , gas , \"T=\" , T , \"K\" , \"kh=\" , kd_res ! Get and print available gases heavywater = 0 ngas = ngases ( heavywater ) gases_list => null () gases_list => gases ( heavywater ) gases_str => gases2 ( heavywater ) print * , \"Gases in H2O: \" , ngas print * , gases_str do i = 1 , ngas print * , gases_list ( i )% gas enddo heavywater = 1 ngas = ngases ( heavywater ) gases_list => null () gases_list => gases ( heavywater ) gases_str => gases2 ( heavywater ) print * , \"Gases in D2O: \" , ngas print * , gases_str do i = 1 , ngas print * , gases_list ( i )% gas enddo print * , '########################## IAPWS R7-97 ##########################' ! Compute ps from Ts. Ts (:) = [ - 1.0_dp , 2 5.0_dp , 10 0.0_dp , 20 0.0_dp , 30 0.0_dp , 36 0.0_dp , 37 4.0_dp ] Ts (:) = Ts (:) + 27 3.15_dp call psat ( Ts , ps ) do i = 1 , size ( Ts ) print \"(SP, F23.3, A3, 4X, F23.3, A3)\" , Ts ( i ), \"K\" , ps ( i ), \"MPa\" end do ! Compute Ts from ps call Tsat ( ps , Ts ) do i = 1 , size ( Ts ) print \"(SP, F23.3, A3, 4X, F23.3, A3)\" , Ts ( i ), \"K\" , ps ( i ), \"MPa\" end do end program C #include <string.h> #include <stdio.h> #include \"iapws.h\" int main ( void ){ double T = 25.0 + 273.15 ; /* in C*/ char * gas = \"O2\" ; double kh , kd ; char ** gases_list ; char * gases_str ; int ngas ; int i ; int heavywater = 0 ; printf ( \"%s \\n \" , \"########################## IAPWS VERSION ##########################\" ); printf ( \"version %s \\n \" , iapws_get_version ()); printf ( \"%s \\n \" , \"########################## IAPWS R2-83 ##########################\" ); printf ( \"%s %10.3f %s \\n \" , \"Tc in H2O\" , iapws_r283_Tc_H2O , \"K\" ); printf ( \"%s %10.3f %s \\n \" , \"pc in H2O\" , iapws_r283_pc_H2O , \"MPa\" ); printf ( \"%s %10.3f %s \\n \" , \"rhoc in H2O\" , iapws_r283_rhoc_H2O , \"kg/m3\" ); printf ( \"%s %10.3f %s \\n \" , \"Tc in D2O\" , iapws_r283_Tc_D2O , \"K\" ); printf ( \"%s %10.3f %s \\n \" , \"pc in D2O\" , iapws_r283_pc_D2O , \"MPa\" ); printf ( \"%s %10.3f %s \\n \" , \"rhoc in D2O\" , iapws_r283_rhoc_D2O , \"kg/m3\" ); printf ( \" \\n \" ); printf ( \"%s \\n \" , \"########################## IAPWS G7-04 ##########################\" ); /* Compute kh and kd in H2O*/ iapws_g704_kh ( & T , gas , heavywater , & kh , strlen ( gas ), 1 ); printf ( \"Gas=%s \\t T=%fK \\t kh=%+10.4f \\n \" , gas , T , kh ); iapws_g704_kd ( & T , gas , heavywater , & kd , strlen ( gas ), 1 ); printf ( \"Gas=%s \\t T=%fK \\t kd=%+15.4f \\n \" , gas , T , kd ); /* Get and print the available gases */ ngas = iapws_g704_ngases ( heavywater ); gases_list = iapws_g704_gases ( heavywater ); gases_str = iapws_g704_gases2 ( heavywater ); printf ( \"Gases in H2O: %d \\n \" , ngas ); printf ( \"%s \\n \" , gases_str ); for ( i = 0 ; i < ngas ; i ++ ){ printf ( \"%s \\n \" , gases_list [ i ]); } heavywater = 1 ; ngas = iapws_g704_ngases ( heavywater ); gases_list = iapws_g704_gases ( heavywater ); gases_str = iapws_g704_gases2 ( heavywater ); printf ( \"Gases in D2O: %d \\n \" , ngas ); printf ( \"%s \\n \" , gases_str ); for ( i = 0 ; i < ngas ; i ++ ){ printf ( \"%s \\n \" , gases_list [ i ]); } printf ( \"%s \\n \" , \"########################## IAPWS R7-97 ##########################\" ); double Ts [ 7 ] = { -1.0 , 25.0 , 100.0 , 200.0 , 300.0 , 360.0 , 374.0 }; double ps [ 7 ] = { 1.0 , 1.0 , 1.0 , 1.0 , 1.0 , 1.0 , 1.0 }; for ( i = 0 ; i < 7 ; i ++ ){ Ts [ i ] = Ts [ i ] + 273.15 ; } iapws_r797_psat ( 7 , Ts , ps ); for ( i = 0 ; i < 7 ; i ++ ){ printf ( \"%+23.3f %s %+23.3f %s \\n \" , Ts [ i ], \"K\" , ps [ i ], \"MPa\" ); } iapws_r797_Tsat ( 7 , ps , Ts ); for ( i = 0 ; i < 7 ; i ++ ){ printf ( \"%+23.3f %s %+23.3f %s \\n \" , Ts [ i ], \"K\" , ps [ i ], \"MPa\" ); } return 0 ; } Python r \"\"\"Example in python\"\"\" import sys sys . path . insert ( 0 , \"../py/src/\" ) import array import numpy as np import matplotlib.pyplot as plt import pyiapws print ( \"########################## IAPWS VERSION ##########################\" ) print ( pyiapws . __version__ ) print ( \"########################## IAPWS R2-83 ##########################\" ) print ( \"Tc in H2O\" , pyiapws . r283 . Tc_H2O , \"K\" ) print ( \"pc in H2O\" , pyiapws . r283 . pc_H2O , \"MPa\" ) print ( \"rhoc in H2O\" , pyiapws . r283 . rhoc_H2O , \"kg/m3\" ) print ( \"Tc in D2O\" , pyiapws . r283 . Tc_D2O , \"K\" ) print ( \"pc in D2O\" , pyiapws . r283 . pc_D2O , \"MPa\" ) print ( \"rhoc in D2O\" , pyiapws . r283 . rhoc_D2O , \"kg/m3\" ) print ( \"\" ) print ( \"########################## IAPWS G7-04 ##########################\" ) gas = \"O2\" T = array . array ( \"d\" , ( 25.0 + 273.15 ,)) # Compute kh and kd in H2O heavywater = False k = pyiapws . g704 . kh ( T , \"O2\" , heavywater ) print ( f \"Gas= { gas } \\t T= { T [ 0 ] } K \\t kh= { k [ 0 ] : +10.4f } \\n \" ) k = pyiapws . g704 . kd ( T , \"O2\" , heavywater ) print ( f \"Gas= { gas } \\t T= { T [ 0 ] } K \\t kd= { k [ 0 ] : +10.4f } \\n \" ) # Get and print the available gases heavywater = False gases_list = pyiapws . g704 . gases ( heavywater ) gases_str = pyiapws . g704 . gases2 ( heavywater ) ngas = pyiapws . g704 . ngases ( heavywater ) print ( f \"Gases in H2O: { ngas :} \" ) print ( gases_str ) for gas in gases_list : print ( gas ) heavywater = True gases_list = pyiapws . g704 . gases ( heavywater ) gases_str = pyiapws . g704 . gases2 ( heavywater ) ngas = pyiapws . g704 . ngases ( heavywater ) print ( f \"Gases in D2O: { ngas :} \" ) print ( gases_str ) for gas in gases_list : print ( gas ) style = { \"marker\" : \".\" , \"ls\" : \"\" , \"ms\" : 2 } T_KELVIN = 273.15 T = np . linspace ( 0.0 , 360.0 , 1000 ) + 273.15 solvent = { True : \"D2O\" , False : \"H2O\" } print ( \"Generating plot for kh\" ) kname = \"kh\" for HEAVYWATER in ( False , True ): print ( solvent [ HEAVYWATER ]) fig = plt . figure () ax = fig . add_subplot () ax . grid ( visible = True , ls = ':' ) ax . set_xlabel ( \"T /°C\" ) ax . set_ylabel ( \"ln (kh/1GPa)\" ) gases = pyiapws . g704 . gases ( HEAVYWATER ) for gas in gases : k = pyiapws . g704 . kh ( T , gas , HEAVYWATER ) / 1000.0 ln_k = np . log ( k ) ax . plot ( T , ln_k , label = gas , ** style ) ax . legend ( ncol = 3 ) fig . savefig ( f \"../media/g704- { kname : s } _ { solvent [ HEAVYWATER ] } .png\" , dpi = 100 , format = \"png\" ) print ( \"Generating plot for kd\" ) kname = \"kd\" for HEAVYWATER in ( False , True ): print ( solvent [ HEAVYWATER ]) fig = plt . figure () ax = fig . add_subplot () ax . grid ( visible = True , ls = ':' ) ax . set_xlabel ( \"T /°C\" ) ax . set_ylabel ( \"ln kd\" ) gases = pyiapws . g704 . gases ( HEAVYWATER ) for gas in gases : k = pyiapws . g704 . kd ( T , gas , HEAVYWATER ) ln_k = np . log ( k ) ax . plot ( T , ln_k , label = gas , ** style ) ax . legend ( ncol = 3 ) fig . savefig ( f \"../media/g704- { kname : s } _ { solvent [ HEAVYWATER ] } .png\" , dpi = 100 , format = \"png\" ) print ( \"########################## IAPWS R7-97 ##########################\" ) Ts = np . asarray ([ - 1.0 , 25.0 , 100.0 , 200.0 , 300.0 , 360.0 , 374.0 ]) Ts = Ts + 273.15 ps = pyiapws . r797 . psat ( Ts ) for i in range ( Ts . size ): print ( f \" { Ts [ i ] : 23.3f } K { ps [ i ] : 23.3f } MPa.\" ) Ts = pyiapws . r797 . Tsat ( ps ) for i in range ( Ts . size ): print ( f \" { Ts [ i ] : 23.3f } K { ps [ i ] : 23.3f } MPa.\" ) fig = plt . figure () ax = fig . add_subplot () ax . grid ( visible = True , ls = ':' ) ax . set_xlabel ( \"Ts /K\" ) ax . set_ylabel ( \"ps /MPa\" ) Ts = np . linspace ( 0.0 , 370.0 , 500 ) Ts = Ts + 273.15 ps = pyiapws . r797 . psat ( Ts ) ax . plot ( Ts , ps , \"r-\" , label = \"ps(Ts)\" ) Ts = pyiapws . r797 . Tsat ( ps ) ax . plot ( Ts , ps , \"b--\" , label = \"Ts(ps)\" ) ax . legend () fig . savefig ( f \"../media/r797-r4.png\" , dpi = 100 , format = \"png\" ) plt . show ()","tags":"","loc":"page/examples.html"},{"title":"License – iapws","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 – iapws","text":"IAPWS, “Release on the Values of Temperature, Pressure and Density of Ordinary and Heavy Water Substances at Their Respective Critical Points,” IAPWS, St. Petersburg, Russia, R2-83, 1992. IAPWS, “Guideline on the Henry’s Constant and Vapor-Liquid Distribution Constant for Gases in H2O and D2O at High Temperatures,” IAPWS, Kyoto, Japan, G7-04, 2004. IAPWS, “Revised Release on the IAPWS Industrial Formulation 1997 for the Thermodynamic Properties of Water and Steam,” Lucerne, Switzerland, R7-97, 2007. IAPWS, “Revised Release on the IAPWS Formulation 1995 for the Thermodynamic Properties of Ordinary Water Substance for General and Scientific Use,” Praque, Czech Republic, R6-95, 2018. Wolfgang Wagner and A. Pruss. “International Equations for the Saturation Properties of Ordinary Water Substance”. Revised According to the International Temperature Scale of 1990. Addendum to J. Phys. Chem. Ref. Data 16, 893 (1987). Journal of Physical and Chemical Reference Data, 22(3):783–787, May 1993. doi:10.1063/1.555926. Allan H. Harvey and Eric W. Lemmon. “Correlation for the Vapor Pressure of Heavy Water From the Triple Point to the Critical Point”. Journal of Physical and Chemical Reference Data, 31(1):173–181, March 2002. doi:10.1063/1.1430231. R. Fernandez-Prini, J.L. Alvarez, and A.H. Harvey. “Henry’s Constants and Vapor–Liquid Distribution Constants for Gaseous Solutes in H2O and D2O at High Temperatures”. Journal of Physical Chemistry Reference Data, 32(2):903–916, 2003.","tags":"","loc":"page/references.html"},{"title":"Specifications (specs) – iapws","text":"This is an index/directory of the specifications (specs) for each module. R2-83 - Values of Temperature, Pressure and Density of Ordinary and Heavy Water Substances at Their Respective Critical Points G7-04 - Guideline on the Henry’s Constant and Vapor-Liquid Distribution Constant for Gases in H2O and D2O at High Temperatures R7-97 - Revised Release on the IAPWS Industrial Formulation 1997 for the Thermodynamic Properties of Water and Steam C API - Prototypes for C language.","tags":"","loc":"page/specs/index.html"},{"title":"C API – iapws","text":"The prototypes of the C API are defined as shown below. #ifndef IAPWS_H #define IAPWS_H #if _MSC_VER #define ADD_IMPORT __declspec(dllimport) #else #define ADD_IMPORT #endif extern char * iapws_get_version ( void ); ADD_IMPORT extern const double iapws_r283_Tc_H2O ; ADD_IMPORT extern const double iapws_r283_Tc_D2O ; ADD_IMPORT extern const double iapws_r283_pc_H2O ; ADD_IMPORT extern const double iapws_r283_pc_D2O ; ADD_IMPORT extern const double iapws_r283_rhoc_H2O ; ADD_IMPORT extern const double iapws_r283_rhoc_D2O ; extern void iapws_g704_kh ( double * T , char * gas , int heavywater , double * k , int size_gas , size_t size_T ); extern void iapws_g704_kd ( double * T , char * gas , int heavywater , double * k , int size_gas , size_t size_T ); extern int iapws_g704_ngases ( int heavywater ); extern char ** iapws_g704_gases ( int heavywater ); extern char * iapws_g704_gases2 ( int heavywater ); extern void iapws_r797_psat ( size_t N , double * Ts , double * ps ); extern void iapws_r797_Tsat ( size_t N , double * ps , double * Ts ); #endif","tags":"","loc":"page/specs/capi.html"},{"title":"IPAWS G7-04 – iapws","text":"Description Henry Contant: kh Vapor-Liquid Distribution Constant: kd Molar fractions Available gases Plots Description The computation is based on the parameters provided by the technical report G7-04 Henry Contant: kh The Henry constant  is defined as shown in equation below. kh is expressed in MPa. : liquid-phase fugacity : mole fraction of the solute The Henry’s constant kh is given as a function of temperature by: : critical temperature of the solvent as recommended by IAPWS . is the vapor pressure of the solvent at the temperature of interest and \n  is calculated from the correlation of Wagner and Pruss for and from the correlation of Harvey and Lemmon  for . Both equations have the form: is 6 for and 5 for is the critical pressure of the solvent recommended by the report R2-83 Vapor-Liquid Distribution Constant: kd The liquid-vapor distribution constant kd is defined as shown in equation below. kd is adimensional. : mole fraction of the solute is the vapor-phase solute mole fraction in equilibrium with the liquid The vapor-liquid distribution constant kd is given as a function of temperature by: : -0.023767 for and -0.024552 for . Wagner et al. for and fernandez-prini et al. for In both cases, has the following form: is 6 for and 4 for Molar fractions The molar fractions and as following: By fixing at 1.0 it comes that the molar fractions and are then expressed per \nunit of pressure as shown in the following equation . The molar fractions can be converted to solubilties in ppm or cm3/kg by considering dilute solutions. is the considered gas and the solvent is either or . Available gases kh and kd can be computed for the following gases: in water: He, Ne, Ar, Kr, Xe, H2, N2, O2, CO, CO2, H2S, CH4, C2H6, SF6 in heavywater: He, Ne, Ar, Kr, Xe, D2, CH4 The available gases can be retrieved with gases which returns the available gases as a list. gases2 which return the available gases as a string. ngases which returns the number of available gases. Plots","tags":"","loc":"page/specs/iapws_g704.html"},{"title":"IAPWS R2-83 – iapws","text":"Description In water In heavywater Description The technical report R2-83 defines constants used for computing the water properties. In water In heavywater","tags":"","loc":"page/specs/iapws_r283.html"},{"title":"IAPWS R7-97 – iapws","text":"Description Structure of the formulation Reference constants Auxiliary Equation for the Boundary between Regions 2 and 3 Region 4: Saturation line The saturation-pressure equation (Basic Equation): psat The saturation-temperature equation (Backward Equation): Tsat Plot Description The computation is based on the parameters provided by the technical report R7-97 . Structure of the formulation The R7-97 report consists of a set of equations for different \nregions which cover the following range of validity: and and Reference constants The specific gas constant of ordinary water used for this formulation is This value results from the recommended values of the molar gas constant, \nand the molar mass of ordinary water ( Wagner et al., Harvey et al. ).\nThe values of the critical parameters are from the corresponding IAPWS release. Auxiliary Equation for the Boundary between Regions 2 and 3 Region 4: Saturation line The equation for describing the saturation line is an implicit quadratic\nequation which can be directly solved with regard to both saturation pressure and saturation temperature . The details are largely described in the literature IAPWS R797, IAPWS R695 . where and with and and are coefficients. The saturation-pressure equation (Basic Equation): psat The solution of the quadratic equation with regard to saturation pressure is as follows: with and Range of validity: . The saturation-temperature equation (Backward Equation): Tsat The saturation-temperature solution of the quadratic equation reads where and Range of validity: Plot","tags":"","loc":"page/specs/iapws_r797.html"}]}
\ No newline at end of file
+var tipuesearch = {"pages":[{"title":" iapws ","text":"iapws Introduction Dependencies Installation License Introduction ipaws is a  Fortran library providing the formulas for computing light and heavy water properties.\nThe formulas are taken from http://iapws.org. \nC API allows usage from C, or can be used as a basis for other wrappers.\nPython wrapper allows easy usage from Python. For now, I have implemented R2-83 [x] Tc in H2O and D2O [x] pc in H2O and D2O [x] rhoc in H2O and D2O G7-04 [x] kH [x] kD R7-97 [ ] Region 1 [ ] Region 2 [ ] Region 3 [x] Region 4 [ ] Region 5 To use iapws within your fpm project,\nadd the following to your fpm.toml file: [ dependencies ] iapws = { git = \"https://github.com/MilanSkocic/iapws.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":"gas_type – iapws ","text":"type, public :: gas_type Derived type containing a allocatable string for representing a gas. Components Type Visibility Attributes Name Initial character(len=:), public, allocatable :: gas Gas","tags":"","loc":"type/gas_type.html"},{"title":"capi_get_version – iapws","text":"public  function capi_get_version() result(cptr) bind(c,name=\"iapws_get_version\")) Get the version. Arguments None Return Value type(c_ptr) Pointer to version string. 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":"capi_Tsat – iapws","text":"public pure subroutine capi_Tsat(N, ps, Ts) bind(C, name=\"iapws_r797_Tsat\") Compute the saturation temperature at pressure ps. Arguments Type Intent Optional Attributes Name integer(kind=c_size_t), intent(in), value :: N real(kind=c_double), intent(in) :: ps (N) real(kind=c_double), intent(out) :: Ts (N) Calls proc~~capi_tsat~~CallsGraph proc~capi_tsat capi_Tsat proc~tsat Tsat proc~capi_tsat->proc~tsat 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_tsat.html"},{"title":"capi_psat – iapws","text":"public pure subroutine capi_psat(N, Ts, ps) bind(C, name=\"iapws_r797_psat\") Compute the saturation pressure at temperature Ts. Arguments Type Intent Optional Attributes Name integer(kind=c_size_t), intent(in), value :: N real(kind=c_double), intent(in) :: Ts (N) real(kind=c_double), intent(out) :: ps (N) Calls proc~~capi_psat~~CallsGraph proc~capi_psat capi_psat proc~psat psat proc~capi_psat->proc~psat 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_psat.html"},{"title":"capi_gases – iapws","text":"public  function capi_gases(heavywater) result(list_gases) bind(C, name=\"iapws_g704_gases\")) Returns the list of available gases. Arguments Type Intent Optional Attributes Name integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). Return Value type(c_ptr) Available gases. Calls proc~~capi_gases~~CallsGraph proc~capi_gases capi_gases proc~gases gases proc~capi_gases->proc~gases 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_gases.html"},{"title":"capi_ngases – iapws","text":"public pure function capi_ngases(heavywater) result(n) bind(C, name=\"iapws_g704_ngases\")) Returns the number of gases. Arguments Type Intent Optional Attributes Name integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). Return Value integer(kind=c_int) Number of gases. Calls proc~~capi_ngases~~CallsGraph proc~capi_ngases capi_ngases proc~ngases ngases proc~capi_ngases->proc~ngases 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_ngases.html"},{"title":"capi_kd – iapws","text":"public  subroutine capi_kd(T, gas, heavywater, k, size_gas, size_T) bind(C,name=\"iapws_g704_kd\") Compute the vapor-liquid constant for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=c_double), intent(in) :: T (size_T) Temperature in °C. type(c_ptr), intent(in), value :: gas Gas. integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=c_double), intent(inout) :: k (size_T) Vapor-liquid constant. Filled with NaNs if gas not found. integer(kind=c_int), intent(in), value :: size_gas Size of the gas string. integer(kind=c_size_t), intent(in), value :: size_T Size of T and k. Calls proc~~capi_kd~~CallsGraph proc~capi_kd capi_kd proc~kd kd proc~capi_kd->proc~kd 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_kd.html"},{"title":"capi_kh – iapws","text":"public  subroutine capi_kh(T, gas, heavywater, k, size_gas, size_T) bind(C,name=\"iapws_g704_kh\") Compute the henry constant for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=c_double), intent(in) :: T (size_T) Temperature in °C. type(c_ptr), intent(in), value :: gas Gas. integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=c_double), intent(inout) :: k (size_T) Henry constant. Filled with NaNs if gas not found. integer(kind=c_int), intent(in), value :: size_gas Size of the gas string. integer(kind=c_size_t), intent(in), value :: size_T Size of T and k. Calls proc~~capi_kh~~CallsGraph proc~capi_kh capi_kh proc~kh kh proc~capi_kh->proc~kh 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_kh.html"},{"title":"get_version – iapws","text":"public  function get_version() result(fptr) Get the version. \nReturns Arguments None Return Value character(len=:), pointer Pointer to the version string. 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":"iapws_r797_v – iapws","text":"public pure elemental function iapws_r797_v(P, T) result(res) Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: P real(kind=dp), intent(in) :: T Return Value real(kind=dp)","tags":"","loc":"proc/iapws_r797_v.html"},{"title":"Tsat – iapws","text":"public pure subroutine Tsat(ps, Ts) Compute the saturation temperature at pressure ps.\nValidity range 611.213 Pa <= ps <= 22.064 MPa. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: ps (:) Saturation pressure in MPa. real(kind=dp), intent(out) :: Ts (:) Saturation temperature in K. Filled with nan if out of validity range. Called by proc~~tsat~~CalledByGraph proc~tsat Tsat proc~capi_tsat capi_Tsat proc~capi_tsat->proc~tsat 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/tsat.html"},{"title":"psat – iapws","text":"public pure subroutine psat(Ts, ps) Compute the saturation pressure at temperature Ts. \nValidity range 273.13 K <= Ts <= 647.096 K. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: Ts (:) Saturation temperature in K. real(kind=dp), intent(out) :: ps (:) Saturation pressure in MPa. Filled with nan if out of validity range. Called by proc~~psat~~CalledByGraph proc~psat psat proc~capi_psat capi_psat proc~capi_psat->proc~psat 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/psat.html"},{"title":"gases – iapws","text":"public  function gases(heavywater) result(list_gases) Returns the list of available gases. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value type( gas_type ), pointer, (:) Available gases. Called by proc~~gases~~CalledByGraph proc~gases gases proc~capi_gases capi_gases proc~capi_gases->proc~gases proc~gases2 gases2 proc~gases2->proc~gases 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/gases.html"},{"title":"gases2 – iapws","text":"public  function gases2(heavywater) result(str_gases) Returns the available gases as a string. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value character(len=:), pointer Available gases Calls proc~~gases2~~CallsGraph proc~gases2 gases2 proc~gases gases proc~gases2->proc~gases 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/gases2.html"},{"title":"ngases – iapws","text":"public pure function ngases(heavywater) result(n) Returns the number of gases. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value integer(kind=int32) Number of gases. Called by proc~~ngases~~CalledByGraph proc~ngases ngases proc~capi_ngases capi_ngases proc~capi_ngases->proc~ngases 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/ngases.html"},{"title":"kd – iapws","text":"public pure subroutine kd(T, gas, heavywater, k) Compute the vapor-liquid constant kd for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: T (:) Temperature in K. character(len=*), intent(in) :: gas Gas. integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=dp), intent(out) :: k (:) Vapor-liquid constant. Filled with NaNs if gas not found. Called by proc~~kd~~CalledByGraph proc~kd kd proc~capi_kd capi_kd proc~capi_kd->proc~kd 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/kd.html"},{"title":"kh – iapws","text":"public pure subroutine kh(T, gas, heavywater, k) Compute the henry constant kH for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: T (:) Temperature in K. character(len=*), intent(in) :: gas Gas. integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=dp), intent(out) :: k (:) Henry constant. Filled with NaNs if gas not found. Called by proc~~kh~~CalledByGraph proc~kh kh proc~capi_kh capi_kh proc~capi_kh->proc~kh 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/kh.html"},{"title":"iapws__capi – iapws","text":"Main module for the IAPWS library: C API. Uses iapws__capi_version iapws__capi_g704 iapws__capi_r783 module~~iapws__capi~~UsesGraph module~iapws__capi iapws__capi module~iapws__capi_g704 iapws__capi_g704 module~iapws__capi->module~iapws__capi_g704 module~iapws__capi_r783 iapws__capi_r783 module~iapws__capi->module~iapws__capi_r783 module~iapws__capi_version iapws__capi_version module~iapws__capi->module~iapws__capi_version iso_c_binding iso_c_binding module~iapws__capi_g704->iso_c_binding iso_fortran_env iso_fortran_env module~iapws__capi_g704->iso_fortran_env module~iapws__g704 iapws__g704 module~iapws__capi_g704->module~iapws__g704 module~iapws__capi_r783->iso_c_binding module~iapws__r283 iapws__r283 module~iapws__capi_r783->module~iapws__r283 module~iapws__capi_version->iso_c_binding module~iapws__version iapws__version module~iapws__capi_version->module~iapws__version module~iapws__g704->module~iapws__r283 ieee_arithmetic ieee_arithmetic module~iapws__g704->ieee_arithmetic stdlib_kinds stdlib_kinds module~iapws__g704->stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__capi~~UsedByGraph module~iapws__capi iapws__capi module~iapws iapws module~iapws->module~iapws__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.","tags":"","loc":"module/iapws__capi.html"},{"title":"iapws__capi_version – iapws","text":"Uses iapws__version iso_c_binding module~~iapws__capi_version~~UsesGraph module~iapws__capi_version iapws__capi_version iso_c_binding iso_c_binding module~iapws__capi_version->iso_c_binding module~iapws__version iapws__version module~iapws__capi_version->module~iapws__version 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~~iapws__capi_version~~UsedByGraph module~iapws__capi_version iapws__capi_version module~iapws__capi iapws__capi module~iapws__capi->module~iapws__capi_version module~iapws iapws module~iapws->module~iapws__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_version () result(cptr) bind(c,name=\"iapws_get_version\")) Get the version. Arguments None Return Value type(c_ptr) Pointer to version string.","tags":"","loc":"module/iapws__capi_version.html"},{"title":"iapws__capi_r797 – iapws","text":"Uses stdlib_kinds iso_c_binding iapws__r797 module~~iapws__capi_r797~~UsesGraph module~iapws__capi_r797 iapws__capi_r797 iso_c_binding iso_c_binding module~iapws__capi_r797->iso_c_binding module~iapws__r797 iapws__r797 module~iapws__capi_r797->module~iapws__r797 stdlib_kinds stdlib_kinds module~iapws__capi_r797->stdlib_kinds module~iapws__r797->stdlib_kinds ieee_arithmetic ieee_arithmetic module~iapws__r797->ieee_arithmetic module~iapws__r283 iapws__r283 module~iapws__r797->module~iapws__r283 module~iapws__r283->stdlib_kinds 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. Subroutines public pure subroutine capi_Tsat (N, ps, Ts) bind(C, name=\"iapws_r797_Tsat\") Compute the saturation temperature at pressure ps. Arguments Type Intent Optional Attributes Name integer(kind=c_size_t), intent(in), value :: N real(kind=c_double), intent(in) :: ps (N) real(kind=c_double), intent(out) :: Ts (N) public pure subroutine capi_psat (N, Ts, ps) bind(C, name=\"iapws_r797_psat\") Compute the saturation pressure at temperature Ts. Arguments Type Intent Optional Attributes Name integer(kind=c_size_t), intent(in), value :: N real(kind=c_double), intent(in) :: Ts (N) real(kind=c_double), intent(out) :: ps (N)","tags":"","loc":"module/iapws__capi_r797.html"},{"title":"iapws__capi_g704 – iapws","text":"Module for IAPWS G704 : C API. Uses iapws__g704 iso_c_binding iso_fortran_env module~~iapws__capi_g704~~UsesGraph module~iapws__capi_g704 iapws__capi_g704 iso_c_binding iso_c_binding module~iapws__capi_g704->iso_c_binding iso_fortran_env iso_fortran_env module~iapws__capi_g704->iso_fortran_env module~iapws__g704 iapws__g704 module~iapws__capi_g704->module~iapws__g704 ieee_arithmetic ieee_arithmetic module~iapws__g704->ieee_arithmetic module~iapws__r283 iapws__r283 module~iapws__g704->module~iapws__r283 stdlib_kinds stdlib_kinds module~iapws__g704->stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__capi_g704~~UsedByGraph module~iapws__capi_g704 iapws__capi_g704 module~iapws__capi iapws__capi module~iapws__capi->module~iapws__capi_g704 module~iapws iapws module~iapws->module~iapws__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_gases (heavywater) result(list_gases) bind(C, name=\"iapws_g704_gases\")) Returns the list of available gases. Arguments Type Intent Optional Attributes Name integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). Return Value type(c_ptr) Available gases. public pure function capi_ngases (heavywater) result(n) bind(C, name=\"iapws_g704_ngases\")) Returns the number of gases. Arguments Type Intent Optional Attributes Name integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). Return Value integer(kind=c_int) Number of gases. Subroutines public  subroutine capi_kd (T, gas, heavywater, k, size_gas, size_T) bind(C,name=\"iapws_g704_kd\") Compute the vapor-liquid constant for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=c_double), intent(in) :: T (size_T) Temperature in °C. type(c_ptr), intent(in), value :: gas Gas. integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=c_double), intent(inout) :: k (size_T) Vapor-liquid constant. Filled with NaNs if gas not found. integer(kind=c_int), intent(in), value :: size_gas Size of the gas string. integer(kind=c_size_t), intent(in), value :: size_T Size of T and k. public  subroutine capi_kh (T, gas, heavywater, k, size_gas, size_T) bind(C,name=\"iapws_g704_kh\") Compute the henry constant for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=c_double), intent(in) :: T (size_T) Temperature in °C. type(c_ptr), intent(in), value :: gas Gas. integer(kind=c_int), intent(in), value :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=c_double), intent(inout) :: k (size_T) Henry constant. Filled with NaNs if gas not found. integer(kind=c_int), intent(in), value :: size_gas Size of the gas string. integer(kind=c_size_t), intent(in), value :: size_T Size of T and k.","tags":"","loc":"module/iapws__capi_g704.html"},{"title":"iapws__version – iapws","text":"Version Used by module~~iapws__version~~UsedByGraph module~iapws__version iapws__version module~iapws iapws module~iapws->module~iapws__version module~iapws__capi iapws__capi module~iapws->module~iapws__capi module~iapws__capi_version iapws__capi_version module~iapws__capi_version->module~iapws__version module~iapws__capi->module~iapws__capi_version 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_version () result(fptr) Get the version. \nReturns Arguments None Return Value character(len=:), pointer Pointer to the version string.","tags":"","loc":"module/iapws__version.html"},{"title":"iapws__capi_r783 – iapws","text":"Module for IAPWS R2-83: C API. Uses iso_c_binding iapws__r283 module~~iapws__capi_r783~~UsesGraph module~iapws__capi_r783 iapws__capi_r783 iso_c_binding iso_c_binding module~iapws__capi_r783->iso_c_binding module~iapws__r283 iapws__r283 module~iapws__capi_r783->module~iapws__r283 stdlib_kinds stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__capi_r783~~UsedByGraph module~iapws__capi_r783 iapws__capi_r783 module~iapws__capi iapws__capi module~iapws__capi->module~iapws__capi_r783 module~iapws iapws module~iapws->module~iapws__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. Variables Type Visibility Attributes Name Initial real(kind=c_double), public, bind(C, name=\"0\") :: capi_Tc_D2O = Tc_D2O Critical temperature for D2O in K real(kind=c_double), public, bind(C, name=\"0\") :: capi_Tc_H2O = Tc_H2O Critical temperature for H2O in K real(kind=c_double), public, bind(C, name=\"0\") :: capi_pc_D2O = pc_D2O Critical pressure for D2O in MPa real(kind=c_double), public, bind(C, name=\"0\") :: capi_pc_H2O = pc_H2O Critical pressure for H2O in MPa real(kind=c_double), public, bind(C, name=\"0\") :: capi_rhoc_D2O = rhoc_D2O Critical density for D2O in kg.m-3 real(kind=c_double), public, bind(C, name=\"0\") :: capi_rhoc_H2O = rhoc_H2O Critical density for H2O in kg.m-3","tags":"","loc":"module/iapws__capi_r783.html"},{"title":"iapws__r283 – iapws","text":"Module for IAPWS R2-83. Uses stdlib_kinds module~~iapws__r283~~UsesGraph module~iapws__r283 iapws__r283 stdlib_kinds stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__r283~~UsedByGraph module~iapws__r283 iapws__r283 module~iapws iapws module~iapws->module~iapws__r283 module~iapws__g704 iapws__g704 module~iapws->module~iapws__g704 module~iapws__r797 iapws__r797 module~iapws->module~iapws__r797 module~iapws__capi iapws__capi module~iapws->module~iapws__capi module~iapws__capi_r783 iapws__capi_r783 module~iapws__capi_r783->module~iapws__r283 module~iapws__g704->module~iapws__r283 module~iapws__r797->module~iapws__r283 module~iapws__capi->module~iapws__capi_r783 module~iapws__capi_g704 iapws__capi_g704 module~iapws__capi->module~iapws__capi_g704 module~iapws__capi_g704->module~iapws__g704 module~iapws__capi_r797 iapws__capi_r797 module~iapws__capi_r797->module~iapws__r797 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 real(kind=dp), public, parameter :: Tc_D2O = 643.847_dp Critical temperature for D2O in K real(kind=dp), public, parameter :: Tc_H2O = 647.096_dp Critical temperature for H2O in K real(kind=dp), public, parameter :: pc_D2O = 21.671_dp Critical pressure for H2O in MPa real(kind=dp), public, parameter :: pc_H2O = 22.064_dp Critical pressure for H2O in MPa real(kind=dp), public, parameter :: rhoc_D2O = 356.0_dp Critical density for H2O in kg.m-3 real(kind=dp), public, parameter :: rhoc_H2O = 322.0_dp Critical density for H2O in kg.m-3","tags":"","loc":"module/iapws__r283.html"},{"title":"iapws__r797 – iapws","text":"Module for IAPWS R7-97: Not fully implemented - under development. Uses stdlib_kinds iapws__r283 ieee_arithmetic module~~iapws__r797~~UsesGraph module~iapws__r797 iapws__r797 ieee_arithmetic ieee_arithmetic module~iapws__r797->ieee_arithmetic module~iapws__r283 iapws__r283 module~iapws__r797->module~iapws__r283 stdlib_kinds stdlib_kinds module~iapws__r797->stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__r797~~UsedByGraph module~iapws__r797 iapws__r797 module~iapws iapws module~iapws->module~iapws__r797 module~iapws__capi_r797 iapws__capi_r797 module~iapws__capi_r797->module~iapws__r797 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 pure elemental function iapws_r797_v (P, T) result(res) Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: P real(kind=dp), intent(in) :: T Return Value real(kind=dp) Subroutines public pure subroutine Tsat (ps, Ts) Compute the saturation temperature at pressure ps.\nValidity range 611.213 Pa <= ps <= 22.064 MPa. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: ps (:) Saturation pressure in MPa. real(kind=dp), intent(out) :: Ts (:) Saturation temperature in K. Filled with nan if out of validity range. public pure subroutine psat (Ts, ps) Compute the saturation pressure at temperature Ts. \nValidity range 273.13 K <= Ts <= 647.096 K. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: Ts (:) Saturation temperature in K. real(kind=dp), intent(out) :: ps (:) Saturation pressure in MPa. Filled with nan if out of validity range.","tags":"","loc":"module/iapws__r797.html"},{"title":"iapws – iapws","text":"Main module for the IAPWS library. Uses iapws__g704 iapws__capi iapws__r283 iapws__version iapws__r797 module~~iapws~~UsesGraph module~iapws iapws module~iapws__capi iapws__capi module~iapws->module~iapws__capi module~iapws__g704 iapws__g704 module~iapws->module~iapws__g704 module~iapws__r283 iapws__r283 module~iapws->module~iapws__r283 module~iapws__r797 iapws__r797 module~iapws->module~iapws__r797 module~iapws__version iapws__version module~iapws->module~iapws__version module~iapws__capi_g704 iapws__capi_g704 module~iapws__capi->module~iapws__capi_g704 module~iapws__capi_r783 iapws__capi_r783 module~iapws__capi->module~iapws__capi_r783 module~iapws__capi_version iapws__capi_version module~iapws__capi->module~iapws__capi_version module~iapws__g704->module~iapws__r283 ieee_arithmetic ieee_arithmetic module~iapws__g704->ieee_arithmetic stdlib_kinds stdlib_kinds module~iapws__g704->stdlib_kinds module~iapws__r283->stdlib_kinds module~iapws__r797->module~iapws__r283 module~iapws__r797->ieee_arithmetic module~iapws__r797->stdlib_kinds module~iapws__capi_g704->module~iapws__g704 iso_c_binding iso_c_binding module~iapws__capi_g704->iso_c_binding iso_fortran_env iso_fortran_env module~iapws__capi_g704->iso_fortran_env module~iapws__capi_r783->module~iapws__r283 module~iapws__capi_r783->iso_c_binding module~iapws__capi_version->module~iapws__version module~iapws__capi_version->iso_c_binding 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/iapws.html"},{"title":"iapws__g704 – iapws","text":"Module for IAPWS G7-04.\nEFGH coefficients for gases in heavywater.\nai and bi coefficients for water Uses stdlib_kinds iapws__r283 ieee_arithmetic module~~iapws__g704~~UsesGraph module~iapws__g704 iapws__g704 ieee_arithmetic ieee_arithmetic module~iapws__g704->ieee_arithmetic module~iapws__r283 iapws__r283 module~iapws__g704->module~iapws__r283 stdlib_kinds stdlib_kinds module~iapws__g704->stdlib_kinds module~iapws__r283->stdlib_kinds 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~~iapws__g704~~UsedByGraph module~iapws__g704 iapws__g704 module~iapws iapws module~iapws->module~iapws__g704 module~iapws__capi iapws__capi module~iapws->module~iapws__capi module~iapws__capi_g704 iapws__capi_g704 module~iapws__capi_g704->module~iapws__g704 module~iapws__capi->module~iapws__capi_g704 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. Derived Types type, public :: gas_type Derived type containing a allocatable string for representing a gas. Components Type Visibility Attributes Name Initial character(len=:), public, allocatable :: gas Gas Functions public  function gases (heavywater) result(list_gases) Returns the list of available gases. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value type( gas_type ), pointer, (:) Available gases. public  function gases2 (heavywater) result(str_gases) Returns the available gases as a string. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value character(len=:), pointer Available gases public pure function ngases (heavywater) result(n) Returns the number of gases. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). Return Value integer(kind=int32) Number of gases. Subroutines public pure subroutine kd (T, gas, heavywater, k) Compute the vapor-liquid constant kd for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: T (:) Temperature in K. character(len=*), intent(in) :: gas Gas. integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=dp), intent(out) :: k (:) Vapor-liquid constant. Filled with NaNs if gas not found. public pure subroutine kh (T, gas, heavywater, k) Compute the henry constant kH for a given temperature. Arguments Type Intent Optional Attributes Name real(kind=dp), intent(in) :: T (:) Temperature in K. character(len=*), intent(in) :: gas Gas. integer(kind=int32), intent(in) :: heavywater Flag if D2O (1) is used or H2O(0). real(kind=dp), intent(out) :: k (:) Henry constant. Filled with NaNs if gas not found.","tags":"","loc":"module/iapws__g704.html"},{"title":"capi.f90 – iapws","text":"This file depends on sourcefile~~capi.f90~~EfferentGraph sourcefile~capi.f90 capi.f90 sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~capi.f90->sourcefile~capi_g704.f90 sourcefile~capi_r283.f90 capi_r283.f90 sourcefile~capi.f90->sourcefile~capi_r283.f90 sourcefile~capi_version.f90 capi_version.f90 sourcefile~capi.f90->sourcefile~capi_version.f90 sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~capi_g704.f90->sourcefile~iapws_g704.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~capi_r283.f90->sourcefile~iapws_r283.f90 sourcefile~iapws_version.f90 iapws_version.f90 sourcefile~capi_version.f90->sourcefile~iapws_version.f90 sourcefile~iapws_g704.f90->sourcefile~iapws_r283.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~~capi.f90~~AfferentGraph sourcefile~capi.f90 capi.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~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 iapws__capi !! Main module for the IAPWS library: C API. use iapws__capi_version use iapws__capi_r783 use iapws__capi_g704 end module iapws__capi","tags":"","loc":"sourcefile/capi.f90.html"},{"title":"capi_version.f90 – iapws","text":"This file depends on sourcefile~~capi_version.f90~~EfferentGraph sourcefile~capi_version.f90 capi_version.f90 sourcefile~iapws_version.f90 iapws_version.f90 sourcefile~capi_version.f90->sourcefile~iapws_version.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~~capi_version.f90~~AfferentGraph sourcefile~capi_version.f90 capi_version.f90 sourcefile~capi.f90 capi.f90 sourcefile~capi.f90->sourcefile~capi_version.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~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 iapws__capi_version !! Version: C API. use iso_c_binding , only : c_null_char , c_ptr , c_loc use iapws__version implicit none private character ( len = :), allocatable , target :: version_c public :: capi_get_version contains function capi_get_version () bind ( c , name = \"iapws_get_version\" ) result ( cptr ) !! Get the version. implicit none ! Returns type ( c_ptr ) :: cptr !! Pointer to version string. 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 end module iapws__capi_version","tags":"","loc":"sourcefile/capi_version.f90.html"},{"title":"capi_r797.f90 – iapws","text":"This file depends on sourcefile~~capi_r797.f90~~EfferentGraph sourcefile~capi_r797.f90 capi_r797.f90 sourcefile~iapws_r797.f90 iapws_r797.f90 sourcefile~capi_r797.f90->sourcefile~iapws_r797.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~iapws_r797.f90->sourcefile~iapws_r283.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 iapws__capi_r797 use stdlib_kinds , only : dp , int32 use iso_c_binding , only : c_double , c_int , c_size_t use iapws__r797 implicit none private public :: capi_psat , capi_Tsat contains pure subroutine capi_psat ( N , Ts , ps ) bind ( C , name = \"iapws_r797_psat\" ) !! Compute the saturation pressure at temperature Ts. integer ( c_size_t ), intent ( in ), value :: N real ( c_double ), intent ( in ) :: Ts ( N ) real ( c_double ), intent ( out ) :: ps ( N ) call psat ( Ts , ps ) end subroutine pure subroutine capi_Tsat ( N , ps , Ts ) bind ( C , name = \"iapws_r797_Tsat\" ) !! Compute the saturation temperature at pressure ps. integer ( c_size_t ), intent ( in ), value :: N real ( c_double ), intent ( in ) :: ps ( N ) real ( c_double ), intent ( out ) :: Ts ( N ) call Tsat ( ps , Ts ) end subroutine end module iapws__capi_r797","tags":"","loc":"sourcefile/capi_r797.f90.html"},{"title":"capi_g704.f90 – iapws","text":"This file depends on sourcefile~~capi_g704.f90~~EfferentGraph sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~capi_g704.f90->sourcefile~iapws_g704.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~iapws_g704.f90->sourcefile~iapws_r283.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~~capi_g704.f90~~AfferentGraph sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~capi.f90 capi.f90 sourcefile~capi.f90->sourcefile~capi_g704.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~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 iapws__capi_g704 !! Module for IAPWS G704 : C API. use iso_fortran_env use iso_c_binding , only : c_double , c_int , c_ptr , c_f_pointer , c_char , c_size_t , c_null_char , c_loc use iapws__g704 implicit none private type , bind ( C ) :: c_char_p type ( c_ptr ) :: p end type type :: cgas_type character ( kind = c_char , len = 1 ), allocatable :: gas (:) end type type ( cgas_type ), allocatable , target :: c_gases (:) type ( c_char_p ), allocatable , target :: char_pp (:) character ( len = :), allocatable , target :: c_gases_str public :: capi_kh , capi_kd public :: capi_ngases public :: capi_gases contains subroutine capi_kh ( T , gas , heavywater , k , size_gas , size_T ) bind ( C , name = \"iapws_g704_kh\" ) !! Compute the henry constant for a given temperature. implicit none ! arguments integer ( c_int ), intent ( in ), value :: size_gas !! Size of the gas string. integer ( c_size_t ), intent ( in ), value :: size_T !! Size of T and k. real ( c_double ), intent ( in ) :: T ( size_T ) !! Temperature in °C. type ( c_ptr ), intent ( in ), value :: gas !! Gas. integer ( c_int ), intent ( in ), value :: heavywater !! Flag if D2O (1) is used or H2O(0). real ( c_double ), intent ( inout ) :: k ( size_T ) !! Henry constant. Filled with NaNs if gas not found. ! variables character , pointer , dimension (:) :: c2f_gas character ( len = size_gas ) :: f_gas integer ( int32 ) :: i call c_f_pointer ( gas , c2f_gas , shape = [ size_gas ]) do i = 1 , size_gas f_gas ( i : i ) = c2f_gas ( i ) enddo call kh ( T , f_gas , heavywater , k ) end subroutine subroutine capi_kd ( T , gas , heavywater , k , size_gas , size_T ) bind ( C , name = \"iapws_g704_kd\" ) !! Compute the vapor-liquid constant for a given temperature. implicit none ! arguments integer ( c_size_t ), intent ( in ), value :: size_T !! Size of T and k. integer ( c_int ), intent ( in ), value :: size_gas !! Size of the gas string. real ( c_double ), intent ( in ) :: T ( size_T ) !! Temperature in °C. type ( c_ptr ), intent ( in ), value :: gas !! Gas. integer ( c_int ), intent ( in ), value :: heavywater !! Flag if D2O (1) is used or H2O(0). real ( c_double ), intent ( inout ) :: k ( size_T ) !! Vapor-liquid constant. Filled with NaNs if gas not found. ! variables character , pointer , dimension (:) :: c2f_gas character ( len = size_gas ) :: f_gas integer ( int32 ) :: i call c_f_pointer ( gas , c2f_gas , shape = [ size_gas ]) do i = 1 , size_gas f_gas ( i : i ) = c2f_gas ( i ) enddo call kd ( T , f_gas , heavywater , k ) end subroutine pure function capi_ngases ( heavywater ) bind ( C , name = \"iapws_g704_ngases\" ) result ( n ) !! Returns the number of gases. implicit none ! arguments integer ( c_int ), intent ( in ), value :: heavywater !! Flag if D2O (1) is used or H2O(0). integer ( c_int ) :: n !! Number of gases. n = ngases ( heavywater ) end function function capi_gases ( heavywater ) bind ( C , name = \"iapws_g704_gases\" ) result ( list_gases ) !! Returns the list of available gases. implicit none ! arguments integer ( c_int ), intent ( in ), value :: heavywater !! Flag if D2O (1) is used or H2O(0). type ( c_ptr ) :: list_gases !! Available gases. ! variables integer ( int32 ) :: i , j , ngas , n type ( gas_type ), pointer :: f_gases (:) => null () f_gases => gases ( heavywater ) ngas = size ( f_gases ) if ( allocated ( c_gases )) then deallocate ( c_gases ) endif allocate ( c_gases ( ngas )) if ( allocated ( char_pp )) then deallocate ( char_pp ) endif allocate ( char_pp ( ngas )) do i = 1 , ngas if ( allocated ( c_gases ( i )% gas )) then deallocate ( c_gases ( i )% gas ) endif n = len ( f_gases ( i )% gas ) allocate ( c_gases ( i )% gas ( n + 1 )) do j = 1 , n c_gases ( i )% gas ( j ) = f_gases ( i )% gas ( j : j ) enddo c_gases ( i )% gas ( n + 1 ) = c_null_char char_pp ( i )% p = c_loc ( c_gases ( i )% gas ) enddo list_gases = c_loc ( char_pp ) end function function capi_gases2 ( heavywater ) bind ( C , name = \"iapws_g704_gases2\" ) result ( str_gases ) !! Returns the available gases as a string. implicit none ! arguments integer ( c_int ), intent ( in ), value :: heavywater !! Flag if D2O (1) is used or H2O(0). type ( c_ptr ) :: str_gases !! Available gases. ! variables character ( len = :), pointer :: f_gases_str => null () f_gases_str => gases2 ( heavywater ) if ( allocated ( c_gases_str )) then deallocate ( c_gases_str ) endif allocate ( character ( len = len ( f_gases_str )) :: c_gases_str ) c_gases_str = f_gases_str c_gases_str ( len ( f_gases_str ): len ( f_gases_str )) = c_null_char str_gases = c_loc ( c_gases_str ) end function end module iapws__capi_g704","tags":"","loc":"sourcefile/capi_g704.f90.html"},{"title":"iapws_version.f90 – iapws","text":"Files dependent on this one sourcefile~~iapws_version.f90~~AfferentGraph sourcefile~iapws_version.f90 iapws_version.f90 sourcefile~capi_version.f90 capi_version.f90 sourcefile~capi_version.f90->sourcefile~iapws_version.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~iapws_version.f90 sourcefile~capi.f90 capi.f90 sourcefile~iapws.f90->sourcefile~capi.f90 sourcefile~capi.f90->sourcefile~capi_version.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 iapws__version !! Version implicit none private character ( len =* ), parameter :: version = \"0.4.0\" character ( len = :), allocatable , target :: version_f public :: get_version contains function get_version () result ( fptr ) !! Get the version. implicit none !! Returns character ( len = :), pointer :: fptr !! Pointer to the version string. if ( allocated ( version_f )) then deallocate ( version_f ) endif allocate ( character ( len = len ( version )) :: version_f ) version_f = version fptr => version_f end function end module iapws__version","tags":"","loc":"sourcefile/iapws_version.f90.html"},{"title":"capi_r283.f90 – iapws","text":"This file depends on sourcefile~~capi_r283.f90~~EfferentGraph sourcefile~capi_r283.f90 capi_r283.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~capi_r283.f90->sourcefile~iapws_r283.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~~capi_r283.f90~~AfferentGraph sourcefile~capi_r283.f90 capi_r283.f90 sourcefile~capi.f90 capi.f90 sourcefile~capi.f90->sourcefile~capi_r283.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~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 iapws__capi_r783 !! Module for IAPWS R2-83: C API. use iso_c_binding , only : c_double use iapws__r283 implicit none private real ( c_double ), protected , bind ( C , name = \"iapws_r283_Tc_H2O\" ) :: capi_Tc_H2O = Tc_H2O !! Critical temperature for H2O in K real ( c_double ), protected , bind ( C , name = \"iapws_r283_Tc_D2O\" ) :: capi_Tc_D2O = Tc_D2O !! Critical temperature for D2O in K real ( c_double ), protected , bind ( C , name = \"iapws_r283_pc_H2O\" ) :: capi_pc_H2O = pc_H2O !! Critical pressure for H2O in MPa real ( c_double ), protected , bind ( C , name = \"iapws_r283_pc_D2O\" ) :: capi_pc_D2O = pc_D2O !! Critical pressure for D2O in MPa real ( c_double ), protected , bind ( C , name = \"iapws_r283_rhoc_H2O\" ) :: capi_rhoc_H2O = rhoc_H2O !! Critical density for H2O in kg.m-3 real ( c_double ), protected , bind ( C , name = \"iapws_r283_rhoc_D2O\" ) :: capi_rhoc_D2O = rhoc_D2O !! Critical density for D2O in kg.m-3 public :: capi_Tc_H2O , & capi_Tc_D2O , & capi_pc_H2O , & capi_pc_D2O , & capi_rhoc_H2O , & capi_rhoc_D2O end module iapws__capi_r783","tags":"","loc":"sourcefile/capi_r283.f90.html"},{"title":"iapws_r283.f90 – iapws","text":"Files dependent on this one sourcefile~~iapws_r283.f90~~AfferentGraph sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~capi_r283.f90 capi_r283.f90 sourcefile~capi_r283.f90->sourcefile~iapws_r283.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~iapws_r283.f90 sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~iapws.f90->sourcefile~iapws_g704.f90 sourcefile~iapws_r797.f90 iapws_r797.f90 sourcefile~iapws.f90->sourcefile~iapws_r797.f90 sourcefile~capi.f90 capi.f90 sourcefile~iapws.f90->sourcefile~capi.f90 sourcefile~iapws_g704.f90->sourcefile~iapws_r283.f90 sourcefile~iapws_r797.f90->sourcefile~iapws_r283.f90 sourcefile~capi.f90->sourcefile~capi_r283.f90 sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~capi.f90->sourcefile~capi_g704.f90 sourcefile~capi_g704.f90->sourcefile~iapws_g704.f90 sourcefile~capi_r797.f90 capi_r797.f90 sourcefile~capi_r797.f90->sourcefile~iapws_r797.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 iapws__r283 !! Module for IAPWS R2-83. use stdlib_kinds , only : dp implicit none private real ( dp ), parameter :: Tc_H2O = 64 7.096_dp !! Critical temperature for H2O in K real ( dp ), parameter :: Tc_D2O = 64 3.847_dp !! Critical temperature for D2O in K real ( dp ), parameter :: pc_H2O = 2 2.064_dp !! Critical pressure for H2O in MPa real ( dp ), parameter :: pc_D2O = 2 1.671_dp !! Critical pressure for H2O in MPa real ( dp ), parameter :: rhoc_H2O = 32 2.0_dp !! Critical density for H2O in kg.m-3 real ( dp ), parameter :: rhoc_D2O = 35 6.0_dp !! Critical density for H2O in kg.m-3 public :: Tc_H2O , Tc_D2O , pc_H2O , pc_D2O , rhoc_H2O , rhoc_D2O end module","tags":"","loc":"sourcefile/iapws_r283.f90.html"},{"title":"iapws_r797.f90 – iapws","text":"This file depends on sourcefile~~iapws_r797.f90~~EfferentGraph sourcefile~iapws_r797.f90 iapws_r797.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~iapws_r797.f90->sourcefile~iapws_r283.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~~iapws_r797.f90~~AfferentGraph sourcefile~iapws_r797.f90 iapws_r797.f90 sourcefile~capi_r797.f90 capi_r797.f90 sourcefile~capi_r797.f90->sourcefile~iapws_r797.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~iapws_r797.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 iapws__r797 !! Module for IAPWS R7-97: Not fully implemented - under development. use stdlib_kinds , only : dp use ieee_arithmetic use iapws__r283 , only : Tc_H2O , pc_H2O , rhoc_H2O implicit none private public :: iapws_r797_v , psat , Tsat real ( dp ), parameter :: T_KELVIN = 27 3.15_dp !! Parameters from IAPWS R7-97 real ( dp ), parameter :: Tc = Tc_H2O !! critical temperature of water in K real ( dp ), parameter :: pc = pc_H2O !! critical pressure of the water in MPa real ( dp ), parameter :: rhoc = rhoc_H2O !! critical density of the water in kg.m-3. real ( dp ), parameter :: R = 0.461526_dp !! Specific gas constant 0.461 526 kJ.kg-1.K-1 ! Region 1 !-------------------------------------------------------------------------------------------------------------------------------- real ( dp ), parameter :: r1_ps = 1 6.53_dp ! p* real ( dp ), parameter :: r1_ts = 138 6.0_dp ! T* real ( dp ) :: IJn_r1f ( 9 , 3 ) = transpose ( reshape ([& 0.0_dp , - 2.0_dp , 0.146_dp , & 0.0_dp , - 1.0_dp , - 0.84548187169114_dp , & 0.0_dp , 0.0_dp , - 0.37563672040d1 , & 0.0_dp , 1.0_dp , 0.33855169168385d1 , & 0.0_dp , 2.0_dp , - 0.95791963387872_dp ,& 0.0_dp , 3.0_dp , 0.15772038513228_dp , & 0.0_dp , 4.0_dp , - 0.16616417199501d-1 , & 0.0_dp , 5.0_dp , - 0.81214629983568d-3 , & 1.0_dp , - 9.0_dp , - 0.28319080123804d-3 ], & [ 3 , 9 ])) !! Coefficients I, J and n for forward equation in region 1. !-------------------------------------------------------------------------------------------------------------------------------- ! Region 4: Saturation line !-------------------------------------------------------------------------------------------------------------------------------- real ( dp ) :: r4_n ( 10 ) = [ & + 0.11670521452767e4_dp , & - 0.72421316703206e6_dp , & - 0.1707384694009292e2_dp , & + 0.12020824702470e5_dp , & - 0.32325550322333e7_dp , & + 0.14915108613530e2_dp , & - 0.48232657361591e4_dp , & + 0.40511340542057e6_dp , & - 0.23855557567849_dp , & + 0.65017534844798e3_dp & ] !! ni coefficients for region 4 (saturation line) real ( dp ), parameter :: r4_Tmin = 27 3.15_dp !! Lower bound for validity for ps(T) in K. real ( dp ), parameter :: r4_Tmax = 64 7.096_dp !! Upper bound for validity ps(T) in K. real ( dp ), parameter :: r4_pmin = 61 1.213e-6_dp !! Lower bound for validity for Ts(p) in MPa real ( dp ), parameter :: r4_pmax = 2 2.064_dp !! Upper bound for validity Ts(p) in MPa real ( dp ), parameter :: r4_Tstar = 1_dp !! K real ( dp ), parameter :: r4_Pstar = 1_dp !! MPa !-------------------------------------------------------------------------------------------------------------------------------- contains ! Region 1 !-------------------------------------------------------------------------------------------------------------------------------- pure elemental function gamma_ ( P , T ) result ( res ) implicit none real ( dp ), intent ( in ) :: P !! Pressure real ( dp ), intent ( in ) :: T !! Temperature real ( dp ) :: pi real ( dp ) :: tau real ( dp ) :: res pi = ( T + T_KELVIN ) / r1_ts tau = P / r1_ps res = sum ( IJn_r1f (:, 3 ) * ( 7.1_dp - pi ) ** IJn_r1f (:, 1 ) * ( tau - 1.222_dp ) ** IJn_r1f (:, 2 )) end function pure elemental function gamma_pi ( P , T ) result ( res ) implicit none real ( dp ), intent ( in ) :: P real ( dp ), intent ( in ) :: T real ( dp ) :: pi real ( dp ) :: tau real ( dp ) :: res pi = ( T + T_KELVIN ) / r1_ts tau = P / r1_ps res = sum ( IJn_r1f (:, 3 ) * IJn_r1f (:, 1 ) * ( 7.1_dp - pi ) ** ( IJn_r1f (:, 1 ) - 1.0_dp ) * ( tau - 1.222_dp ) ** IJn_r1f (:, 2 )) end function pure elemental function iapws_r797_v ( P , T ) result ( res ) implicit none real ( dp ), intent ( in ) :: P real ( dp ), intent ( in ) :: T real ( dp ) :: res res = R * ( T + T_KELVIN ) / P * gamma_pi ( P , T ) end function !-------------------------------------------------------------------------------------------------------------------------------- ! Region 4: Saturation line !-------------------------------------------------------------------------------------------------------------------------------- pure elemental function r4_ps ( Ts ) result ( value ) !! Compute the saturation-pressure line. !! Validity range 273.13 K <= Ts <= 647.096 K. real ( dp ), intent ( in ) :: Ts !! Saturation temperature in K. real ( dp ) :: value !! Saturation pressure in MPa at temperature Ts. Is nan if Ts is out of range. real ( dp ) :: theta , Ts_K , A , B , C if ( Ts < r4_Tmin ) then value = ieee_value ( 1.0_dp , ieee_quiet_nan ) else if ( Ts > r4_Tmax ) then value = ieee_value ( 1.0_dp , ieee_quiet_nan ) else Ts_K = Ts / r4_Tstar theta = Ts_K + r4_n ( 9 ) / ( Ts_K - r4_n ( 10 )) A = theta ** 2 + r4_n ( 1 ) * theta + r4_n ( 2 ) B = r4_n ( 3 ) * theta ** 2 + r4_n ( 4 ) * theta + r4_n ( 5 ) C = r4_n ( 6 ) * theta ** 2 + r4_n ( 7 ) * theta + r4_n ( 8 ) value = r4_Pstar * ( 2 * C / ( - B + ( B ** 2 - 4 * A * C ) ** ( 0.5_dp ))) ** ( 4.0_dp ) endif end function pure elemental function r4_Ts ( ps ) result ( value ) !! Compute the saturation-pressure line. !! Validity range 611.213 Pa <= ps <= 22.064 MPa. real ( dp ), intent ( in ) :: ps !! Saturation pressure in MPa. real ( dp ) :: value !! Saturation temperature in K at pressure ps. Is nan if ps is out of range. real ( dp ) :: beta , D , E , F , G if ( ps < r4_pmin ) then value = ieee_value ( 1.0_dp , ieee_quiet_nan ) else if ( ps > r4_pmax ) then value = ieee_value ( 1.0_dp , ieee_quiet_nan ) else beta = ( ps / r4_Pstar ) ** ( 0.25_dp ) E = beta ** 2 + r4_n ( 3 ) * beta + r4_n ( 6 ) F = r4_n ( 1 ) * beta ** 2 + r4_n ( 4 ) * beta + r4_n ( 7 ) G = r4_n ( 2 ) * beta ** 2 + r4_n ( 5 ) * beta + r4_n ( 8 ) D = 2 * G / ( - F - ( F ** 2 - 4 * E * G ) ** ( 0.5_dp )) value = r4_Tstar * ( r4_n ( 10 ) + D - (( r4_n ( 10 ) + D ) ** 2.0_dp - 4.0_dp * ( r4_n ( 9 ) + r4_n ( 10 ) * D )) ** 0.5_dp ) / 2.0_dp endif end function pure subroutine psat ( Ts , ps ) !! Compute the saturation pressure at temperature Ts. !! Validity range 273.13 K <= Ts <= 647.096 K. real ( dp ), intent ( in ) :: Ts (:) !! Saturation temperature in K. real ( dp ), intent ( out ) :: ps (:) !! Saturation pressure in MPa. Filled with nan if out of validity range. ps = r4_ps ( Ts ) end subroutine pure subroutine Tsat ( ps , Ts ) !! Compute the saturation temperature at pressure ps. !! Validity range 611.213 Pa <= ps <= 22.064 MPa. real ( dp ), intent ( in ) :: ps (:) !! Saturation pressure in MPa. real ( dp ), intent ( out ) :: Ts (:) !! Saturation temperature in K. Filled with nan if out of validity range. Ts = r4_Ts ( ps ) end subroutine !-------------------------------------------------------------------------------------------------------------------------------- end module","tags":"","loc":"sourcefile/iapws_r797.f90.html"},{"title":"iapws.f90 – iapws","text":"This file depends on sourcefile~~iapws.f90~~EfferentGraph sourcefile~iapws.f90 iapws.f90 sourcefile~capi.f90 capi.f90 sourcefile~iapws.f90->sourcefile~capi.f90 sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~iapws.f90->sourcefile~iapws_g704.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~iapws.f90->sourcefile~iapws_r283.f90 sourcefile~iapws_r797.f90 iapws_r797.f90 sourcefile~iapws.f90->sourcefile~iapws_r797.f90 sourcefile~iapws_version.f90 iapws_version.f90 sourcefile~iapws.f90->sourcefile~iapws_version.f90 sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~capi.f90->sourcefile~capi_g704.f90 sourcefile~capi_r283.f90 capi_r283.f90 sourcefile~capi.f90->sourcefile~capi_r283.f90 sourcefile~capi_version.f90 capi_version.f90 sourcefile~capi.f90->sourcefile~capi_version.f90 sourcefile~iapws_g704.f90->sourcefile~iapws_r283.f90 sourcefile~iapws_r797.f90->sourcefile~iapws_r283.f90 sourcefile~capi_g704.f90->sourcefile~iapws_g704.f90 sourcefile~capi_r283.f90->sourcefile~iapws_r283.f90 sourcefile~capi_version.f90->sourcefile~iapws_version.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 iapws !! Main module for the IAPWS library. use iapws__version use iapws__g704 use iapws__r283 use iapws__r797 use iapws__capi end module","tags":"","loc":"sourcefile/iapws.f90.html"},{"title":"iapws_g704.f90 – iapws","text":"This file depends on sourcefile~~iapws_g704.f90~~EfferentGraph sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~iapws_r283.f90 iapws_r283.f90 sourcefile~iapws_g704.f90->sourcefile~iapws_r283.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~~iapws_g704.f90~~AfferentGraph sourcefile~iapws_g704.f90 iapws_g704.f90 sourcefile~capi_g704.f90 capi_g704.f90 sourcefile~capi_g704.f90->sourcefile~iapws_g704.f90 sourcefile~iapws.f90 iapws.f90 sourcefile~iapws.f90->sourcefile~iapws_g704.f90 sourcefile~capi.f90 capi.f90 sourcefile~iapws.f90->sourcefile~capi.f90 sourcefile~capi.f90->sourcefile~capi_g704.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 iapws__g704 !! Module for IAPWS G7-04. use stdlib_kinds , only : dp , int32 use ieee_arithmetic , only : ieee_value , ieee_quiet_nan use iapws__r283 implicit none private integer ( int32 ), parameter :: lengas = 5 integer ( int32 ), parameter :: ngas_H2O = 14 integer ( int32 ), parameter :: ngas_D2O = 7 type :: gas_type !! Derived type containing a allocatable string for representing a gas. character ( len = :), allocatable :: gas !! Gas end type type ( gas_type ), allocatable , target :: f_gases (:) character ( len = :), allocatable , target :: f_gases_str real ( dp ), parameter :: T_KELVIN = 27 3.15_dp !! Absolute temperature in KELVIN real ( dp ), parameter :: Tc1_H2O = Tc_H2O real ( dp ), parameter :: pc1_H2O = pc_H2O real ( dp ), parameter :: Tc1_D2O = Tc_D2O real ( dp ), parameter :: pc1_D2O = pc_D2O real ( dp ), parameter :: q_H2O = - 0.023767_dp !! solvent coefficient for kd in water real ( dp ), parameter :: q_D2O = - 0.024552_dp !! solvent coefficient for kd in heavywater !! ABC coefficients for gases in water. type :: abc_t character ( len = lengas ) :: gas !! Gas real ( dp ) :: A !! A Column real ( dp ) :: B !! B Column real ( dp ) :: C !! C Column end type !! EFGH coefficients for gases in heavywater. type :: efgh_t character ( len = lengas ) :: gas !! Gas real ( dp ) :: E !! E Column real ( dp ) :: F !! F Column real ( dp ) :: G !! G Column real ( dp ) :: H !! H Column end type !! ai and bi coefficients for water real ( dp ), dimension ( 6 , 2 ), parameter :: aibi_H2O = reshape ([& - 7.85951783_dp , 1.84408259_dp , - 1 1.78664970_dp , 2 2.68074110_dp , - 1 5.96187190_dp , 1.80122502_dp ,& 1.000_dp , 1.500_dp , 3.000_dp , 3.500_dp , 4.000_dp , 7.500_dp ], [ 6 , 2 ]) !! ai and bi coefficients for heavywater real ( dp ), dimension ( 5 , 2 ), parameter :: aibi_D2O = reshape ([& - 7.8966570_dp , 2 4.7330800_dp , - 2 7.8112800_dp , 9.3559130_dp , - 9.2200830_dp , & 1.00_dp , 1.89_dp , 2.00_dp , 3.00_dp , 3.60_dp ], [ 5 , 2 ]) !! ABC constants water. type ( abc_t ), dimension ( ngas_H2O ), parameter :: abc_H2O = & [ abc_t ( \"He\" , - 3.52839_dp , 7.12983_dp , 4.47770_dp ),& abc_t ( \"Ne\" , - 3.18301_dp , 5.31448_dp , 5.43774_dp ),& abc_t ( \"Ar\" , - 8.40954_dp , 4.29587_dp , 1 0.52779_dp ),& abc_t ( \"Kr\" , - 8.97358_dp , 3.61508_dp , 1 1.29963_dp ),& abc_t ( \"Xe\" , - 1 4.21635_dp , 4.00041_dp , 1 5.60999_dp ),& abc_t ( \"H2\" , - 4.73284_dp , 6.08954_dp , 6.06066_dp ),& abc_t ( \"N2\" , - 9.67578_dp , 4.72162_dp , 1 1.70585_dp ),& abc_t ( \"O2\" , - 9.44833_dp , 4.43822_dp , 1 1.42005_dp ),& abc_t ( \"CO\" , - 1 0.52862_dp , 5.13259_dp , 1 2.01421_dp ),& abc_t ( \"CO2\" , - 8.55445_dp , 4.01195_dp , 9.52345_dp ),& abc_t ( \"H2S\" , - 4.51499_dp , 5.23538_dp , 4.42126_dp ),& abc_t ( \"CH4\" , - 1 0.44708_dp , 4.66491_dp , 1 2.12986_dp ),& abc_t ( \"C2H6\" , - 1 9.67563_dp , 4.51222_dp , 2 0.62567_dp ),& abc_t ( \"SF6\" , - 1 6.56118_dp , 2.15289_dp , 2 0.35440_dp )] !! ABC constants for heavywater type ( abc_t ), dimension ( ngas_D2O ), parameter :: abc_D2O = & [ abc_t ( \"He\" , - 0.72643_dp , 7.02134_dp , 2.04433_dp ),& abc_t ( \"Ne\" , - 0.91999_dp , 5.65327_dp , 3.17247_dp ),& abc_t ( \"Ar\" , - 7.17725_dp , 4.48177_dp , 9.31509_dp ),& abc_t ( \"Kr\" , - 8.47059_dp , 3.91580_dp , 1 0.69433_dp ),& abc_t ( \"Xe\" , - 1 4.46485_dp , 4.42330_dp , 1 5.60919_dp ),& abc_t ( \"D2\" , - 5.33843_dp , 6.15723_dp , 6.53046_dp ),& abc_t ( \"CH4\" , - 1 0.01915_dp , 4.73368_dp , 1 1.75711_dp )] !! ci and di coefficients for water real ( dp ), dimension ( 6 , 2 ), parameter :: cidi_H2O = reshape ([& 1.99274064_dp , 1.09965342_dp , - 0.510839303_dp , - 1.75493479_dp , - 4 5.5170352_dp , - 6.7469445d5 ,& 1.0_dp / 3.0_dp , 2.0_dp / 3.0_dp , 5.0_dp / 3.0_dp , 1 6.0_dp / 3.0_dp , 4 3.0_dp / 3.0_dp , 11 0.0_dp / 3.0_dp ], [ 6 , 2 ]) !! ci and di coefficients for heavywater real ( dp ), dimension ( 4 , 2 ), parameter :: cidi_D2O = reshape ([& 2.7072_dp , 0.58662_dp , - 1.3069_dp , - 4 5.663_dp , & 0.374_dp , 1.45_dp , 2.6_dp , 1 2.3_dp ], [ 4 , 2 ]) !! EFGH constants for water type ( efgh_t ), dimension ( ngas_H2O ), parameter :: efgh_H2O = & [ efgh_t ( \"He\" , 226 7.4082_dp , - 2.9616_dp , - 3.2604_dp , 7.8819_dp ),& efgh_t ( \"Ne\" , 250 7.3022_dp , - 3 8.6955_dp , 11 0.3992_dp , - 7 1.9096_dp ),& efgh_t ( \"Ar\" , 231 0.5463_dp , - 4 6.7034_dp , 16 0.4066_dp , - 11 8.3043_dp ),& efgh_t ( \"Kr\" , 227 6.9722_dp , - 6 1.1494_dp , 21 4.0117_dp , - 15 9.0407_dp ),& efgh_t ( \"Xe\" , 202 2.8375_dp , 1 6.7913_dp , - 6 1.2401_dp , 4 1.9236_dp ),& efgh_t ( \"H2\" , 228 6.4159_dp , 1 1.3397_dp , - 7 0.7279_dp , 6 3.0631_dp ),& efgh_t ( \"N2\" , 238 8.8777_dp , - 1 4.9593_dp , 4 2.0179_dp , - 2 9.4396_dp ),& efgh_t ( \"O2\" , 230 5.0674_dp , - 1 1.3240_dp , 2 5.3224_dp , - 1 5.6449_dp ),& efgh_t ( \"CO\" , 234 6.2291_dp , - 5 7.6317_dp , 20 4.5324_dp , - 15 2.6377_dp ),& efgh_t ( \"CO2\" , 167 2.9376_dp , 2 8.1751_dp , - 11 2.4619_dp , 8 5.3807_dp ),& efgh_t ( \"H2S\" , 131 9.1205_dp , 1 4.1571_dp , - 4 6.8361_dp , 3 3.2266_dp ),& efgh_t ( \"CH4\" , 221 5.6977_dp , - 0.1089_dp , - 6.6240_dp , 4.6789_dp ),& efgh_t ( \"C2H6\" , 214 3.8121_dp , 6.8859_dp , - 1 2.6084_dp , 0.0_dp ),& efgh_t ( \"SF6\" , 287 1.7265_dp , - 6 6.7556_dp , 22 9.7191_dp , - 17 2.7400_dp )] !! EFGH constants for heavywater type ( efgh_t ), dimension ( ngas_D2O ), parameter :: efgh_D2O = & [ efgh_t ( \"He\" , 229 3.2474_dp , - 5 4.7707_dp , 19 4.2924_dp , - 14 2.1257 ), & efgh_t ( \"Ne\" , 243 9.6677_dp , - 9 3.4934_dp , 33 0.7783_dp , - 24 3.0100_dp ),& efgh_t ( \"Ar\" , 226 9.2352_dp , - 5 3.6321_dp , 19 1.8421_dp , - 14 3.7659_dp ),& efgh_t ( \"Kr\" , 225 0.3857_dp , - 4 2.0835_dp , 14 0.7656_dp , - 10 2.7592_dp ),& efgh_t ( \"Xe\" , 203 8.3656_dp , 6 8.1228_dp , - 27 1.3390_dp , 20 7.7984_dp ),& efgh_t ( \"D2\" , 214 1.3214_dp , - 1.9696_dp , 1.6136_dp , 0.0_dp ),& efgh_t ( \"CH4\" , 221 6.0181_dp , - 4 0.7666_dp , 15 2.5778_dp , - 11 7.7430_dp )] public :: gas_type public :: kh , kd public :: ngases public :: gases , gases2 contains pure function findgas_abc ( gas , abc ) result ( value ) !! Find the index of the gas in the ABC table. implicit none character ( len =* ), intent ( in ) :: gas !! Gas. type ( abc_t ), dimension (:), intent ( in ) :: abc !! ABC table. integer ( int32 ) :: value !! index of the gas. integer ( int32 ) :: i value = 0 do i = 1 , size ( abc ) if ( trim ( gas ) . eq . abc ( i )% gas ) then value = i exit endif end do end function pure function findgas_efgh ( gas , efgh ) result ( value ) !! Find the index of the gas in the ABC table. implicit none character ( len =* ), intent ( in ) :: gas !! Gas. type ( efgh_t ), dimension (:), intent ( in ) :: efgh !! EFGH table. integer ( int32 ) :: value !! index of gas. integer ( int32 ) :: i value = 0 do i = 1 , size ( efgh ) if ( trim ( gas ) . eq . efgh ( i )% gas ) then value = i exit endif end do end function pure elemental function f_p1star_H2O ( T ) result ( value ) !! Compute p1* in H2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. real ( dp ) :: value !! p1* in MPa. real ( dp ) :: Tr real ( dp ) :: tau Tr = T / Tc1_H2O tau = 1 - Tr value = exp ( 1 / ( Tr ) * sum ( aibi_H2O (:, 1 ) * tau ** ( aibi_H2O (:, 2 )))) * pc1_H2O end function pure elemental function f_p1star_D2O ( T ) result ( value ) !! Compute p1* in D2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. real ( dp ) :: value !! p1* in MPa. real ( dp ) :: Tr real ( dp ) :: tau Tr = T / Tc1_D2O tau = 1 - Tr value = exp ( 1 / ( Tr ) * sum ( aibi_D2O (:, 1 ) * tau ** ( aibi_D2O (:, 2 )))) * pc1_D2O end function pure elemental function f_kh_p1star_H2O ( T , abc ) result ( value ) !! Compute kh/p1* in H2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( abc_t ), intent ( in ) :: abc !! ABC coefficients. real ( dp ) :: value !! kH/p1* adimensional. real ( dp ) :: Tr real ( dp ) :: tau Tr = T / Tc1_H2O tau = 1 - Tr value = exp ( abc % A / Tr + abc % B * ( tau ** 0.355_dp ) / Tr + abc % C * exp ( tau ) * Tr ** ( - 0.41_dp )) end function pure elemental function f_kh_p1star_D2O ( T , abc ) result ( value ) !! Compute kh/p1* in D2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( abc_t ), intent ( in ) :: abc !! ABC coefficients. real ( dp ) :: value !! kh/p1* adimensional. real ( dp ) :: Tr real ( dp ) :: tau Tr = T / Tc1_D2O tau = 1 - Tr value = exp ( abc % A / Tr + abc % B * ( tau ** 0.355_dp ) / Tr + abc % C * exp ( tau ) * Tr ** ( - 0.41_dp )) end function pure elemental function ft_H2O ( tau ) result ( value ) !! Compute f(t) for H2O. implicit none real ( dp ), intent ( in ) :: tau !! tau = 1-T/Tr. real ( dp ) :: value !! f(t) is adimensional. value = sum ( cidi_H2O (:, 1 ) * tau ** ( cidi_H2O (:, 2 ))) end function pure elemental function ft_D2O ( tau ) result ( value ) !! Compute f(t) for D2O. implicit none real ( dp ), intent ( in ) :: tau !! tau = 1-T/Tr. real ( dp ) :: value !! f(t) is adimensional. value = sum ( cidi_D2O (:, 1 ) * tau ** ( cidi_D2O (:, 2 ))) end function pure elemental function f_kh_H2O ( T , abc ) result ( value ) !! Compute kH in H2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( abc_t ), intent ( in ) :: abc !! ABC coefficients. real ( dp ) :: value !! kH in MPa. value = f_kh_p1star_H2O ( T , abc ) * f_p1star_H2O ( T ) end function pure elemental function f_kh_D2O ( T , abc ) result ( value ) !! Compute kH in D2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( abc_t ), intent ( in ) :: abc !! ABC coefficients. real ( dp ) :: value !! kH in MPa. value = f_kh_p1star_D2O ( T , abc ) * f_p1star_D2O ( T ) end function pure elemental function f_kd_H2O ( T , efgh ) result ( value ) !! Compute kd in H2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( efgh_t ), intent ( in ) :: efgh !! EFGH coefficients. real ( dp ) :: value !! kD adimensional. real ( dp ) :: Tr real ( dp ) :: tau real ( dp ) :: p1 real ( dp ) :: p2 real ( dp ) :: p3 real ( dp ) :: p4 Tr = ( T + T_KELVIN ) / Tc1_H2O tau = 1 - Tr p1 = q_H2O * efgh % F p2 = efgh % E / T * ft_H2O ( tau ) p3 = ( efgh % F + efgh % G * tau ** ( 2.0_dp / 3.0_dp ) + efgh % H * tau ) p4 = exp ( - T / 10 0.0_dp ) value = exp ( p1 + p2 + p3 * p4 ) end function pure elemental function f_kd_D2O ( T , efgh ) result ( value ) !! Compute kd in D2O. implicit none real ( dp ), intent ( in ) :: T !! Temperature in K. type ( efgh_t ), intent ( in ) :: efgh !! EFGH coefficients. real ( dp ) :: value !! kD adimensional. real ( dp ) :: Tr real ( dp ) :: tau real ( dp ) :: p1 real ( dp ) :: p2 real ( dp ) :: p3 real ( dp ) :: p4 Tr = T / Tc1_D2O tau = 1 - Tr p1 = q_D2O * efgh % F p2 = efgh % E / T * ft_D2O ( tau ) p3 = ( efgh % F + efgh % G * tau ** ( 2.0_dp / 3.0_dp ) + efgh % H * tau ) p4 = exp ( - T / 10 0.0_dp ) value = exp ( p1 + p2 + p3 * p4 ) end function pure subroutine kh ( T , gas , heavywater , k ) !! Compute the henry constant kH for a given temperature. implicit none real ( dp ), intent ( in ) :: T (:) !! Temperature in K. character ( len =* ), intent ( in ) :: gas !! Gas. integer ( int32 ), intent ( in ) :: heavywater !! Flag if D2O (1) is used or H2O(0). real ( dp ), intent ( out ) :: k (:) !! Henry constant. Filled with NaNs if gas not found. integer ( int32 ) :: i if ( heavywater > 0 ) then i = findgas_abc ( gas , abc_D2O ) if ( i == 0 ) then k = ieee_value ( 1.0_dp , ieee_quiet_nan ) else k = f_kh_D2O ( T , abc_D2O ( i )) endif else i = findgas_abc ( gas , abc_H2O ) if ( i == 0 ) then k = ieee_value ( 1.0_dp , ieee_quiet_nan ) else k = f_kh_H2O ( T , abc_H2O ( i )) endif endif end subroutine pure subroutine kd ( T , gas , heavywater , k ) !! Compute the vapor-liquid constant kd for a given temperature. implicit none real ( dp ), intent ( in ) :: T (:) !! Temperature in K. character ( len =* ), intent ( in ) :: gas !! Gas. integer ( int32 ), intent ( in ) :: heavywater !! Flag if D2O (1) is used or H2O(0). real ( dp ), intent ( out ) :: k (:) !! Vapor-liquid constant. Filled with NaNs if gas not found. integer ( int32 ) :: i if ( heavywater > 0 ) then i = findgas_efgh ( gas , efgh_D2O ) if ( i == 0 ) then k = ieee_value ( 1.0_dp , ieee_quiet_nan ) else k = f_kd_D2O ( T , efgh_D2O ( i )) endif else i = findgas_efgh ( gas , efgh_H2O ) if ( i == 0 ) then k = ieee_value ( 1.0_dp , ieee_quiet_nan ) else k = f_kd_H2O ( T , efgh_H2O ( i )) endif endif end subroutine pure function ngases ( heavywater ) result ( n ) !! Returns the number of gases. implicit none integer ( int32 ), intent ( in ) :: heavywater !! Flag if D2O (1) is used or H2O(0). integer ( int32 ) :: n !! Number of gases. if ( heavywater > 0 ) then n = ngas_D2O else n = ngas_H2O endif end function function gases ( heavywater ) result ( list_gases ) !! Returns the list of available gases. implicit none ! arguments integer ( int32 ), intent ( in ) :: heavywater !! Flag if D2O (1) is used or H2O(0). type ( gas_type ), pointer :: list_gases (:) !! Available gases. ! variables integer ( int32 ) :: i , n if ( allocated ( f_gases )) then deallocate ( f_gases ) endif if ( heavywater > 0 ) then allocate ( f_gases ( ngas_D2O )) do i = 1 , ngas_D2O if ( allocated ( f_gases ( i )% gas )) then deallocate ( f_gases ( i )% gas ) endif n = len ( trim ( abc_D2O ( i )% gas )) allocate ( character ( len = n ) :: f_gases ( i )% gas ) f_gases ( i )% gas = trim ( abc_D2O ( i )% gas ) enddo else allocate ( f_gases ( ngas_H2O )) do i = 1 , ngas_H2O if ( allocated ( f_gases ( i )% gas )) then deallocate ( f_gases ( i )% gas ) endif n = len ( trim ( abc_H2O ( i )% gas )) allocate ( character ( len = n ) :: f_gases ( i )% gas ) f_gases ( i )% gas = trim ( abc_H2O ( i )% gas ) enddo endif list_gases => f_gases end function function gases2 ( heavywater ) result ( str_gases ) !! Returns the available gases as a string. implicit none ! arguments integer ( int32 ), intent ( in ) :: heavywater !! Flag if D2O (1) is used or H2O(0). character ( len = :), pointer :: str_gases !! Available gases ! variables integer ( int32 ) :: i , j , k , ngas type ( gas_type ), pointer :: f_gases_list (:) f_gases_list => gases ( heavywater ) ngas = size ( f_gases_list ) k = 0 do i = 1 , ngas k = k + len ( f_gases_list ( i )% gas ) enddo if ( allocated ( f_gases_str )) then deallocate ( f_gases_str ) endif allocate ( character ( len = k + ngas ) :: f_gases_str ) i = 1 j = 1 k = 1 do i = 1 , ngas do j = 1 , len ( f_gases_list ( i )% gas ) f_gases_str ( k : k ) = f_gases_list ( i )% gas ( j : j ) k = k + 1 enddo f_gases_str ( k : k ) = \",\" k = k + 1 enddo f_gases_str ( len ( f_gases_str ): len ( f_gases_str )) = \"\" str_gases => f_gases_str end function end module","tags":"","loc":"sourcefile/iapws_g704.f90.html"},{"title":"Contributing and specs – iapws","text":"Water properties for Modern Fortran.","tags":"","loc":"page/index.html"},{"title":"Changelog – iapws","text":"Version 0.4.0 Version 0.3.0 Version 0.2.2 Version 0.2.1 Version 0.2.0 Version 0.1.1 Version 0.1.0 Version 0.4.0 Implementation of the region 4 in R7-97. API break for kh and kd in g704. The temperature must be provided in Kelvin instead of degrees Celsius. Add dependency to numpy for python wrapper. Add pure python modules for encapsulating C extensions. Refractoring and code cleaning. Documentation update. Version 0.3.0 API break: functions for the Fortran code were renamed: They do not contain the package+module in the name for the sake of simplicity The package is only added in the functions for the C API in order to have a namespace-like behavior. If needed for solving conflicts with other packages, the functions can be aliased. Separate sources files for the C API code for each module. Implement tests with the test-drive framework. Add version extension in the pywrapper. Implement version module with its getter. Documentation update. Version 0.2.2 Implementation of report R283 for critical constants of water. Switch to pyproject.toml for python wrapper. Code refractoring and clean up. Documentation update. Full changelog available at github Version 0.2.1 Comlete missing documentation of private functions. Minor fixes in C API code as well in python wrapper. Remove unecessary dependency in Makefile. Full changelog available at github Version 0.2.0 New structure with modules corresponding to the IAPWS papers. Compatible with fpm. fpm module naming convention. API break for iapws_g704_kh and iapws_g704_kd functions: only 1d-arrays as inputs in Fortran and C API. only objects with buffer protocol as inputs in python wrapper. python wrappers return memoryviews. New functions: providing the number of gases in H2O and D2O. providing the available of gases in H2O and D2O as list of strings. providing the available of gases in H2O and D2O as a unique string. Cleanup old app code not needed anymore. Fix memory allocation in pywrapper. Completed tests. Documentation improvements: Add conversion equations from molar fractions to solubilities. Add plots for visualizing kh and kd. Full changelog available at github Version 0.1.1 Logo creation Error handling in python wrapper for arrays with rank greater than 1 Tests in python wrapper for expected failures with rank-n arrays Full changelog available at github Version 0.1.0 Implementation of kH and kD from IAPWS G7-04 in fortran + C API Python wrapper for kH and kD. Documentation with sphinx. Full changelog available at github","tags":"","loc":"page/changelog.html"},{"title":"Examples – iapws","text":"Fortran C Python Fortran program example_in_f use stdlib_kinds , only : dp , int32 use iapws implicit none integer ( int32 ) :: i , ngas real ( dp ) :: T ( 1 ), kh_res ( 1 ), kd_res ( 1 ) real ( dp ) :: Ts ( 7 ), ps ( 7 ) character ( len = 2 ) :: gas = \"O2\" integer ( int32 ) :: heavywater = 0 type ( gas_type ), pointer :: gases_list (:) character ( len = :), pointer :: gases_str print * , '########################## IAPWS VERSION ##########################' print * , \"version \" , get_version () print * , '########################## IAPWS R2-83 ##########################' print \"(a, f10.3, a)\" , \"Tc in h2o=\" , Tc_H2O , \" k\" print \"(a, f10.3, a)\" , \"pc in h2o=\" , pc_H2O , \" mpa\" print \"(a, f10.3, a)\" , \"rhoc in h2o=\" , rhoc_H2O , \" kg/m3\" print \"(a, f10.3, a)\" , \"Tc in D2O=\" , Tc_D2O , \" k\" print \"(a, f10.3, a)\" , \"pc in D2O=\" , pc_D2O , \" mpa\" print \"(a, f10.3, a)\" , \"rhoc in D2O=\" , rhoc_D2O , \" kg/m3\" print * , '' print * , '########################## IAPWS G7-04 ##########################' ! Compute kh and kd in H2O T ( 1 ) = 2 5.0_dp + 27 3.15_dp call kh ( T , gas , heavywater , kh_res ) print \"(A10, 1X, A10, 1X, A2, F10.1, A, 4X, A3, SP, F10.4)\" , \"Gas=\" , gas , \"T=\" , T , \"K\" , \"kh=\" , kh_res call kd ( T , gas , heavywater , kd_res ) print \"(A10, 1X, A10, 1X, A2, F10.1, A, 4X, A3, SP, F15.4)\" , \"Gas=\" , gas , \"T=\" , T , \"K\" , \"kh=\" , kd_res ! Get and print available gases heavywater = 0 ngas = ngases ( heavywater ) gases_list => null () gases_list => gases ( heavywater ) gases_str => gases2 ( heavywater ) print * , \"Gases in H2O: \" , ngas print * , gases_str do i = 1 , ngas print * , gases_list ( i )% gas enddo heavywater = 1 ngas = ngases ( heavywater ) gases_list => null () gases_list => gases ( heavywater ) gases_str => gases2 ( heavywater ) print * , \"Gases in D2O: \" , ngas print * , gases_str do i = 1 , ngas print * , gases_list ( i )% gas enddo print * , '########################## IAPWS R7-97 ##########################' ! Compute ps from Ts. Ts (:) = [ - 1.0_dp , 2 5.0_dp , 10 0.0_dp , 20 0.0_dp , 30 0.0_dp , 36 0.0_dp , 37 4.0_dp ] Ts (:) = Ts (:) + 27 3.15_dp call psat ( Ts , ps ) do i = 1 , size ( Ts ) print \"(SP, F23.3, A3, 4X, F23.3, A3)\" , Ts ( i ), \"K\" , ps ( i ), \"MPa\" end do ! Compute Ts from ps call Tsat ( ps , Ts ) do i = 1 , size ( Ts ) print \"(SP, F23.3, A3, 4X, F23.3, A3)\" , Ts ( i ), \"K\" , ps ( i ), \"MPa\" end do end program C #include <string.h> #include <stdio.h> #include \"iapws.h\" int main ( void ){ double T = 25.0 + 273.15 ; /* in C*/ char * gas = \"O2\" ; double kh , kd ; char ** gases_list ; char * gases_str ; int ngas ; int i ; int heavywater = 0 ; printf ( \"%s \\n \" , \"########################## IAPWS VERSION ##########################\" ); printf ( \"version %s \\n \" , iapws_get_version ()); printf ( \"%s \\n \" , \"########################## IAPWS R2-83 ##########################\" ); printf ( \"%s %10.3f %s \\n \" , \"Tc in H2O\" , iapws_r283_Tc_H2O , \"K\" ); printf ( \"%s %10.3f %s \\n \" , \"pc in H2O\" , iapws_r283_pc_H2O , \"MPa\" ); printf ( \"%s %10.3f %s \\n \" , \"rhoc in H2O\" , iapws_r283_rhoc_H2O , \"kg/m3\" ); printf ( \"%s %10.3f %s \\n \" , \"Tc in D2O\" , iapws_r283_Tc_D2O , \"K\" ); printf ( \"%s %10.3f %s \\n \" , \"pc in D2O\" , iapws_r283_pc_D2O , \"MPa\" ); printf ( \"%s %10.3f %s \\n \" , \"rhoc in D2O\" , iapws_r283_rhoc_D2O , \"kg/m3\" ); printf ( \" \\n \" ); printf ( \"%s \\n \" , \"########################## IAPWS G7-04 ##########################\" ); /* Compute kh and kd in H2O*/ iapws_g704_kh ( & T , gas , heavywater , & kh , strlen ( gas ), 1 ); printf ( \"Gas=%s \\t T=%fK \\t kh=%+10.4f \\n \" , gas , T , kh ); iapws_g704_kd ( & T , gas , heavywater , & kd , strlen ( gas ), 1 ); printf ( \"Gas=%s \\t T=%fK \\t kd=%+15.4f \\n \" , gas , T , kd ); /* Get and print the available gases */ ngas = iapws_g704_ngases ( heavywater ); gases_list = iapws_g704_gases ( heavywater ); gases_str = iapws_g704_gases2 ( heavywater ); printf ( \"Gases in H2O: %d \\n \" , ngas ); printf ( \"%s \\n \" , gases_str ); for ( i = 0 ; i < ngas ; i ++ ){ printf ( \"%s \\n \" , gases_list [ i ]); } heavywater = 1 ; ngas = iapws_g704_ngases ( heavywater ); gases_list = iapws_g704_gases ( heavywater ); gases_str = iapws_g704_gases2 ( heavywater ); printf ( \"Gases in D2O: %d \\n \" , ngas ); printf ( \"%s \\n \" , gases_str ); for ( i = 0 ; i < ngas ; i ++ ){ printf ( \"%s \\n \" , gases_list [ i ]); } printf ( \"%s \\n \" , \"########################## IAPWS R7-97 ##########################\" ); double Ts [ 7 ] = { -1.0 , 25.0 , 100.0 , 200.0 , 300.0 , 360.0 , 374.0 }; double ps [ 7 ] = { 1.0 , 1.0 , 1.0 , 1.0 , 1.0 , 1.0 , 1.0 }; for ( i = 0 ; i < 7 ; i ++ ){ Ts [ i ] = Ts [ i ] + 273.15 ; } iapws_r797_psat ( 7 , Ts , ps ); for ( i = 0 ; i < 7 ; i ++ ){ printf ( \"%+23.3f %s %+23.3f %s \\n \" , Ts [ i ], \"K\" , ps [ i ], \"MPa\" ); } iapws_r797_Tsat ( 7 , ps , Ts ); for ( i = 0 ; i < 7 ; i ++ ){ printf ( \"%+23.3f %s %+23.3f %s \\n \" , Ts [ i ], \"K\" , ps [ i ], \"MPa\" ); } return 0 ; } Python r \"\"\"Example in python\"\"\" import sys sys . path . insert ( 0 , \"../py/src/\" ) import array import numpy as np import matplotlib.pyplot as plt import pyiapws print ( \"########################## IAPWS VERSION ##########################\" ) print ( pyiapws . __version__ ) print ( \"########################## IAPWS R2-83 ##########################\" ) print ( \"Tc in H2O\" , pyiapws . r283 . Tc_H2O , \"K\" ) print ( \"pc in H2O\" , pyiapws . r283 . pc_H2O , \"MPa\" ) print ( \"rhoc in H2O\" , pyiapws . r283 . rhoc_H2O , \"kg/m3\" ) print ( \"Tc in D2O\" , pyiapws . r283 . Tc_D2O , \"K\" ) print ( \"pc in D2O\" , pyiapws . r283 . pc_D2O , \"MPa\" ) print ( \"rhoc in D2O\" , pyiapws . r283 . rhoc_D2O , \"kg/m3\" ) print ( \"\" ) print ( \"########################## IAPWS G7-04 ##########################\" ) gas = \"O2\" T = array . array ( \"d\" , ( 25.0 + 273.15 ,)) # Compute kh and kd in H2O heavywater = False k = pyiapws . g704 . kh ( T , \"O2\" , heavywater ) print ( f \"Gas= { gas } \\t T= { T [ 0 ] } K \\t kh= { k [ 0 ] : +10.4f } \\n \" ) k = pyiapws . g704 . kd ( T , \"O2\" , heavywater ) print ( f \"Gas= { gas } \\t T= { T [ 0 ] } K \\t kd= { k [ 0 ] : +10.4f } \\n \" ) # Get and print the available gases heavywater = False gases_list = pyiapws . g704 . gases ( heavywater ) gases_str = pyiapws . g704 . gases2 ( heavywater ) ngas = pyiapws . g704 . ngases ( heavywater ) print ( f \"Gases in H2O: { ngas :} \" ) print ( gases_str ) for gas in gases_list : print ( gas ) heavywater = True gases_list = pyiapws . g704 . gases ( heavywater ) gases_str = pyiapws . g704 . gases2 ( heavywater ) ngas = pyiapws . g704 . ngases ( heavywater ) print ( f \"Gases in D2O: { ngas :} \" ) print ( gases_str ) for gas in gases_list : print ( gas ) style = { \"marker\" : \".\" , \"ls\" : \"\" , \"ms\" : 2 } T_KELVIN = 273.15 T = np . linspace ( 0.0 , 360.0 , 1000 ) + 273.15 solvent = { True : \"D2O\" , False : \"H2O\" } print ( \"Generating plot for kh\" ) kname = \"kh\" for HEAVYWATER in ( False , True ): print ( solvent [ HEAVYWATER ]) fig = plt . figure () ax = fig . add_subplot () ax . grid ( visible = True , ls = ':' ) ax . set_xlabel ( \"T /°K\" ) ax . set_ylabel ( \"ln (kh/1GPa)\" ) gases = pyiapws . g704 . gases ( HEAVYWATER ) for gas in gases : k = pyiapws . g704 . kh ( T , gas , HEAVYWATER ) / 1000.0 ln_k = np . log ( k ) ax . plot ( T , ln_k , label = gas , ** style ) ax . legend ( ncol = 3 ) fig . savefig ( f \"../media/g704- { kname : s } _ { solvent [ HEAVYWATER ] } .png\" , dpi = 100 , format = \"png\" ) print ( \"Generating plot for kd\" ) kname = \"kd\" for HEAVYWATER in ( False , True ): print ( solvent [ HEAVYWATER ]) fig = plt . figure () ax = fig . add_subplot () ax . grid ( visible = True , ls = ':' ) ax . set_xlabel ( \"T /°K\" ) ax . set_ylabel ( \"ln kd\" ) gases = pyiapws . g704 . gases ( HEAVYWATER ) for gas in gases : k = pyiapws . g704 . kd ( T , gas , HEAVYWATER ) ln_k = np . log ( k ) ax . plot ( T , ln_k , label = gas , ** style ) ax . legend ( ncol = 3 ) fig . savefig ( f \"../media/g704- { kname : s } _ { solvent [ HEAVYWATER ] } .png\" , dpi = 100 , format = \"png\" ) print ( \"########################## IAPWS R7-97 ##########################\" ) Ts = np . asarray ([ - 1.0 , 25.0 , 100.0 , 200.0 , 300.0 , 360.0 , 374.0 ]) Ts = Ts + 273.15 ps = pyiapws . r797 . psat ( Ts ) for i in range ( Ts . size ): print ( f \" { Ts [ i ] : 23.3f } K { ps [ i ] : 23.3f } MPa.\" ) Ts = pyiapws . r797 . Tsat ( ps ) for i in range ( Ts . size ): print ( f \" { Ts [ i ] : 23.3f } K { ps [ i ] : 23.3f } MPa.\" ) fig = plt . figure () ax = fig . add_subplot () ax . grid ( visible = True , ls = ':' ) ax . set_xlabel ( \"Ts /K\" ) ax . set_ylabel ( \"ps /MPa\" ) Ts = np . linspace ( 0.0 , 370.0 , 500 ) Ts = Ts + 273.15 ps = pyiapws . r797 . psat ( Ts ) ax . plot ( Ts , ps , \"r-\" , label = \"ps(Ts)\" ) Ts = pyiapws . r797 . Tsat ( ps ) ax . plot ( Ts , ps , \"b--\" , label = \"Ts(ps)\" ) ax . legend () fig . savefig ( f \"../media/r797-r4.png\" , dpi = 100 , format = \"png\" ) plt . show ()","tags":"","loc":"page/examples.html"},{"title":"License – iapws","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 – iapws","text":"IAPWS, “Release on the Values of Temperature, Pressure and Density of Ordinary and Heavy Water Substances at Their Respective Critical Points,” IAPWS, St. Petersburg, Russia, R2-83, 1992. IAPWS, “Guideline on the Henry’s Constant and Vapor-Liquid Distribution Constant for Gases in H2O and D2O at High Temperatures,” IAPWS, Kyoto, Japan, G7-04, 2004. IAPWS, “Revised Release on the IAPWS Industrial Formulation 1997 for the Thermodynamic Properties of Water and Steam,” Lucerne, Switzerland, R7-97, 2007. IAPWS, “Revised Release on the IAPWS Formulation 1995 for the Thermodynamic Properties of Ordinary Water Substance for General and Scientific Use,” Praque, Czech Republic, R6-95, 2018. Wolfgang Wagner and A. Pruss. “International Equations for the Saturation Properties of Ordinary Water Substance”. Revised According to the International Temperature Scale of 1990. Addendum to J. Phys. Chem. Ref. Data 16, 893 (1987). Journal of Physical and Chemical Reference Data, 22(3):783–787, May 1993. doi:10.1063/1.555926. Allan H. Harvey and Eric W. Lemmon. “Correlation for the Vapor Pressure of Heavy Water From the Triple Point to the Critical Point”. Journal of Physical and Chemical Reference Data, 31(1):173–181, March 2002. doi:10.1063/1.1430231. R. Fernandez-Prini, J.L. Alvarez, and A.H. Harvey. “Henry’s Constants and Vapor–Liquid Distribution Constants for Gaseous Solutes in H2O and D2O at High Temperatures”. Journal of Physical Chemistry Reference Data, 32(2):903–916, 2003.","tags":"","loc":"page/references.html"},{"title":"Specifications (specs) – iapws","text":"This is an index/directory of the specifications (specs) for each module. R2-83 - Values of Temperature, Pressure and Density of Ordinary and Heavy Water Substances at Their Respective Critical Points G7-04 - Guideline on the Henry’s Constant and Vapor-Liquid Distribution Constant for Gases in H2O and D2O at High Temperatures R7-97 - Revised Release on the IAPWS Industrial Formulation 1997 for the Thermodynamic Properties of Water and Steam C API - Prototypes for C language.","tags":"","loc":"page/specs/index.html"},{"title":"C API – iapws","text":"The prototypes of the C API are defined as shown below. #ifndef IAPWS_H #define IAPWS_H #if _MSC_VER #define ADD_IMPORT __declspec(dllimport) #else #define ADD_IMPORT #endif extern char * iapws_get_version ( void ); ADD_IMPORT extern const double iapws_r283_Tc_H2O ; ADD_IMPORT extern const double iapws_r283_Tc_D2O ; ADD_IMPORT extern const double iapws_r283_pc_H2O ; ADD_IMPORT extern const double iapws_r283_pc_D2O ; ADD_IMPORT extern const double iapws_r283_rhoc_H2O ; ADD_IMPORT extern const double iapws_r283_rhoc_D2O ; extern void iapws_g704_kh ( double * T , char * gas , int heavywater , double * k , int size_gas , size_t size_T ); extern void iapws_g704_kd ( double * T , char * gas , int heavywater , double * k , int size_gas , size_t size_T ); extern int iapws_g704_ngases ( int heavywater ); extern char ** iapws_g704_gases ( int heavywater ); extern char * iapws_g704_gases2 ( int heavywater ); extern void iapws_r797_psat ( size_t N , double * Ts , double * ps ); extern void iapws_r797_Tsat ( size_t N , double * ps , double * Ts ); #endif","tags":"","loc":"page/specs/capi.html"},{"title":"IPAWS G7-04 – iapws","text":"Description Henry Contant: kh Vapor-Liquid Distribution Constant: kd Molar fractions Available gases Plots Description The computation is based on the parameters provided by the technical report G7-04 Henry Contant: kh The Henry constant  is defined as shown in equation below. kh is expressed in MPa. : liquid-phase fugacity : mole fraction of the solute The Henry’s constant kh is given as a function of temperature by: : critical temperature of the solvent as recommended by IAPWS . is the vapor pressure of the solvent at the temperature of interest and \n  is calculated from the correlation of Wagner and Pruss for and from the correlation of Harvey and Lemmon  for . Both equations have the form: is 6 for and 5 for is the critical pressure of the solvent recommended by the report R2-83 Vapor-Liquid Distribution Constant: kd The liquid-vapor distribution constant kd is defined as shown in equation below. kd is adimensional. : mole fraction of the solute is the vapor-phase solute mole fraction in equilibrium with the liquid The vapor-liquid distribution constant kd is given as a function of temperature by: : -0.023767 for and -0.024552 for . Wagner et al. for and fernandez-prini et al. for In both cases, has the following form: is 6 for and 4 for Molar fractions The molar fractions and as following: By fixing at 1.0 it comes that the molar fractions and are then expressed per \nunit of pressure as shown in the following equation . The molar fractions can be converted to solubilties in ppm or cm3/kg by considering dilute solutions. is the considered gas and the solvent is either or . Available gases kh and kd can be computed for the following gases: in water: He, Ne, Ar, Kr, Xe, H2, N2, O2, CO, CO2, H2S, CH4, C2H6, SF6 in heavywater: He, Ne, Ar, Kr, Xe, D2, CH4 The available gases can be retrieved with gases which returns the available gases as a list. gases2 which return the available gases as a string. ngases which returns the number of available gases. Plots","tags":"","loc":"page/specs/iapws_g704.html"},{"title":"IAPWS R2-83 – iapws","text":"Description In water In heavywater Description The technical report R2-83 defines constants used for computing the water properties. In water In heavywater","tags":"","loc":"page/specs/iapws_r283.html"},{"title":"IAPWS R7-97 – iapws","text":"Description Structure of the formulation Reference constants Auxiliary Equation for the Boundary between Regions 2 and 3 Region 4: Saturation line The saturation-pressure equation (Basic Equation): psat The saturation-temperature equation (Backward Equation): Tsat Plot Description The computation is based on the parameters provided by the technical report R7-97 . Structure of the formulation The R7-97 report consists of a set of equations for different \nregions which cover the following range of validity: and and Reference constants The specific gas constant of ordinary water used for this formulation is This value results from the recommended values of the molar gas constant, \nand the molar mass of ordinary water ( Wagner et al., Harvey et al. ).\nThe values of the critical parameters are from the corresponding IAPWS release. Auxiliary Equation for the Boundary between Regions 2 and 3 Region 4: Saturation line The equation for describing the saturation line is an implicit quadratic\nequation which can be directly solved with regard to both saturation pressure and saturation temperature . The details are largely described in the literature IAPWS R797, IAPWS R695 . where and with and and are coefficients. The saturation-pressure equation (Basic Equation): psat The solution of the quadratic equation with regard to saturation pressure is as follows: with and Range of validity: . The saturation-temperature equation (Backward Equation): Tsat The saturation-temperature solution of the quadratic equation reads where and Range of validity: Plot","tags":"","loc":"page/specs/iapws_r797.html"}]}
\ No newline at end of file
diff --git a/docs/type/gas_type.html b/docs/type/gas_type.html
index 65ca450..ff21302 100644
--- a/docs/type/gas_type.html
+++ b/docs/type/gas_type.html
@@ -115,7 +115,7 @@ <h4 class="card-header bg-primary text-white">Variables</h4>
       </a>
       <div id="vars-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/gas_type.html#variable-gas">gas</a>
+            <a class="list-group-item" href="../type/gas_type.html#variable-gas~4">gas</a>
         </div>
       </div>
     </div>
@@ -164,7 +164,7 @@ <h2>Components</h2>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-gas"></span>
+              <span class="anchor" id="variable-gas~4"></span>
               character(len=:),
             </td>
               <td>public,</td>
@@ -207,7 +207,7 @@ <h2>Components</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2024-07-21T00:24:29.256084             </p>
+ on 2024-07-23T07:00:56.970696             </p>
           </div>
         </div>
         <br>